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PREFACE 



In this publication, system and component names as listed below 
should be read as indicated: 

System/component name To be read as 



DOS/VS DOS/VSE (see Note below) 

ECPS:DOS/VS ECPS: VSE 

DOS/VS POWER/VS-E VSE/POWER 

DOS/VS VSAM-E VSE/VSAM 

Note: Unless that name explicitly refers to DOS/VS Release 34 
or an earlier DOS/VS release. 



This Program Logic Manual (PLM) is a detailed guide to the IBM Disk 
Operating System IPL and Job Control programs, It supplements the 
program listings by providing descriptive text and flowcharts. 
For overall system control logic description/ this PLM is used with 
seven other PLMs: 

DOS/VS Supervisor Logic, SY33-8551- 

0.25^15 l££°.£ Recovery, and Recording Transients Logic, SY33-8552. 

DOS^VS Logical Transients and Dum£ Phases Logic, SY33-8553, 

DOS/VS Sy_stem Serviceability Aids Logic, SY33-8554- 

DQS^VS Linkage. Editor Logic, SY33-8556. 

DQS^/VS Librarian Logic, SY33-8557. 

DOS/VS Fixed Block Architecture Logical IOCS, SY24-5181. 

rereguisite publications that will aid in the use of this manual are: 

I&M System/370 Principles of O£eration, GA22-7000. 

I1H ii J 00 Processors Principles of Operation, GA22-7070 

DOS/VS System Control Statements, GC33-5376. 

OS/VS, DOS/VS, and VM/370 Assembler Language, GC 3 3-40 10. 

Guide to the DOS/VS Assembler GC 3 3- 4 02 4. 

Publications related in subject matter to the system control PLMs are: 

Introduction to DOS/VS, GC33-5370. 

2QS/VS System Management Guide, G C3 3- 5371. 

£OS/VS Data Management Concepts, GC24-5138. 

&0S/VS Macro User's Guide, GC24-5139. 

fiOS^VS Mac£2 Reference, GC24-5140 

DOS/VS Tape Labels, GC33-5374. 
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• DOS^VS DJISD Labels, GC33-5375. 

• BQS^VS System generation, GC33-5377. 

• £QS^VS Operating Procedures, GC33-5378.. 

• SOS£V£ Messages, GC33-5379. 

Titles and abstracts of other related publications are listed in the IBM 
SL£st&m^370 Bibliography;, GC20-0001. 

Publication Organization 

This manual consists of five major sections- The first section is an 
introduction to both programs summarizing their functions. The next two 
sections are dedicated to a detailed description of each of the programs 
showing their function-to- phase relationship, sequence of operation, 
control flow and I/O flow graphs, and the storage layout. Then follow 
general charts of the phases and more detailed charts which are in 
flowchart form for IPL and Job Control except Symbolic Label Access 
(SLA). The detailed flowcharts are identified by letters AA through ZZ. 
Numerals such as 01 identify the general charts* 

The last section of the manual, the appendixes, contain label lists, 
phase to module and error messages cross references, LISTIO examples, 
and some control blocks and tables* 
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INTRODUCTION 



INITIAL PROGRAM LOAD (IPIj) 



THE IPL PROCEDURE 



The IPL procedure mast be performed each 
time 

the system is powered up; 

— you want to change the processing mode 
of your machine on a a 300 processor 
(switch between ECps: DOS/VS-mode and 
370-mode) ; 

you want to reallocate your page data 
set; 

you want to reassign 
your VSAM master catalog (SYSCAT) , 
your recorder file (SYSREC) , 
your system console (SYSLOG) ; 

you want to change the load 
configuration of system programs 
residing in the SVA; 

— you want to load a new supervisor- 
Operating in the supervisor mode, IPL 
bootstrap processing 

determines the hardware and SYSRES 
characteristics, 

determines the system console address, 

loads the specified supervisor from 
SYSRES, 

builds a three-device system (SYSRES, 
SYSLOG, SYSUSE)- 



Now the system is prepared for IPL command 
processing- 

The IPL command processing rootphase is 
loaded and the IPL commands, entered via 
SYSUSE, are processed: 

the system I/O configuration may be 
completed via ADD and DEL commands; 

the date and TOD clock may be set via 
the SET command; 

— SYSREC (and SYSCAT if VSAM will be 
used) must be assigned via the DEF 
command; 



— the page data set must be allocated via 
the DPD command; 

— size and layout of the SVA may be 
specified via the SVA command which 
also terminates IPL processing and 
therefore is mandatory, even if used 
without operands- 

After having performed the functions 
reguired, IPL exits to EOJ, 



LOADING PRINT CONTROL BUFFERS 



For certain printers a buffer has to be 
loaded- The print control buffers of a 
printer can be loaded as follows: 

— Automatically during IPL- $$BUFLDR 

together with $$BUFLD!l and *$BUFLD2 are 
provided to load the FCB and UCB of a 
pertinent printer with the standard 
control information- 

Dynamically by issuing the LFCB or LUCB 
attention command- See DOS^VS Logical 
Transients and Dump Phases Logic. 

Dynamically by issuing the LFC3 macro 
in a problem program- (This macro can 
only be used to load the FCB of a 
printer)- See DQS/VS Logical Transients 
§.^4 EMJ2 Pk§§®s Logic. 

As a separate job step by executing the 
SYSBUFLD program. This program is 
documented at the end of the IPL 
description- 
Note: for a 5203 printer without the 
universal character set feature, only the 
FCB is loaded- For a 1403U, only the UCB is 
loaded.- 

$$BUFLDR is executed as part of the IPL 
procedure- If 3203, PRT1, 3800 or 
5203/1403U printers are attached to the 
system, $$BUFLDR together with the 
corresponding standard buffer image phases 
must be available in the core image 
library- The standard buffer image phases 
for the individual printers are shown in 
the following table: 
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Printer | To Load FCB | To Load UCB 



1403U | 
3203 | 



$$BFCB3 



$$BUCB4 
$$BUCB3 



PBT1 3211 


i 


$$BFCB | 


$$BUCB 


3203-4 


I 


$$BFCB00 | 


$$BUCB00 


and -5 


I 


I 




3289-4 




$$BFCB10 | 
+ 


$$BUCB10 



5203 



I 



$$BUCB5* 



* Not required for a 5203 printer 
without the universal character 
set feature- 



2<>£§* Tn e 3800 printer buffer load is 
initialized via a special command- 



JOB CONTROL PROGRAM 



program: 

Prepares the system for execution of 
programs- 
Assigns physical device addresses to 
logical units- 
Includes cataloged procedures and 
procedure modifier statements- 

— Sets up fields in the communication 
region (s) - 

Edits and stores volume and file label 
information- 

— Prepares the system for restarting 
checkpointed programs- 
Clears the partition to binary zeros 
between job steps, (if job step is in 
real mode) , otherwise it causes the 
pages to be cleared as they are used. 

The job control program is executed in the 
virtual storage of the partition it is 
preparing- 



The job control program provides job-to-job 
transition for all programs, background and 
foreground. 

This program also prepares job steps for 
execution. (One or more programs can be 
executed with a single job. Each such 
execution is called a jo b step.) 

On the basis of information provided in the 
job control statements, the job control 



SYMBOLIC LABEL ACCESS 



Another part of job control is the Symbolic 
Label Access program (SLA) - The SLA 
program provides device independent access 
to the DOS/YS label area- It is called each 
time information for the label area has to 
be added, deleted, retrieved, or modified- 
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THE IPL PROGRAM - METHOD OF OPERATION 



PHASE-FUNCTION OVERVIEW 



IPL is divided into two successive 
processing steps 

• bootstrap processing 

• command processing 

The function of bootstrap pro c essing is to 
load a supervisor and build a minimal 
(3-device) system # the basis for IPL 
command processing* The 3-device system 
consists of SYSRES, SYSLOG, and SYSUSE; IPL 
commands are entered via SYSUSE and since 
SYSUSE may be assigned to SYSLOG^ the 



3-device system may physically consist of 
two devices only- Another characteristic of 
bootstrap processing is that its main part 
is performed without supervisor support for 
input/output or loading modules from the 
SCIL. 

The function of IPL comgan^ processing is 
to bring up the complete system by 
processing the specified IPL commands; 
there is now supervisor support available 
for most of its processing. 

Figure 1 shows a list of IPL phases, where 
they reside, and what their functions are. 





| Module/ 
I Macro 


1 
i 


Phase 


1 
i 


Residence 


1 

1 


Phase Description 




| $$A$PLBF 


1 

1- 
1 
1 


$$A$IPL0 


t 


* 


i 


FBA-SYSRES Bootstrap Loader 




$$A$PLBF 


i 
i 


3-9 * 


i 


FBA-SYSRES Bootstrap 
Program 


Bootstrap 
Processing 


| $$A$PLBK 


1 

I- 
1 
1 


$$A$IPL1 


i 


00*00.1, 00.00.2 


** | 


CKD-SYSRES Bootstrap Loader 


$$A$PLBK 


i 
i 


00.. 01, 5 


i 
i 


CKD-SYSRES Bootstrap 
Program 




j $$A$IPLR 


1 


3$A$IPLR 


-+• — 
1 


SCIL 


i 


IPL Retrieval Program 




| IPLBMAC 


1 
1 
1 
1 


- 


- + — 

i 
i 
I 
i 


MACLIB 


i 
i 
i 


Macro: Contains code and 
data commonly used by at 
least two of the bootstrap 

phases 




J IJBIPL 


1 
1 


- 


i 


MACLIB 


i 


Macro: Serves to call all 
command processing phases 




| IPLDISK 
| MACIPLR2 


1 
1 
1 


$IPLRT2 


i 
i 
i 


SCIL 


1 
i 
i 


IPL Command processing 
Root Phase + IPL Command 
processing initialization 


Command 
Processing 


| MACIPLR3 


1 


$IPLRT3 


i 


SCIL 


i 


Process ADD/DEL Commands 


| MACIPLR4 


1 
1 


$IPLRf4 


i 


SCIL 


i 


Process SET Command; dyna- 
mically allocate SV areas 






1 




I 




i 






i MACIPLR6 


1 


IIPLRT6 


i 


SCIL 


i 


Process SVA Command 




| MACIPLR7 


i 


$IPLRT7 


i 


SCIL 


i 




Load Print 
Buffer 


| IJBSBOFF 


1 
1 


SYSBUFLD 


1 
1 


SCIL 


i 
i 


Load or Modify Print Buffer 



L~-^ „„„,._, ^ ,. 



„,._. „, ^ , ~^ __^ . ~j 



Figure 1. IPL Module/Phase/Function Overview 
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Notes to Figure 1: 

* FBA - Physical Block Number 
** CC.HH.R of CKD-Device 

CKD = Count-Key-Data Device 

FBA = Fixed-Block-Architecture Device 

SCIL = System Core Image Library 



BOOTSTRAP PROCESSING, CHART 01 



To load the desired supervisor and build a 
3-device system (the base for IPL command 
processing) , special standalone programs 
from outside the core image library have to 
be activated- These programs perform the 



bootstrap processing functions and consist 
of the following phases: 



$$A$IPL0 
$$A$IPL1 
$$A$PLBF 
$$A$PLBK 
$$A$IPLR 
$$A$IPLE 



(This phase is distributed only 
with VSE/Advanced Functions.) 



Note that all these phases reside 
originally in the SCIL for APAR and PTF 
handling; before distributing a system 
residence, phase $$A$IPL0, $$A$IPL1 , 
$$A$PLBF and $$A$PLBK have to be copied by 
special utility programs (IJBREPB or 
RESTORE) to their assigned disk locations, 
See Figures 1 and 2- 









SYSRES J 


Layout 








CKD-Device 


I 




FBA-Device 


Location 


I 


Extent for ..... 


I 


Location 


I 


Extent for ..... 


00.00.1 
00.00.2 


i 
i 


Phase $$A$IPL1 


I 
I 


Block 


i 
i 


Phase $3>A$IPL0 


00,00.3 


— +- 

I 
- + - 


Volume Label 


———•—•——•§•- 

I 

• +- 


Block 1 


I 


Volume Label 



00,01.1 
00.01.2 
00.01,3 
00.01,4 



I 

| System Directory 

I 



I 

| Block 2 

I 



System Directory 



00. 


01, 


5 


— + _ 
I 


Phase $$A$PLBK 


I 


Blocks 


3-9 


I 


Phase $$A$PLBF 


00. 


02. 


.0 - 


- I 
— +_ 


Core Image Library 


-+- 


Blocks 


10 


-I 


Core Image Library 


a - 






I 


Relocatable Library 


i 


u - 




I 


Relocatable Library 


b - 






i 


Source Stmt. Library 


i 


v - 




I 


Source Stmt. Library 


c - 






- — +■— 

i 


Procedure Library 


i 


w - 




i 


Procedure Library 


d - 






I 


Label Area 


i 


x - 




I 


Label Area 


e - 






i 


User Space 


I 


y - 




I 


User Space 


f - 






I 


VTOC 


I 


z 




I 


VTOC 



Note: a<b<c<d<e<fu<v<w<x<y<z 

FBA block size is 512 Bytes, CKD record length varies. 



Figure 2. SYSRES Layout 
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Hardware IPL will always load $$A$IPL0 and 
$$A$PLBF (from FBA-SYSBES) or $$A$IPL1 and 
$$A$PLBK (from CKD-SYSRES) from their 
assigned disk locations, while $$A$IPLR is 
always loaded from the SCIL. 

Charts AA and AB explain the hardware IPL 
process, which ends with passing control to 
$$A$PLBF or $$A$PLBK,. 



$$A$PLBK, $$A$PLBF - SEQUENCE OF OPERATION 

After relocating all address constants in 
PSW's and CCW 1 s, the program must 



""* Determine Type of H ardware 



4300-hardware is 
successfully perf 
instruction- On 4 
instruction also 
virtual storage s 
/370-hardware is 
STCAP-instruction 
PTLB-instruction 
successfully. If 
instructions coul 
executed, a flag 
and the SYSLOG de 
available. 



assumed, if the program 
orms an STCAP 
300-hardware, this 
specifies the real and 
ize of this model,, 
assumed, if a 
fails, but a 
is executed 
neither of these 
d be successfully 
is set to cancel IPL 
vice is still 



For information on the STCAP and PTLB 
assembler instructions, see System/370 
Principles of Operations, 

— Determine Siz e of Real Stora ge 

On 4300-hardware, the STCAP instruction 
returned all necessary information. 

On /370-hardware, we get the real 
storage size by an •endless-loop 1 which 
will clear the real storage from the end 
of phase $$A$PLBK up to the end of real 
storage. The loop is interrupted by an 
addressing-program-check when the real 
storage is exhausted. The virtual 
storage size cannot be got from 
/370-hardware but has to be extracted 
from the supervisor later on. 

On VM systems, DIAGNOSE instructions 
will be used to determine the size of 
real storage and to clear it. See IBM 
System/370 Principles of Operation for 
DIAGNOSE instructions.. ~ 

The programs will save all necessary 
information about hardware and SYSRES 
device characteristics in an area 
described by IPLRCOM. The start address 
of this area and the load address of 
$$A$IPLR are passed to this phase via 
special registers. 



— Determine the SYSRES Device 
Character is tics 

We extract the SYSRES volume serial 
number from the volume label record or 
block. To get the SYSRES device-type and 
capacity, we have to perform a READ 
DEVICE CHARACTERISTICS command only if 
SYSRES is an FBA device. If it is a 
CKD-device, we must read the format-4 
record (first physical record) of the 
VTOC whose start address is extracted 
from the volume label record. The 
capacity information from the VTOC 
format-4 record must be found in a 
device characteristics table to identify 
the CKD-SYSRES device type. 

— get Li brary Extent Information 

We read the system directory records 1 
and 4 from CKD-SYSRES or the system 
directory block from FBA-SYSRES 
respectively. The beginning CC.HH.R of 
the SCIL and of the procedure library 
(if present) is saved; for FBA, the 
beginning and ending physical block 
number is saved for later use in DEFINE 
EXTENT commands. 

— Load Phase $$A$IPLR, $$A $IPLE 

Phase $$A$IPLE (if residing in the SCIL) 
is loaded at end of real storage. Space 
will be allocated for IOFLD 
(Communication area with IPL command 
processing) and phase $$A$IPLR, which 
must be resident in the SCIL, will be 
loaded in front of IOFLD. See Figure 4. 
IPLRCOM is saved into IOFLD and control 
is passed to $$A$IPLR. 



$$A$IPLR - SEQUENCE OF OPERATION 



Control is passed to this phase from 
$$A$PLBF or $$A$PLBK. The addresses in 
PSW"s and CCW's are relocated. Now module 
initialization is performed (message 010 41 
built, data areas initialized). 

— Prepare for Operation w it h/without Phase 
f$A$CDL0 

The directory of the SCIL is scanned for 
the IPL-phase $$A$CDLQ„ If found, the 
text of the phase is read into real 
storage. If not found, the normal 
process of system preparation continues. 
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— Request a SYS LOG Device 

Normally, SYSLOG is specified by the 
operator via an attention interrupt 
(pressing REQUEST or ENTER) which 
transmits the SYSLOG device address* 

When the Automatic System Installation 
feature (ASI) is installed (phase 
$$A$IPLE resides in the SCIL) the ASI 
initialization function (ASIFINIT) will 
transmit the SYSLOG device address from 
the first statement of the ASI IPL 
procedure- ASI is in process now. 

$$A$CDL0 contains the communication 
device list (CDL) . The list specifies 
the system console (SYSLOG) and the I/O 
device (SYSLOG and/or SYSUSE) that may 
present interrupts to IPL and thus 
establish themselves as communication 
device (s) for transmitting IPL commands.. 

If $$A$CDL0 is in the SCIL, the program 
checks if the SYSLOG device address is 
in the CDL. If yes, or if there is no 
$$A$CDL0 the SYSLOG device is accepted. 
Otherwise IPL waits for another SYSLOG 
device address to be transmitted.. 

Note: IPL may loop indefinitely if the 
CDL has been specified incorrectly. 
Therefore it may be useful each time 
when IPL enters the wait state again to 
enter manually the device address for 
SYSLOG and/or SYSUSE into locations 
X'10' to XM7' in the hexadecimal format 
OOOOOcuu- To resume processing press 
REQUEST/ENTER at SYSLOG. 

On acceptance of the SYSLOG device 
address, a PUB is built and the phase 
writes message 0I04I. 

After having built the PUB, the phase 
makes SYSLOG available for 
operator/system communication for the 
remaining system preparation process; 
all error messages are written to 
SYSLOG. 

" R§.3uest a Su£ervisor Name 

On an interactive IPL (ASI not in- 
process) , the name of the supervisor to 
be loaded and its paging option are 
requested via message 0I03A in 
SCP-format. 

When ASI is in process, the name of the 
supervisor to be loaded and its paging 
option will be extracted from the first 
statement of the ASI IPL procedure too. 
Message 0I03A need not be written- 

When ASI has to be restarted (the 
operator presses the INTERRUPT key of 
his console) , message 0I03A in AF~f ormat 



will be displayed* 
respond either 



The operator may 



2.. 



with ASI procedure names for IPL 
and/or JCL 

i.e. ASI will proceed taking the 
supervisor name, paging option and 
IPL commands from the specified IPL 
procedure, 
or 

with a supervisor name and paging 

option 

l.e. ASI will be terminated and IPL 

will proceed interactively,. 



The directory of the 
the specified superv 
entry is not found, 
issued and the name 
requested once more, 
found, the length of 
computed and it is c 
supervisor will fit 
without overlaying $ 



SCIL is scanned for 
isor entry- If this 
message 0I02A is 
of the supervisor is 
If the entry is 

the supervisor is 
hecked whether the 
into real core 
$A$IPLR. 



Note that the maximal supervisor size 
may not exceed 512K bytes. The 
supervisor is read into real storage 
starting from location 0* 

If ASI is in process, the ASI-RESTART 
facility is activated by calling the 
ASI-enable function (ASIF ENA) via phase 
$$A$IPLE. 

■" — ££e£k Supervisor Generation Options 

It is verified if the supervisor has 
been generated for the existing 
hardware (4300, /370, VM) , whether it 
supports the SYSRES device type (e.g. 
you may load from FBA-SYSRES a 
supervisor that has been generated 
for CKD only) , and whether the 
supervisor has been generated for the 
correct SYSLOG device type (e.g. you 
may load from a 3277-SYSLOG a 
supervisor that has been generated 
for /370-115 DOS-SYSLOG) . 

Message 0I68A is displayed at SYSLOG 
with a code number that specifies the 
type of incompatibility that has been 
found between existing environment 
and supervisor generation. 

To obtain supervisor support, we have 
to initialize its subcomponents such 
as page manager, input/output 
supervisor, or timer managements 

The paging option is analyzed and if 
it was N (non-pageable supervisor) it 
is indicated within the SMCB that 
there is no pageable supervisor part. 
Per default, the supervisors are 
generated with a pageable part.. ! 
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"". Initiate System 

The length of the I/O extended area 
for this CPU model is calculated, 

The RSIZE parameter of the 
VSTAB-macro specifies the size of the 
real storage the supervisor is 
generated for- This real storage is 
used for dynamically allocatable 
supervisor tables- The size of these 
tables must be adjusted to the 
existing real storage, since the 
supervisor may have been generated 
for a real storage that is smaller, 
equal, or bigger than the existing 
one- Thus, supervisor table space 
may be wasted or missing. 

In /370 mode, a 
page frame table 
page table 
segment table 
are used. 

In ECPS:DOS/VS-mode, a 
page frame table 
is used,. 



The generated BG begin address and 
system save area address have to be 
updated,- 

A communication area (SVIPL) has been 
introduced for IPL into the supervisor, 
described via MAPSVIPL macro- It 
contains the entry points of routines 
invoked from IPL for supervisor 
initialization and pointers to tables 
that have to be generated or initialized 
through IPL processing- Its start 
address is part of SYSCOM (IJBSVIPL) - 
The control registers are initialized- 

The DAT-feature and the (location X 1 50«) 
timer are initialized for /370 only. 

The initialization subroutines reside in 
the supervisor copy-buffer area and are 
overlaid with table and buffer space 
during later processing. 

Now some indicators are set, signalling 
that IPL is in progress, disabling the 
attention routine and permitting write 
operations on the SYSRES device. 

The storage protect key of the 
supervisor area is set to 0, while the 
storage protect key of the BG-area (the 
remaining real storage) is set to 1. 
The channel control table is built- 



— 2i*ii<i Communication Area for Command 
Processing TlOFLD) 

This area is located at end of real 
storage.- The SYSGEN I/O tables 
generated into the supervisor are moved 
into this communication area- The PUBs, 
FOCL, NICL, FICL, diskette label record 
(if a diskette is an IPL communication 
device), and device specific information 
about SYSLOG and SYSUSE are stored in 
this area (described by DSECT IOFLD) - 
The tables will be used by the $IPLRT 
phases to complete the system 
I/O-conf iguration process (ADD/DELETE) - 

— Locate I P L Communication Device (SYSUSE) 

If ASI is in process, a dummy diskette 
label record is placed into IOFLD, the 
SYSRES PUB is copied into the SYSUSE PUB 
and job control is informed that the IPL 
input is not from SYSLOG. Processing 
continues building the three-device 
system- 

If there is an interactive IPL, the 
system is put into the wait state and 
the operator has the option of selecting 
the communication device for IPL, If the 
desired communication device is: 

!• A car d reader, the operator presses the 
start"~key on the reader causing an I/O 
interrupt (device end). 

2- A Console print er -keybprd, the operator 
presses the request key causing an I/O 
interrupt (attention).. 

Note: Only the device used as SYSLOG may 
present the attention interrupt- 

3- A diskette, the operator presses the 
start key causing an I/O interrupt 
(device end) - 



"~ Mil*! 3-Device System I/O Tables 

After the operator has selected a 
communication device, the PUBs built for 
SYSRES, SYSLOG, and SYSUSE (if SYSUSE is 
not equal to SYSLOG) are copied into the 
supervisor PUB table and the BG LUBs for 
SYSRES, SYSLOG, and SYSUSE are assigned 
to the coresponding PUB table entries^ 
The FOCL (first-on-channel list) and the 
channel bucket are built for this 
3-device system- Figure 5 below shows 
an example of the I/O tables for a 
3-device system built by 3>$A$IPLR- 
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~~ Initialize Program Management 

The logical transient area (pointed at 
from SYSC0M via IJBLTA) contains 
initialization code for the FETCH system 
task.. A temporary AVE (automatic volume 
recognition) table is allocated and the 
volume-characteristics of the SYSRES 
device placed into this table. This 
information is passed to the FETCH 
initialization routine. 

— £ass Control to I PL Command P rocessing 

Since FETCH has been initialized, it may 
now be used for program loading. It is 
checked whether the command processing 
root phase $IPLRT2 will fit into real 
storage. If yes it will be loaded via 
SVC 4„ This SVC has been moved into 
IOFLD, from where it is executed; thus 
it is possible to overlay phase $$A$IPLR 
with SIPLRT2. 

A supervisor state PSW is loaded with 
DAT bit off and I/O and external 
interrupts enabled. The address of 
IOFLD is passed via a general register 
to $IPLRT2; this phase is loaded into 
the BG-area, behind the BG system save 
area; it is invoked via BR 1 after SVC 4 
from IOFLD. 



COMMAND PROCESSING, CHARTS 02 TO 04 



For the formats of IPL commands, see DOS/VS 
System Confrjcol Statements. The commands 
are being processed in the phases 
$IPLRT2-7. The following gives the 
sequence of operation in each of these 
phases; 



$IPLRT2 - SEQUENCE OF OPERATION 



SIPLRT2 is loaded by the phase $$A$IPLR 
which calculates the load point behind the 
supervisor and a reserved area for tables. 
The phase consists of two CSECTs: IJBIPR50, 
the root of the program, and IJBIP250, the 
initialization part, which is overlaid 
after initialization. 



checks for RMSR support, 
to build the load list. 



Loads $$BCCHHR 



£SECT IJBIPR50 

completes the system preparation and 
processes the IPL commands. 

contains the error subroutines to issue 
the error messages when necessary. 

loads the appropriate phase into an 
overlay area behind the root phase: 

$IPLRT3 

for processing an ADD or DEL command 

$IPLRT4 

a. for processing a SET command 

b. for moving I/O tables, PUBs, LUBs 
immediately before the first DEF, 
DPD, or SVA command is processed. 

c. for final allocation of tables 
(PFT, AVR tables, etc.) 
immediately before the SVA command 
is processed. 

$IPLRT5 

(with linked Common VTOC Handler) for 
processing a DEF or a DPD command 

SIPLRT6 

for processing the SVA command 

$IPLRT7 

for termination processing 

The ADD, DEL, SET, DEF, DPD, and SVA 
commands are entered from the IPL 
communication device (SYSUSE) . 

When the operator enters the last command 
(which is always SVA) IPL prompts him to 
enter 

a SET command if the TOD has to be set 

— a DEF command for SYSfcEC, if SYSREC was 
not assigned by a previous DEF command. 

a DEF command for SYSCAT if SYSCAT was 
not assigned by a previous DEF command. 

a DPD command if the page data set was 
not allocated by a previous DPD 
command. 



CSECT IJBIP250 

checks for TOD support, stores the TOD 
clock and, depending on the state of the 
clock, displays messages on SYSLOG. If 
the clock is in the 'set 1 state, the 
date, time-of-day, and zone are 
displayed on SYSLOG. A switch is set if 
the clock is in the 'error" or "not-set 1 
state. 



$IPLRT3 - SEQUENCE OF OPERATION 

SIPLRT3 is loaded and executed only when 
ADD or DEL commands are submitted. 

$IPLRT3 does one or both of the following: 

• Adds one or more devices to the system. 
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• Deletes one or more devices from the 
system* 

Jk££ M2fiIiII The add routine ensures the 
device is not already present. It then 
determines where to add the PUB in the PUB 
table and moves all the PUB entries beyond 
this point down one PUB length to make room 
for the new PUB., The new PUB is then 
inserted in the area just vacated.. The LUB 
table and FOCL pointers are updated to 
reflect the change in the PUB table and the 
routine returns to read another control 
statement. 



DELETE ROUTI NE T 
checks to see if 
is in the PUB ta 
location in the 
deleted. The LUB 
are updated to r 
routine returns 
phase to read an 



he delete routine first 

the device to be deleted 
ble and then determines the 
PUB table of the PUB to be 

table and FOCL pointers 
ef le'ct this change. The 
to to Monitor in the root 
other control statement- 



$IPLRT4 - SEQUENCE OF OPERATION 



$IPLRT4 comprises 3 parts which are 
executed at different times: 



Part 1: Processing of SET command: 
sets the system date- 
sets the system zone if required.. 

resets the contents of the TOD clock, if 
required- 



Part 2: Executed before the first DEF, 

DPD, or SVA command is processed 
(includes pass ! of the allocation 
routine for SV areas).. 

checks the channels for file-protect 
support for each device if DASDFP (DASD 
File Protect) option was specified 
during supervisor generation. 

- scans the PUB table- If a 3203, 3211, 
3289-E, 3800, 1403U, or 5203 is found, 
$IPLRT4 loads $$BUFLDR. 

checks for RMSR support and if present 
builds the PUB2 table- 
checks whether RMS support has been 
generated for CPUs other than the 115 or 
125. If not, IPL is terminated- For the 
models 115 and 125, checks for correct 
recording support and checks for 
hardware-recorded devices.. 

- scans the PUB table for DASD devices- If 



a DASD device which is not operational 
is found, the PUB is set to indicate 
"device down" and the LUB is unassigned- 

allocates an AVR (automatic volume 
recognition) entry for each DASD PUB and 
calls the supervisor for initialization 
of the entry, 

allocates and initializes PUBSCAN tables. 

shifts page and segment tables (both 
only for 370) and page frame table to 
their final locations. 

allocates space for some other tables 
(RTAB, Copy Buffers, extended logout 
areas). 



The system assignmen 
the communication de 
SYS LOG) are checked 
assigned.. The syste 
moved from their tem 
high real storage to 
location in the supe 
move overlays the th 
tables that where bu 



ts for SYSRES and 
vice (SYSRDR or 
and permanently 
m I/O tables are 
porary location in 

their permanent 
rvisor area. This 
ree-device IPL I/O 
ilt by $$A$IPLR- 



After part 2 of $IPLRT4 has been 

executed no more ADD or DEL commands may lay 

be entered. 

Part 3: Executed before the SVA command is 
analyzed. (Includes pass 2 of the 
allocation routine for supervisor 
areas.) 

- performs final allocations of tables in 
the dynamic supervisor area after 
reserving buffer space if SYSREC or HARD 
COPY FILE Is on FBA. 

checks (and prompts) for SYSREC 
assignment 

warns if SYSCAT is not assigned- 



SET ROUTINE The DATIMERT s 
converts the Date, Clock, 
specifications to a 64-bit 
This value represents the 
units (that is, microsecon 
12th power) elapsed since 
at 0.00 a~m.. GMT, and is u 
TOD clock.. A GETIME macro 
obtain an automatic update 
value in the supervisor- 



ubroutine 
and Zone 

binary value- 
number of clock 
ds times 2 to the 
January 1, 1900 
sed to set the 
is issued to 

of the midnight 



SIPLRT5 - SEQUENCE OF OPERATION 



$IPLRT5 is loaded by the root phase and 
executed for every IPL. The phase 

- diagnoses the DEF command 
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assigns the VSAM catalog SYSCAT and/or 
the system recorder file SYSEEC to a 
physical unit. SYSREC (and SYSCAT, if 
VSAM will be used) must be assigned via 
IPL. 

processes the DPD command 

updates parameters for the load leveler 

- returns control to the root phase.. 

DEF ROUTINE The DEF command has to precede 
the SVA command. The DEF routine reads the 
physical units specified in the DEF command 
and assigns SYSCAT and SYSREC to them. 
SYSCAT may be unassigned (UA) . 

DPD ROUTINE The DPD command has to precede 
the SVA command. It causes IPL to do the 
following: 

- Open page data set. 

Format the page data set if it has not 
been formatted or if it must be 
reformatted (for CKD devices only) . 

If a VOLID was specified a check is made 
to see if it matches the VOLID on the 
specified unit. If it does not, a 
message is issued. If no VOLID has been 
specified, no check is made. 

Set the load leveller constants based on 
CPUID and device type of the page data 
set device. 



SIPLRT6 - SEQUENCE OF OPERATION 



$IPLRT6 is loaded by the rootphase and 
executed for every IPL* The phase: 

diagnoses the SVA command. 

reads phase $$A$SVA, which contains the 
names of load lists. 

- — loads the load list phases and reads in 
the SCIL directory entries of all 
phases that are named in the load lists 
if they fulfill the requirements for 
loading. 

sorts the directory entries. 

calculates for ALLOC the number of SDL 
entries and the SVA space needed for 
the text of the phases (PSIZE) . 

informs the operator if load lists or 
phases are missing.. 



SIPLRT7 - SEQUENCE OF OPERATION 



$IPLRT7 is loaded by the root phase and 
executed for every IPL. The phase does the 
following: 

Set clock comparator 

Complete LUBs for foreground 
partitions; set bits in PUB ownership 
table 

Read information on procedure library 
and label area and store it in system 
GETVIS area 

-- SVC 83 ALLOC (for virtual space) 

Switch from real to virtual status (for 
370 mode) 

Shift SDL entries into system SVA 

— Load $MAINDIR (or $MAINDIF if FBA) into 
BG and call this phase for loading 
system phases into the SVA 

Allocate LUB2 table and extent blocks 

— SVC 83 ALLOC (for real space, for 370 
only) . 

Issue IPL complete message 

-- Exit from IPL by SVC 14 (EOJ) 



PHASE gSBUFLDR, CHART 05 



$$BUFLDR is loaded by phase $IPLRT4. 
$$BUFLDfi scans the PUB table for 3203, 
1403U, PRT1, 3800, and 5203 printer 
entries. When it finds an entry, it tests 
whether the printer is operational and, if 
so, loads the UCB. It then loads phase 
$$BUFLD1, which loads the FCB for this 
printer (not 1403U) . $$BUFLDR then returns 
to scanning the PUB table for further 
printer entries. When all buffers have been 
loaded, $$BUFLDR returns control to 
$IPLRT4. $$BUFLD2 is the buffer-loaa error 
recovery phase and is called by $$BUFLDR. 
(For the 3800 printer, an initialize 
command is issued.) 

These phases issue two messages: 

1. 0I26I indicates that the buffer loads 
on the currently referenced printer 
have been completed successfully. 

2. 0I27I indicates that the referenced 
buffer on the referenced printer has 
failed to be loaded successfully. 
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After attempts have been made to load all 
printer buffers, the program returns to 
$IPLRT4. 



THE 5I£BUFLD PROGRAM, CHART 06 



The SYSBUFLD program is designed to load 
the appropriate control buffer image into 
the forms control buffer' (FCB) for output 
in a nonstandard page layout and into the 
universal character set buffer (UCB) for 
output with a UCS print train, 

SYSBUFLD is invoked by a //EXEC SYSBUFLD 
statement and can be executed any time 
after IPL within the user job stream* With 
one invocation of SYSBUFLD, the FCB and UCB 
of a single printer, or any combination of 
buffers on several printers, can be loaded. 

The procedure for using SYSBUFLD is 
described in DOS /V S Operating Procedures. 

For information on the physical 
characteristics and environmental 
requirements of SYSBUFLD, refer to DO S/VS 
System Generation, 

Input and output reguirements and control 
information is described in DOS/ VS System 
Cont rol Stat emen ts .. 

The program SYSBUFLD requires approximately 
3K bytes of storage, where the two phases 
of the program overlay each other.. 



SEQUENCE OF OPERATION OF SYSBUFLD 
PHASE SYSBUFLD 

— reads control statement 

checks for errors and incompatibilities 

— loads the UCB buffer 

— calls SYSBUFF1 to load the FCB. 

PHASE SYSPffFFl 

— checks number of print positions and 
phase length 

— loads FCB buffer 

calls SYSBUFLD to read the next control 

statement. 
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lEt CONTgOL FLOW 



Figure 3 shows an overview of the IPL control flow with the main 
interface areas- The SYSBUFLD program is included in the overview- 



IPL Program: 



Supervisor 







r < 


SVIPL 


\ 

\ 




\ 
\ 

\ 

\ 
\ 
\ 


IOFLD 


IPLRCOM 


\ 
\ 




\ 

\ 



\ 

\ 

\ 

\ 
\ 
V 



1. Hardware IPL loads phase 

$$A$PLBF (from FBA-SYSRES) or 
$$A$PLBK {from CKD-SYSRES). 

and pass control to $$A$PLBF/$$A$PLBK, 



2. $$A$PLBF/$$A$PLBK 

Determine and save into IOFLD (IPLRCOM) 

- type of hardware 

- SYSRES device characteristics 

- library extent information (SCIL, PL). 



Load phase $$A$IPLR 



Pass control to phase $$A$IPLR. 



3. $$A$IPLR 

Build SYSRES PUB. 

Request SYSLOG, build S YSLOG PUB. 

Load specif ied supervisor "" 



Request SYSUSE, build S YSUSE PUB. 
Saves all generated PUBs 



Initializes DAT-feature and FETCH. 



Loads & passes control to cpmmand processing 
root phase $IPLRT2. 



4. $IPLRT2 processes IPL-commands 



IOFLD 



Us 



IPLRCOM 



Supervisor 



A 



IOFLD 



IPLRCOM 



SIPLRT2 SIPLRT3 SIPLRT4 SIPLRT5 SIPLRT6 SIPLRT7 

I38IP250 



SYSBUFLD Program: 



V^ via SVC 14 J 



//EXEC SYSBUFLD 



Phase SYSBUFLD I 



Phase SYSBUFF1 



/EOJ \ 

V^ SVC 14 J 



Figure 3- Control Flow of IPL and SYSBUFLD Programs 
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IPL STORAGE MAP 



Figure 4 shows how the IPL program is distributed in storage at 4 
different points of the process. Steps 1 and 2 show the different 
conditions for FBA and CKD- 



X'O' — m- 



From CKD-SYSRES 



X'90' «- 



$$A$IPL1 



X'3000 f - 



$$A$PLBK 



IPLRCOM 




Step 1 - Real Storage Map after having activated hardware- 1 PL 
From CKD-SYSRES 



X'3000'- 



$$A$PLBK 



Page boundary -. 



End of real 
storage 



$$A$IPLR 



- IPLRCOM (copied into)- 
IOFLD 



X'200' 



X'200' 



Page boundary - 



End of real storage »- 



From FBA-SYSRES 




$$A$PLBF 



IPLRCOM 



From FBA-SYSRES 



$$A$PLBF 



$$A$IPLR 



-IPLRCOM (copied into)- 
IOFLD 



Step 2 - Real Storage Map when $$A$PLBF/$$A$PLBK pass control to $$A$IPLR (beginning of bootstrap processing) 




Supervisor 



SYSGENed l/O-tables 



SVIPL 



SNAinitialization code and tables 



End of real 
storage - 



$$ASIPLR 



IOFLD 



Step 3 - Real Storage Map during I PL-bootstrap processing 

Figure 4. IPL Real Storage Map 



copied into IOFLD 



SYSGENed 
sup. end 




-*»"- Page boundary 



Supervisor 



SYSGENed l/O-tables 



SVIPL 



$IPLRT2 



SIPLRT 3/4/5/6/7 



IPL command proc. workspace 



IOFLD 



End of 

real storage »• 

Step 4 - Real Storage Map during I PL-command processing 



Sup. end adjusted 



■« BG-system 

save area 
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I/O TABLES AND HARD WAIT CODES IN THE IPL PROGRAM 



Figure 5 shows the I/O tables for the three-device system generated at 
the beginning of IPL* 



LUB Table 




1 


2 


3 


4 


5 


6 




FF 











F 


1 


F 


F 


F 


F 




FF 








SYSLOG/SYsOsE Device 








FF 


SYSRES Device 






FF 




F F F F F 


F 


F F 


SYSLOG 






empty PUB 


FF 


empty PUB 


SYSRES 










FF 






FF 




SYSUSE 











FOCL Pointers 


Channel Bucket 


I 


\ ^^^ 


Address 




0000 


Address 


PUB Table 


0000 


0000 


0000 




0000 



Note: It is assumed that SYSRES is on channel 2 and that the system console (SYSLOG) and the communication device (SYSUSE) are on channel 
and SYSLOG = SYSUSE. 

Figure 5. I/O Tables for the Three-Device System 
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Figure 6 gives an overview of the hard wait states during IPL- 

If there is an equipment malfunction during IPL, or if the IPL program cannot be 
loaded, a message is placed in bytes 0-3- In this state all interrupts are disabled, 
and you must repeat IPL after displaying these bytes* 

MCH/CCH Codes: 



Byte | Byte 1 | Byte 2 | Byte 3 | 



Explanation 



X'CII 1 
X'C2 9 
X»C3» 

X»C4« 
X'CS' 

x»c6 f 



X f C7« 

X«C8' 
X , C9 I 
X«D1« 

x«07r 



X f E2 l 
X«E2' 
fE { 2 9 

X«E2« 
X f B2 1 

X I E2« 



X , E2« 

X"E2 I 

X"E2« 

X f E2« 
X«E6 f 



|A,I,S(1) 

| Not used 

JA,I,$(!I-) 

I 

|A,I,S(1) 

|A,I,S(1) 

|A,I,S(1) 

I 

I 



I Not 
| Not 
I Not 

i 

I Not 
J Not 
| Not 
I 
I 



used 
used 
used 

used 
used 
used 



|A,I,S(1) | Not used 



J 



I 



!A,I f S(1) |Not used 



I 



I 



|A,I,S(H) |Not used 



I 
|A,I,S(1) 

| Channel 



I 

I Not used 
| Unit or 
iX'QO 9 
I 

i 



Irrecoverable machine check. 
Irrecoverable channel failure during FETCH- 
Channel failure on SYS1LOG when RMS message 
scheduled. 
No ECSW stored, 

Channel failure; ERPIB queue exhausted- 
Channel failure; two channels damaged or a 
damaged channel situation occurred while RMS 
was executing an I/O operatipa. 
Channel failure; system reset was presented 
by a channel- 
Channel failure; system codes in ECSW are 
invalid- 
Channel failure; channel address invalid 
(370 mode only) - 

Irrecoverable channel failure on SYSVIS. 
IPL I/O error or equipment malfunction; 
condition code 2 during STIDC instruction- 
Channel and unit indicate whether device in 
error is SYSRES or communication device- When 
byte 3=X , 00 I , byte 2 Indicates the channel 
for which STIDC instruction was issued. 
Re-IPL system- 



(1) A=(X I C1«) = SYSREC recording unsuccessful- — Run SEREP- 
I=(X , C9«) = SYSREC recording incomplete. — Run SEREP- 
S=(X , E2") = SYSREC recording successful- * — Run EREP- 



Other Codes: 

r 



| X^O 1 | X«00» | X^OF 1 | X'DQ* | IPL is canceled due to an irrecoverable 

| | I 1 i error- The cancel code is placed in byte 1. 


| X«Q7» | X'ES 1 IChannel | Unit or | IPL input/output error: 

I | | ( X • • | -- I/O error on SYSRES 

j | | | J "-I/O error on communication device 

j | | j | — Equipment malfunction during the STORE 

I 1 || 1 CHANNEL ID instruction- 


| X'FO 1 | X f C9' i X'FQ 9 | X«F6" | The devices type of SYSRES could not be 

1 ( | | | identified- The volume label (VOL1) or 

j I II I forraat-4 record of the VTOC contains invalid 

j I | | I information- The pack was not initialized 

I | j | | correctly- The system enters the hard wait 

I | | | | state- Initialize the disk pack- 


| X'FO 1 | X'QH* | X f F3' | X»F8« | Refer to message 0D38A in the DOS/VS Message 
1 | J 1 | manual- 



Figure 6. Hard Wait Codes for IPL in Low Storage 
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JOB CONTROL AND RELATED PROGRAMS - METHOD OF OPERATION 



The j 

loade 

IPL. 

f oreg 

comma 

parti 

loade 

folio 



ob control 
d into the 
To obtain 
round part 
nd must be 
tion- The 
d into the 
wing minim 



"bacTc 
the j 
ition 

issu 
job c 

desi 
urn re 



ram is automatically 



ground partition after 
ob control program in a 

a BATCH or START 
ed fpr the desired 
ontrol program is then 
red partition if the 
quirements are met: 



• At least 128K of virtual storage in the 
partition, including GETVIS space. 

• Separate system I/O files for the 
partition. 

The job control program does one or more of 
the following on the basis of information 
provided in job control statements: 

• prepares programs for execution, 

• evaluates control statements and reads 
cataloged SYSRDR and SYSIPT data for 
cataloged procedures, and calls the 
appropriate processing programs, 

• assigns device addresses to symbolic 
units, 

• sets up fields in the communication 
region (s) ., 

• edits and stores volume and file label 
information, 

• prepares for restarting checkpointed 
programs, 

• clears the program area to binary zeros 
between job steps (real-mode job steps 
only, the pages of virtual partitions 
are cleared as they are used) , 

• prepares input for the linkage editor 
program if the LINK option has been 
specified,. The statements: ENTRY; 
ACTION, PHASE, and INCLUDE, when 
present in the input stream, are copied 
to SYSLNK as card images* An INCLUDE 
statement with a blank operand causes 
the contents of SYSIPT to be copied to 
SYSLNK until a /* statement is read 
from SYSIPT. Blank cards from SYSIPT 
are ignored- This preparation for the 
linkage editor program is valid for the 
BG partition only, unless the 
supervisor includes the PCIL option.. 

• prepares input for the MAINT program by 
writing a CATALR statement (if included 
in the SYSRDR job stream) and any 
following PHASE statement to SYSPCH- 



This is useful if a compilation or 
assembler run follows because the 
SYSPCH output can then be used as input 
(on SYSIPT) for a subsequent MAINT job 
step- This is only possible if the link 
option is not in effect. 

The job control program is executed in the 
virtual storage of the partition it is 
preparing for use. If the job step being 
prepared is a virtual-mode job step it 
overlays the job control program. 

A JOB statement in the input stream marks 
the beginning of a job and a /& statement 
marks the end of a job. An EXEC statement 
calls for execution of a job step or of a 
cataloged procedure- A job step is 
normally ended with the EOJ macro- A /+ 
statement marks the end of a cataloged 
procedure,. 

The Symbolic Label Access program (SLACC, 
in program listings referred to as SLA) is 
used to 

read 

write, and 
modify 

DOS/VS label information on label cylinders 
for CKD devices and in the label area for 
FBA devices. 

The label area logically is divided into 
subareas for partition related label 
information and a general area for 
partition independent label information. 

Partition related information is contained 
in the following label subareas: 

1. User laael information (temporary) : 

Write-access by job control 
(// OPTION USRLABEL) 
Cleared by overwriting: 

when a JOB or end-of job 
statement is read 
at IPL time 

2. Partition standard label information 
(permanent) : 

Write-access by job control 
(// OPTION PARSTD) 
Cleared by overwriting 

3. Free-usage label information 

This subarea is used only by the system 
internally: 
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— Write-access and clearing can only 
be done by direct usage of the 
label macro 
Clearing at IPL time 

Partition independent label information is 
contained in the standard (system) label 
area. This information is valid for all 
partitions. 

Write-access by job control 
(// OPTION STDLABEL) 



Cleared by overwriting 

If label information is required (GETLBL 
function) the subareas are searched in the 
following sequence: 

user labels of partition 
— free usage labels of partition 
partition standard labels 
standard labels 



PHASE-FUNCTION OVERVIEW 



Phase 



Function 



$JOBCTLA 
$JOBCTLB 
$JOBCTLC 
$JOBCTLD 
$JOBCTLE 
$JOBCTLF 
$JOBCTLG 
$JOBCTLJ 
$JOBCTLK 

$JOBCTLM 
$JOBCTLN 
$$BLSTIO 
$IJBSLA 



Root phase 

Prepare a checkpointed job for restart 

Open hard copy file 

Process ASSGN and CLOSE 

Process EXEC 

Process DVCDN, DVCUP, LISTIO, MAP, RESET, UNBATCH 

Process CANCEL, EOJ, /&, /*, EOP, JOB, OPTION 

Process all other commands except those in $JOBCTLK 

Process DLAB, DLBL, EXTENT, LBLTYP, RSi?RT, SETPRT, 

TLBL, TPLAB, VOL, XTENT 

Process ROD, open recorder file 

Job accounting and POWER/VS-E interface 

Common functions to process LISTIO and DVCDN 

Read, write, and modify label information 



N ote ; For the format of job control commands, see DOS^VS System Control Statements,. 
Figure 7. Job Control Phase-Function Overview 



SEQUENCE OF OPERATION 



The job control component consists of 11 
phases, one B-transient, and the SLA 
program which are described in the 
following* 



control input switch (COMREG+56 bit 2) - As 
each control statement or command is read, 
it is analyzed to determine which of the 
processing routines is to be used- The 
phase containing the correct processing 
routine is loaded if it is not already in 
virtual storage as a result of the previous 
statement or command* 



$JOBCTLA, CHARTS 07 AND 08 



This phase is the initial entry into the 
job control program. It is loaded every 
time the job control program is fetched and 
is the root phase. It is resident in 
virtual storage at all times during job 
control execution and contains routines 
that are used by the other job control 
phases- 
Job control input is read from SYSRDR or 
SYSLOG depending on the setting of the job 



Phase-Vector Table 



The Phase-Vector table contained in the 
root phase ($J0BCTLA) is used to determine 
the correct phase and processing routine 
required to process a given control 
statement- 

The operation field of the control 
statement is compared to each entry in the 
table until an equal is found- The equal 
entry identifies the correct phase and the 
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displacement within the phase of the branch 
instruction that directs the program to the 
correct processing routine- The entry also 
contains a 1-byte condition switch bank 
used to control processing for format 
verification, logging conventions, and 
cancel procedures for the statement- 
Figure 8 shows the format of an entry in 
the Phase-Vector table- 

For example, the job control statement may 
have the following entry in the phase 
vector table: 

DC CLl'JOB' 
DC X'7h* 
DC AL1 (12) 
DC C^ 1 

The condition switches say: 



• The JOB statement is to be processed 
even if a cancel is being executed. 

• Logging on both SYSLOG and SYSLST is 
suppressed- 

• The statement may not start without // 
and must start in column 1- 

Bytes 8 and 9 of the entry say: 

The branch-vector table entry is 
located at a displacement of 12 bytes 
from the beginning of the phase with 
suffix "G 1 ($JOBCTLG)- 



Data File Blocks 



For its own I/O file handling, job control 
uses control blocks for which the pattern 
is located in this phase- These blocks are 
called DFB f s (Data File Blocks) and their 
format is shown in Figure 9, 



Byte 6 | 7 Byte | 8 Byte | 9 Byte 



Operation | Condition | Branch I Phase 
Field | Switches j Vector Jldentific, 

J | Displace- i Letter 

| jment | 



Operation Field: 

EBCDIC representation of the 

operation fields- 
Condition Switches: 



Bits 



1 



2,3 - 



reserved- 
statement is to be processed 
even though a cancel condition 
exists, 

Both on: suppress logging 
2 off, 3 on: unconditional 
SYSLOG logging and conditional 
SYSLST logging- 
Both off: conditional logging 
on SYSLOG and SYSLST- 

- statement must start with //- 

- statement may start without //- 

- statement must start in 
column 1. 

- statement may start in other 
than column 1- 



Branch Vector Displacement: 

Displacement within the phase that 
is added to the phase origin address 
to develop the address of a branch 
instruction which transfers control 
to the correct processing routine- 
Phase Identification Letter: 

Contains the EBCDIC character A, C, 
D, E, F, G, J, K, M, or N and ident- 
ifies the job control phase contain- 
ing the processing routine. 



Figure 8- Phase Vector Table Entry Format 
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DFB 


DS 


CL6 


) 
) 

Symbolic ) 


DFBCBL 


DS 


CL2 








unit address) 

) 

CCW address ) 


DFBCBA 


DS 
DS 


CL4 

CL4 






DFBCWA 


DS 


CL4 


ASA CCW 
address 


DFBCCU 


DS 


CL2 


Channel 
and unit 


DFBDVC 


DS 


CL1 


Device type 


DFBFLG 


DS 


CL1 


Flag byte 
(see Note 1) 


DFBCCW 


DS 


CL8 


CCW (Not used 




DS 


CL8 


for DASD) 




Seek 




DS 


CL8 


Set Sector if 



CCB 



RPS is supported 
TIC if RPS is 
not supported 
(see Note 2) 



DS CL8 


Search 


DS CL8 


TIC 


DS CL8 


Write (count, 
key, and data) 
(chained data) 


DS CL8 


Write (data) 


DS CL8 


Set Sector if 



RPS is supported 
TIC if RPS is 
not supported 
(see Note 2) 



DS 


CL8 


Search 


DS 


CL8 


TIC 


DS 


CL8 


Verify (count 
field) 
(chained data) 


DS 


CL8 


Verify (data) 



U/R 

TAPE 
DASD 



DASD 
Only 



Note 1 : 








DFBFLG -■ 


flag 


byte 






bit- 


0:1 = 


Open 




bit 


1:1 = 


Unit Exception 

processing 




bit 


2:1 = 


U/R device 




bit 


3:1 = 


Overlap requested 




bit 


4:1 = 


ASA is supported 
on this device 




bit 


5:1 = 


Not used 




bit 


6:1 = 


Attention routine 
switch 




bit 


7:1 = 


CCB has been 
initialized 



Note 2: 

With RPS support, the last CCW for a 
read operation is chained to a read 
count and a read sector CCW to obtain 
the sector value of the next record. 



Interface $JOBCTLA - SIJBFBA 



To have system files supported on FBA 
devices it is required to specify 
SYSFIL=YES in the FOPT macro- The 
specification of 

DISK= (devicetype, devicetype, • ,,) 

in the PIOCS macro allows to have system 
files on CKD and/or FBA devices- 

The supervisor call 103 performs the 

input/output operations from and to system 

files on FBA., The code of the SVC 103 is 
split into two parts: 

a) a resident part contained in the 
supervisor (resident SVC 103 code) 

b) a pageable part loaded into the SVA 
(module $1 JBFBA) - 



(SVC 103) 

I 

V 

r ~" "*""' t 
J Resident I — 
|SVC 103 Code| 
I !<- 

L J 



r a 

->|$IJBFBA { 

| Perform Blocking/ J 

— | Deblocking | 



Figure 9.. DFB Format 
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For performance reasons, $JOBCTLA calls 
$$JBFBA directly via SVC 4 (LOAD).. Also 
reading from the (FBA) procedure library 
and writing on the (FBA) SYSLNK file is 
done via this interface as these files have 
DIBs like the •normal 1 system files (SYSIN, 
SYSLST, SYSPCH). 

Whenever one of these files is to be OPENed 
or initialized (procedure library is not 
OPENed) $JOBCTLA requests GETVXS space for 
I/O buffers and IORB and CCW chains, and it 
updates the DIB and DIB extension for that 
file- (See description of DIB and DIB 
extension in the Appendix.) 

When during blocking/deblocking a buffer is 
exhausted, $IJBFBA performs I/O via SVC 103 
if SYSFIL support is available for that 
file (e.g. SYSPCH) or directly via SVC if 
no SYSFIL support is available (SYSLNK or 
procedure library and SYSFIL=N0 specified 
in FOPT) . 



r i 

| Job Control: | — 
JjRead or Write! 
| from or to | 
I System Files |<- 

|on FBA | 

i__ j 



->|$IJBFBA: 

| Perform Blocking/ 
| Deblocking and I/O 

— | via SVC 103 or 
I 



$JOBCTLB, CHART 09 



This phase prepares a partition for 
restarting a checkpointed job. It 

finds the checkpoint records 

checks if the resources are still the 

same 

restores control blocks and areas 

— ■ calls phase $$BRSTRT or cancels with an 
appropriate error message. 



$J0BCTLC, CHART 09.. 1 



This phase opens the hard copy file. If 
SET HC=CREATE has been specif ied, it 
creates and formats the Hard Copy file. 
The CRTSAV table will be initialized. The 
message "DOS/VS IPL SUCCESSFULLY COMPLETED" 
will be written to the hard copy file. At 
processing of the ROD command the current 
buffers for a blocked hard copy file are 
written. 



IfiTRI CONVENTIONS: Tlie module $IJBFBA is 
loaded into the SVA by IPL. Job control 
issues a load command (SVC 4) for the 
module $IJBFBA to get its load address 
returned and transfers control to the 
module $IJBFBA by a branch and link 
instruction.. Register 14 is used as link 
register. 



SJOBCTLD, CHARTS 10 TO 13 



This phase contains the processing routines 
for the following control statements or 
commands: 

ASSGN 
CLOSE 



ffNTRY REGISTERS: Register contains the 
value zero to indicate that the module 
$IJBFBA has been entered from the 
CALL/RETURN interface. 

Register 1 contains the CCB address 
(logical unit = SYSRDR, SYSIPT, SYSPCH, 
SYSLST, or SYSLNK). 

Register 5 contains the DIB address* 

Register 13 contains the address of a 
64-byte save area to save the caller's 
registers. 

Register 14 is the link register between 
JCL and IJBFBA. 



SJOBCTLE, CHART 14 



This phase contains processing routines for 
the EXEC statement or command. 



$JOBCTLF, CHART 15 



This phase contains the processing routines 
for the following control statements or 
commands: 

DVCDN 

DVCUP 

LISTIO 

RESET 

UNBATCH 

MAP 
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$JOBCTLG, CHARTS 16 AND 17 



$JOBCTLM, CHART 23 



This phase contains the processing routines 
for the following control statements or 
commands: 

CANCEL 
/& (EOJ) 
/+ (EOP) 
JOB 
OPTION 



This phase opens the recorder file. If SET 
RF=CREATE has been specified, it creates 
and formats the recorder file. The 
RF-table will £e initialized. For a 3031 
CPU, the frame records will be written to 
the recorder file. This phase contains 
processing routines for the ROD command. 



$JOBCTLJ, CHARTS 18 TO 20 



This phase contains processing routines for 
the following control statements or 
commands: 

ACTION 

ALLOC 

ALLOCR 

CATALR 

DATE 

ENTRY 

HOLD 

INCLUDE 

LOG 

MTC 

NOLOG 

PAUSE 

PHASE 

SET 

SIZE 

STDOPT 

STOP 

UCS 

UPSI 

ZONE 



$JOBCTLK, CHARTS 21 AND 22 



This phase contains processing routines for 
the following control statements or 
commands: 

DLAB 

DLBL 

EXTENT 

LBLTYP 

RSTRT 

SETPRT 

TLBL 

TPLAB 

VOL 

XTENT 



$JOBCTLN, CHART 24 



This phase provides interface between the 
DOS/VS system and $JOBACCT to allow the 
user to access job accounting information. 
If POWER/VS-E is running, and controls the 
partition, it provides also an interface 
between the DQS/VS-E system and POWER/VS-E 
to allow creation of an execution account 
record. For more information on 
POWER/VS-E, see the logic documentation of 
that Licensed Program. 



$$BLSTIO 



This B-transient routine contains 
subroutines used by the DVCDN and LISTIO 
processors of $JOBCTLF. When required by 
these processors $$BLSTIQ is fetched 
(SVC 2) into the supervisor B-transient 
area. 



HjZISLA, CHARTS 25 TO 37 



OVERVIEW 



This phase has the following functions 
which correspond to routines of the same 
name: 

ADDLBL write a label 

ADDNXL write additional label information 

ENDLBL indicate end of write operations 

REPLBL replace modified label information 

CLRGRPL clear a group of labels 

GETLBL read a label 

GETNXL read additional label information 

LOCGRPL locate a group of labels 

GETNXGL get next label from located group 
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The root-routine IJBSLA, with the help of 
two service routines: 

INITALL and 
INITPART 

takes care of initialization, calls one of 
the function routines listed above, and 
prepares the exit of the program. 

The external interface for programs wiiich 
want to read or update any label 
information consists of two macros, LABEL 
and LPL, which are described in the DOS/VS 
Su pe rvisor Lo gi c manual- 



DESCRIPTION OF LABEL FUNCTIONS 



The ADDLBL Function 



This function inserts a label from a buffer 
into a label subarea, both specified in the 
LPL, Before any label can be added to a 
label subarea a CLRGRPL function must have 
been issued against this label subarea to 
clear it- The CLRGRPL function has to be 
issued in the same partition as the ADDLBL 
function- 



Contents of LPL: 

AREA,AREALEN specify the location and 
length of the label that is to be inserted 
into the label area. 

FILENAME is the file name contained in the 
label. 

GROUP = PARTITION specifies that the label 
is to be inserted into a label subarea of 
the partition. 

GROUP = SYSTEM specifies that the label is 
to be inserted into the system label 
subarea. 

STORE = TEMP specifies that the label is to 
be inserted into the temporary label 
subarea of the partition. 

STORE = PERM specifies that the label is to 
be inserted into the permanent label 
subarea of the partition. 

The parameter STORE is not needed and is 
ignored if GROUP = SYSTEM is specified. 



Return codes: 

Successful request- The label is stored 
into the specified area. 



12 The function does not follow a CLRGRPL 
function or an other ADDLBL function 
for the same label subarea- 

20 Contents of LPL are invalid. 

24 No more space available in label area- 

For all return codes other than no label 
is stored. 



The ADDNXL Function 



This function is used to i 
label information into the 
DOS/VS, job control produc 
each ■ // EXTENT 1 or ■ // XT 
for sequential files,. The 
the same ■ DLBL 1 informatio 
but differ in their • EXTEN 
As DOS/VS must support thi 
additional label informati 
a label area by the ADDNXL 
accessed by the GETNXL fun 



nsert additional 

label area. In 
es one label for 
ENT' statement 
se labels contain 
n (e.g.- filename) 
T* information- 
s function, 
on is inserted to 

function and 
ction. 



An ADDNXL function must therefore always be 
preceded by an ADDLBL or may follow an 
other ADDNXL function,- This must be true 
within one partition. 



Contents of LPL: 

AREA,AREALEN specify the location and 
length of the additional label information 
that is to be stored behind the label 
specified before- 

FILENAME is the file name contained in the 
label- All other parameters are ignored. 



Return codes: 



Successful request- The label 
information is stored. 

Within the partition, this function is 
not preceded by an ADDLBL or ADDNXL 
function with the same file name- 
Contents of the LPL are invalid- 
No more space available in label area. 



12 



20 

24 



For all return codes other than 0, no label 
information is stored. 



The ENDLBL Function 



In case of an FBA device, the label blocks 
are written on the device only if the block 
is completely filled up with labels- If 
the block should be written before it is 
filled up (because no more labels will be 
added) , SLA has to be informed via the 
ENDLBL function- 
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Contents of LPL: 

The LPL information is not used- 
Return codes: 

Successful request, the labels have 
been written on FBA- 

The REPLBL Function 



This function can be used to modify a label 
that was fetched before by a GETLBL or 
GETNXL function. It is not possible to 
change the length of the label or its 
logical or physical data set name. 

The REPLBL function must be preceded by a 
GETLBL or GETNXL function for the same file 
label. REPLBL and its preceding function 
have to be issued within the same task. 



Contents of LPL: 

Same as for the GETLBL/GETNXL function. 

Return codes: 

Successful request, the label is 

replaced. 
12 The replacement is not for a label just 

retrieved or changes fields which are 

not allowed to be changed- 
20 Contents of LPL are invalid- 



Ike CLRGRPi; Function 



With this function, a group of labels can 
be deleted from the label area- 



Contents of LPL: 

GROUP = PARTITION specifies that a label 
subarea of the partition is to be deleted. 

GROUP = SYSTEM specifies that the system 
label subarea is to be deleted. 

STORE = TEMP specifies that the temporary 
label subarea of the partition is to be 

deleted. 

STORE = PERM specifies that the permanent 
label subarea of the partition is to be 
deleted- 

The parameter STORE is not needed and is 
ignored if GROUP = SYSTEM is specified. All 



other parameters of the LPL are also 
ignored- 



Return codes: 

Successful request. All labels of the 
specified label subarea are deleted. 
20 Contents of LPL are invalid- 

For return code 20 no label is deleted. 



The GETLBL Function 



This function is used to fetch a label from 
a label subarea. The label is returned in 
the buffer specified in the LPL and it is 
either a label of the partitions temporary 
label subarea, the partitions" permanent 
label subarea or the system label area, 
wherever the label is found first. 



Contents of LPL: 

AREA,AREALEN specify the buffer where the 
label is to be stored. FILENAM is the 
search argument for the label- All other 
parameters of the LPL are ignored- 



Return codes: 



20 

28 



Successful request- The buffer contains 
the specified label. 
The specified label does not exist* 
The buffer length is smaller than the 
length of the label- But as much of 
the label as fits in the buffer is 
moved into it- 
Contents of LPL are invalid.. 
No GETVIS storage available. 



For all return codes other than and 8, 
the contents of the buffer remain 
unchanged- 

For return codes and 8, the two-byte 
field LPLLBLEN in the LPL will contain a 
binary value, specifying the length of the 
label. 

For return code 8, the buffer will contain 
the first part of the label. 



The GETNXL Function 



This function is needed if a label 
information of a sequential file consists 
of several parts (extents)- This function 
can only follow a GETLBL function or an 
other GETNXL function, i-e- the first or 
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only part of a label is always fetched by a 
GETLBL function and only if the extent 
information in the label indicates that 
more extents exist, which are not part of 
the label just fetched, then the additional 
information can be obtained by the GETNXL 
function,. (See also description of ADDNXL 
function. ) 

GETNXL and preceding GETLBL function have 
to be issued within the same task. 



Contents of LPL: 

Same as for the GETLBL function. 

Return codes: 

Successful request,- The buffer contains 

the specified label. 
4 No additional information does exist 

for this label. 
8 The buffer length is smaller than the 
length of the label- But as much of 
the label as fits in the buffer is 
moved into it.. 
12 Within the task, the function is not 
preceded by a GETLBL or another GETNXL 
function for the same file label. 
20 Contents of LPL are invalid. 

For all return codes other than and 8, 
the contents of the buffer remain 
unchanged* 

For return codes and 8, the two-byte 
field LPLLBLEN in the LPL will contain a 
binary value, specifying the length of the 
label.. 

For return code 8, the buffer will contain 
the first part of the label. 



The LOCGRPL Function 



This function is used to indicate to the 
label access routine (SLA) that the calling 
program (normally LSERV) intents to display 
the contents of the label subarea specified 
in the LPL. 

This function cannot be invoked by more 
than one task within the same partition.. 

No actual data transfer occurs.. After this 
function is issued the calling program can 
retrieve labels of the specified label 
subarea in their physical sequence by 
issuing GETNXGL functions (see description 
below). 



Contents of LPL: 

GROUP = pn specifies, that a label subarea 
of a specific partition is to be accessed, 
pn can be BG 1 F1 | F2 j etc.. 

GROUP = SYSTEM specifies, that the system 
label subarea is to be accessed,. 

STORE = TEMP specifies, that the temporary 
label subarea of the partition pn is to be 
accessed. 

STORE = PERM specifies, that the permanent 
label subarea of the partition pn is to be 
accessed. 

The parameter STORE is not needed and is 
ignored if GROUP = SYSTEM is specified. All 
other parameters of the LPL are also 
ignored.. 



Return codes: 

Successful request.. The SLA is ready to 
accept GETNXGL functions for the label 
subarea specified in the LPL.. 
4 The specified label subarea is empty. 
20 Contents of LPL are invalid* 
32 Updating in progress: Area not 
available. 

For all return codes other than 0, a 
succeeding GETNXGL function cannot be 
executed successfully. 



The GETNXGL Function 



This function treats a label subarea as a 
sequential file of labels. For each 
request, the function retrieves the label 
next in sequence from the label subarea 
which was specified by a preceding LOCGRPL 
function and stores it into the buffer 
specified in the LPL. 



Contents of LPL: 

AREA,AREALEN specify the buffer where the 
label is to be stored. All other 
parameters are the same as in the LPL 
specified with the preceding LOCGRPL 
function- 



Return codes: 

Normal request.. The buffer contains the 

label next in sequence. 
4 No more records in the label subarea. 
8 The buffer length is smaller than the 

length of the label. 
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12 



20 
32 



The function is not preceded by a 
LOCGEPL function or another GETNXGL 
function for the same label subarea. 
Contents of LPL are invalid. 
Updating in progress: Area not 
available. 



For all return codes other than 0, no label 
is stored and no further label can be 
retrieved from the label subarea specified. 



JC CONTROL FLOW 



Figure 10 shows the control flow of the job 
control program. 

The root phase, $JOBCTLA, can call seven 
different command processing phases: 



$JOBCTLD, E, F, G, J, K, and M* The phase 
$J0BCTLN has service functions for the 
following call conditions: 

called by A - when the $JOBACCT user routine 

was canceled, 
E - for all but the first EXEC 

statements of a job, 
G - at end-of-job 

(/&) and simulated EOJ, 
J - for a PAUSE EOJ statement. 

The phase provides an interface to job 
accounting and POWER/VS-E. 

The phase $JOBCTLK calls a subphase 
$JOBCTLB,. Phase $JOBCTLF calls the 
B-transient $$BLSTI0 to process the LISTIO 
and DVCDN commands. Phase $JOBCTLM calls a 
subphase $JOBCTLC. 
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Figure 10. Job Control Program Control Flow 



Figure 11 shows the control flow of the SLA program- 
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JOB CONTROL STORAGE MAP 



The job control program may run in the 
background or a foreground partition,. 
Figure 12 shows how this partition is 
divided. 



IJBJOA 


Partition Save Area 


IJBJOB 


$JOBCTLA 






Sub-phases ^ 


$JOBCTLX 




Partition GETV IS Area 



> Root Phase 



Figure 12. Job Control Storage Map 

Note: The part of $JOBCTLA from IJBJOB to 
the end is only used for initialization 
purposes when $JOBCTLA is loaded into the 
partition. 



LABEL AREA ORGANIZATION 



The label area is divided into lafcel area 
segments called LA Ses. For CKD-devices, 
one LAS is identical to one track. For FBA 
devices, one LAS has 2K bytes and, with a 
blocicsize of 512 bytes, this contains four 
blocks. 

The LASes are addressed by sequential 
numbers starting from zero- There is no 
fixed allocation of LASes to groups of 
labels. The use of LASes is organized by a 
label area control block called LACB. It 
indicates which label groups use which 
LASes or if a LAS is not in use- The LACB 
is stored in LAS number zero.. 

When the first label is to be written, the 
first free LAS is used. The LAS is then 
filled up by labels of the same group and 
if one LAS is not enough for the label 
group, several LASes are chained together. 
When a label group is cleared, the LAS or 
LASes are given back to the pool of free 
LAS's- 



DESCRIPTION OF LACB 



LACB Constant 



The first four bytes of the LACB contain 
the four characters • LACB 1 to indicate that 
this is a valid control block. 



LAS Pool 



The next 248 bits represent eacn LAS of the 
the system by one bit, the position of the 
bit showing the sequential number of the 
LAS in question and the status showing, if 
it is available- 
Bit is 0: the LAS is used or not 

existing 
Bit is 1: the LAS is free. 

When the LACB is initialized, as many bits 
as there are LASes in the label area are 
switched ON in the general LAS pool, and 
the first bit is set OFF again, because LAS 
number is used to store the LACB itself- 



Label Grou£ Entries 



Each group of labels has one entry in the 
LACB: 

Entry 1: SYSTEM STANDARD LABELS 

Entry 2: BG PERMANENT 

Entry 3: BG TEMPORARY 

Entry 4: BG FREE USAGE 

Entry 5: Fl PERMANENT 

Entry 6: F1 TEMPORARY 

Entry 7: F1 FREE USAGE 

and so on: 3 entries for each partition. 

Figure 13 shows the format of a label group 
entry in the LACB.. 

r fl 

|STARTLAS|LSASW | Label Group LAS Pool! 
I + + | 

|0002 |00 |00\101 ... | 

2 bytes 1 byte 248 bits 



Figure 13. Format of a Label Group Entry 



STARTLAS This field has two bytes and 

contains the sequential number 
of the first LAS occupied by 
the label group- If it contains 
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zeros the label group is empty,. 

LSASW This field has one byte and 

contains FF if the label group 
is in write process* Otherwise 
it contains 00.. 

The rest of the entry is the label group*s 
LAS pool and functions like the general LAS 
pool- 



HANDLING OF THE LACB 



Hoi fe2 occil£2 & fjree, LAS 



In the LAS pool, all bits are scanned 
for the first bit which is ON ('I 1 )* 
This bit represents the first free LAS 
of the label area. 

If the first M 1 bit is found, it is 
switched to to indicate that it is 
used now. 

In the entry of the group which requests 
the LAS, the bit with the same position 
is set to ■ 1» - 

If it was the first LAS for the group of 
labels, its STARTLAS bytes in the LACB 
are changed from zero to the number of 
the LAS. 

If it was not the first LAS for the 
group, the chaining address in the 
preceeding LAS has to be updated. 



How tg free an occupied LA§ 



A single label cannot be deleted, only 
the whole group of labels can be 
cleared,. 

If a group of labels has to be cleared, 
all LAS bits are OR-ed into the LAS 
pool: all M 1 bits of the entry are 
switched on in the LAS pool to indicate 
that the LASes are free again.. . 

Then the whole entry of the group is 
switched to ■ 1 , the START LAS bytes, 
the LSASW byte and all LAS bits* 



ORGANIZATION OF LABEL AREA SEGMENTS 



Contents gf a Label Area Segment 

The labels are written in the sequence of 

the DLBL/EXTENT commands* 



Fgr CfCD label areas, each 
represented by a physical 
key (8 bytes: first 7 byte 
byte = extent sequence num 
(data = label information, 
length). For each label w 
an I/O operation occurs., 
label is done by looking f 
key of the record (search 
operation) ,. 



label is 

record with count 
s - filename, 8th 
ber) and data 

variable 
riting/reading* 
Retrieving a 
or the hardware 
key equal 



£or FBA, the labels are gathered in the I/O 
area, until the size of an LAS is reached. 
Then an I/O operation occurs for the whole 
LAS. To retrieve a label, the whole LAS is 
read-. The search within the LAS has to be 
done by program logic. 

For internal organization of an LAS on FBA 
see next chapter. 



Chaining q£ f4§es 



If there is not enough space in one LAS 
for the labels of a group, several LASes 
are chained together. 

- The number of the first LAS in a chain 
is contained in the STARTLAS bytes in 
the LACB. If these bytes are zero, the 
group of labels is empty (each group of 
labels has its own chain and start 
address) . 

^ LA£es are chained together with a 
chaining address which contains the 
sequential number of the next LAS in the 
chain. 

- The chaining address is part of the LAS: 

• For FBA: first two bytes of each LAS 
(containing zero for last LAS in 
chain) . 

• For CKD: each not-last-LAS in chain 
contains a chaining record as last 
record of the track. The chaining 
record is identified by a special 
8-byte key and has a data length of 
one byte, containing the chaining 
address. 

If there is no chaining record on track, 
the LAS is the last in chain. 
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Format of a LAS on FBA 



Figure 14 shows the format of a LAS on FBA,. 
01 23 45 67 <..... bytes 

r i r i 
|CA LL LI LAB1 L2 LAB2 L3 LAB3| Ln LABn | 

L J L J 

I I I 

| | L 2 bytes: label length 

| L 2 bytes: LAS length used 

L 2 bytes: chaining address 



Figure 14.. LAS Format on FBA 



Chaining Address (at the beginning of each 
LAS) 

• Zero, if it is the last LAS in chain.. 

• Non-zero: containing sequential number 

of next LAS in chain, 

LAS length used: indicates how many bytes 
are used within the LAS (after chaining 
address of each LAS) - 

Mk^i leng th : before each label, there are 
2 bytes, containing the length of the label 
information (not including the length 
field). 

For detailed layout of label see DOS/VS 
DASD Labels. 



INITIALIZATION FOR SLA 



PROVIDE SYSTEM GETVIS STORAGE 

• SLA needs system GETVIS storage for 
work buffers and I/O buffers- A 
special area is installed in the SVA 
during IPL: When the SVA and the system 
GETVIS area is created, the highest 
storage area is reserved for SLA. This 
area is divided into: 

a general workarea with key 0.. 

one workarea for each partition with 

the appropriate storage key in each 

area. 

• Each of those areas has a size of 6K„ 

• The start address of the SLA area is 
stored in the 4-byte field IJBSLACB of 
the system communication region. 

• The layout of the SLA GETVIS storage is 
shown in Figure 15,. 





1 

SVA ! 


IJBSLACB^ 


System GETVIS 1 




Area with Key 




Area with Key of BG 




Area with Key of Highest Partition 







Area with Key of F1 



SLA 
Work Areas 



Figure 15- SLA GETVIS Storage Layout 



STORE SYSTEM INFORMATION IN WORKAREA 



IPL also stores the information about the 
physical location of the label area and the 
procedure library for SLA and JCL in a 
workarea. MAINT modifies this information 
if necessary* 

The address of this workarea is contained 
in the four byte field • IJBSLACB" in the 
system communication region. 

This workarea has protection key zero- 
This means that all components which have 
to store or modify something in the area, 
also have to have key 0. 



The Layout in the Information Area is as 
follows: 



1- For FBA: 



Procedure Library 



) 



0- 3 NNNN Start Address of 

Procedure Library ) 

4-7 NNNN Relative displacement ) 

to first block ) *) 

8-11 NNNN Relative displacement ) 
to last block ) 
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Label Information Area 



12-15 NNNN 



16*19 NNNN 



20-23 NNNN 



24-29 NNNNNN 



Start Address of Label 
Information Area 
Relative displacement 
to first block 
Relative displacement 
to last block 
Number of partitions 
of supervisor last 
IPLed (bytes 2Q, 29) 



corresponds to bytes 36-65 of the 
FBA system directory block 



2- For CKD: 



Procedure Library 



12-13 NN 



14-15 CC 



24-29 NNNNNN 



Number of label 

cylinders on this 

device 

Address of the file 

definition storage 

cylinder (s) /label 

cylinder (s) 

Number of partitions 
of supervisor last 
IPLed (bytes 28, 29) 



***) 



****) 



**) corresponds to bytes 0-6 of the 
system directory record no- 4 

***) corresponds to bytes 76-79 of the 
system directory record no,* 1 

****) corresponds to bytes 60-65 of the 
system directory record no* 4 



0- 6 BBCCHHR Starting address of ) **) 
the procedure library ) 



11Q FLQtf QF T£E JQB CCDNJjROL PROGRAM 



The job control program uses the following logical I/O units: 




SYSRES 

(Supplies SYSRDR and 
SYSIPT data for 
cataloged procedures) 

SYSLOG 



Figure 16. Job Control I/O Flow 
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PROGRAM ORGANIZATION 



GENERAL CHARTS 



On-page connectors are such: 



GENERAL CHARTS CONVENTIONS: 





A unit of programming, routine, 
CSECT, or phase, is contained in 
one box like this: 



XXX 



Off-page connectors are such: 



Table E 



© 



r 

lyyy 

! 

M- ) 

| 2- ) step numbers 
13. ) 



zzz 



CONTROL 
3 
Where: 




The number in the frame marks 
the chart from or to which we 
go« 

The word above (incoming) or 
below (outgoing) marks the label 
(routine) on that chart. 



Where: xxx marks the label and routine 
name 

yyy says shortly what the 
routine does 

zzz is the reference to the 
detail chart (s) 



The number under the word marks 
the step within the routine to 
which we go if it is not step 1. 
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Chart 01* IPL Bootstrap Processing (AA-AD) 




CKD-SYS R ES Bootstrap 



Chart AA 



1. Perform hardware IPL according to CPU 
Mode! (43xx or /370): 

2. Hardware reads phase $$A$ IPL 1 into 
LOC O-X'90'. 

3. Phase $$A$IPL1 reads phase $$A$PLBK 
into LOC X'3Q00'-X'3FFF\ 



$$A$PLBK 



FBA-SYSRES Bootstrap 



Chart AB 



1. Perform hardware IPL according to CPU 
Model (43xxonly). 

2. Hardware reads phase $$A$ IP LO into 
LOC 0-X'90'. 

3. Phase $$A$IPL0 reads phase $$A$PLBF 
into LOC X'200'-X'FFF\ 



Determine Hardware and SYS RES Charact. Chart AC 



1. Determine type of hardware (43xx/370). 

2. Determine size of real storage. 

3. Determine SYS RES device characteristics 
via VTOC Format-4 record. 

4. Get library extent information. 

5. Load phase $$A$I PLR at end of real 
storage and pass control to it. 



$$A$PLBF 



Determine Hardware and SYSRES Charact. Chart AD 



1. Determine type of hardware (43xx/370). 

2. Determine size of real storage. 

3. Determine SYSRES device characteristics 
via special command. 

4. Get library extent information. 

5. Load phase $$A$I PLR at end of real 
storage and pass control to it. 




Note: Charts AE-AH 
contain subroutines 
which are used 
repeatedly by the 
main processing 
routines. 



Load Supervisor, Build 3-device System 



Charts BA-BM 



1 . Prepare for operation with/without $$A$CDL0 

2. Locate system console (SYSLOG). 

3. Request a SYSLOG device. 

4. Request a supervisor name, i 

5. Initiate system. 

6. Build communication area for CMD-processing (IOFLD). 

7. Locate I PL communication device (SYSUSE). 

8. Build 3-device system l/O-tables. 

9. Initialize program management. 

10. Pass control to IPL command processing 



$$A$CDL0 (Sample) 



Communication Devices 




0009 


= 1050A 




001 F 


= 3125 




oooc 


= 2540R 




041 F 


= 3540 




0420 


= 3277 




02 



$IPLRT2 
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Chart 02* $IPLRT2 - Command Processing Root (CA-CL) 



FETCH6 " 



03, 
04 




£> 




x 



Load$IPLRT4 
and perform first | 

(shift PUBs, etc.) 



1. Load $IPLRT4 and perform 
second pass. 

2. Load $IPLRT6 to process SVACMD. 



BEGIN 



( $IPLRT2 J 



Initialization 



Charts CA, CB 



The screen image for 3277 is initialized. 
The diskette is opened if it is the input 
device. The number of PUBs in use is 
calculated. 



READGO 



Check TOD Support 



Chart CB 



The TOD clock is stored and its state is 
checked. If the clock is in the 'set-state', 
the current system date, time-of-day, 
and zone are displayed. 



MONITOR 



Read and Evaluate IPL Command Chart CC 



The command is read and evaluated to 
determine the type of operation (ADD, 
DEL, SET, DEF, DPD, or SVA). After 
the operation code is analyzed, control 
is given to the appropriate routine to 
service the command. 



Pass 2 



FETCH7 



03 I CYLDP 



Load $IPLRT7 to perform final 
IPL processing. 



( E0J ^ 

\^ Exit from IPL J 




Type of Command 



GETDPD 
GETDEF 



D* DELJ SETjf SVAJ 
© © © © 



Monitor Storage Usage 



Load $IPLRT4 if it is not already in 
storage and perform first pass. 



Monitor Storage Usage 



Load SIPLRT5 if it is not already 
in storage 




Issue Error Message 



GETADD 



Monitor Storage Usage Chart CD 



Load $IPLRT3 (and $IPLRT4 if there 
is enough space). 




ADDRTN 




Issue Error Message 



Monitor Storage Usage Chart CD 



Load $IPLRT3 (and $IPLRT4 if there 
is enough space). 





Monitor Storage Usage Chart CE 



Load $IPLRT4 if it is not already in 
storage. 



Q 



SETRTN 




04 



$IPLRT5 
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Chart 03«. $IPLRT3 and $IPLRT4 - ADD, DEL, SET Command Processing (DA-ET) 



RELO 



m 



($IPLRT4 *\ 
Set CMP J 




02 



SETRTN 



Set Time of Day Routine Charts EA, EB 



The TOD clock is set in accordance with the 
DATE, CLOCK, and ZONE specifications. 
The FDSRTN subroutine gets the operands 
from the command. The DATIMERT 
subroutine converts the operands to a 64*bit 
binary value used to set the TOD clock. 
A GET I ME macro is issued to update the 
midnight value in the supervisor (SVC 34 
routine) if TOD is supported. 



MONITOR 

($IPLRT4 A 
First Pass / 



PASS1 



Assign SYSRES and SYSLOG Charts EA, EB 



The PUBs for SYSRES and SYSLOG or 
SYSRDR are checked to insure that they are 
assigned only to a single logical unit and that 
they are properly built. The PUBs are then 
permanently assigned as the system residence 
unit and the system communication device. 



CYLDP 



Move System I/O Tables to Supervisor Chart EC 



The system I/O tables are moved to their 
permanent location in the supervisor area. 

1 . If there are non-operational DASD 
devices in the PUB table, the pUB is set 
to 'device down' and the LUB is 
unassigned. 

2. The AVR table is initialized, the PUBSCAN 
tables and the PUB2 table are built and 
TMS options are checked. 

3. Several supervisor tables are allocated. 

4. Return to SETOK2. 




GETDPD 



© 



ADD 



DEL 



ADDRTN 



Add a Device Routine 



Charts DA, DB 



The first operand is checked for a key field 
(multiplex or burst device indicator). The 
channel and unit numbers are checked and 
converted to hex. The third operand, if any, 
is then processed. The BLDPUB subroutine 
adds the device to the PUB table. The CHURTN 
subroutine updates the FOCL. The LUURTN 
subroutine updates the LUB table entries if 
required for the PUB just added. After the 
I/O tables are updated, the routine returns to 
MONITOR to read another command. 



MONITOR 



DELRTN 




Delete a PUB Routine 



Charts DC, DD 



The operands of the DEL command are 
converted to hex and the PUB table is 
searched to find the PUB to be deleted. 
All PUB entries beyond the PUB to be 
deleted are moved up one entry, overlaying 
the selected PUB. The FOCL and LUB tables 
are updated at CHURTN and LUDRTN 
respectively, so they do not point to a 
nonexisting PUB. After the I/O tables are 
updated, the routine returns to MONITOR 
to read another command. 



($IPLRT4 ^\ 
Second Pass J 



PASS2 



MONITOR 



The tables behind the supervisor are 
finally allocated. The operator is prompted 
for a SET, DEF, DPD command if the 
information of these commands is missing. 
Return to SETOK3 in root phase. 



© 



FETCH6 
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Chart 04- $IPLRT5, $IPLRT6, $IPLRT7 - DEF, DPD, SVA Command Processing and XPL 
Termination (EU-FG) 



$IPLRT2 



DEF 



IJBIPL5 




Assign SYSCAT and SYSREC 



Charts FA-FG 



1. Analyze DEF command 

2. Assign the VSAM catalog, SYSCAT and the 
system recorder file, SYSREC, to the specified 
physical device 



MONITOR 
3 

f $IPLRT6 J 



IJBIPL6 



Process SVA command 



Chart EU 



1. Analyze SVA command. 

2. Load CI L directory entries of all system phases 
that have to be loaded into the SVA. 

3. Sort these entries 



RELO 
3 



5> 

FETCH7 



DPD 



IJBIPL5 



Define Page Data Set 



Charts FA-FG 



1. Analyze DPD command. 

2. Open page data set. 

3. Format the page data set if it has not been 
formatted or if it must be reformatted (only for 
CKD devices). 

4. Check if the volume specified in the VOLID 
parameter (if any) matches the VOLI D on the 
specified unit. 

5. Update parameters for the load leveler 



IJBIPL7 



^L 



MONITOR 
3 

f $IPLRT7 ) 



Last processing of I PL 



Chart EV 



1 . Set clock comparator, if I nterval Timer suppor- 
ted. 

2. If there are any 3203s PRT1 s, or 5203s, 
1403Us, or 3800s in the PUB table, load 
$$BUFLDR. 

3. Complete LUBs and PUB-ownership tables. 

4. Alloc (virtual storage). 

5. Switch from real to virtual status. 

6. Shift SDL-entries into SVA and load SVA. 

7. Alloc (real space, for 370 only). 

8. Issue I PL-complete message 



$$8UFLDR 



( Exit from I PL J 
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Chart 05.* SSBUFLDft - 32Q3, PRT1, 5203, 3800, and J1403U Buffer Load Eoutine 



RELO 




( $$BUFLDR J 





IPL UCB Loading 



Charts FH-FK 



Searches the PUB table for 3203, PRT1, 5203, 3800, or 1403U. 
Loads the UCB with standard loads, or initializes 3800 and re- 
turns to IPL 

1. Save SYS LOG LUB for later printing of console messages. 

2. Scan PUB table for 3203, PRT1, 5203, 3800, or 1403U. 
If 3800 give initialize command and print message 01691. 

3. If no more entries, return to$IPLRT7 — " 

4. Point SYSUSE LUB to printer. 

If dummy device, return to PUB scan — 

5. Load $$BUCBxx (see Note). 

If error occurs, call $$BUFLD2 *- 

If 3800, initialize and print message 01691 - — " — ■ — 

If error occurs, print message 01701 

6. Call$$BUFLD1 — 

If 1403U go to 

7. Print message 0I26I and return to PUB scan 




6 



f $$BUFLD1 \ 




IPL FCB Loading 



Chart FK 



Loads the FCB with standard loads and returns to root phase. 

1. Align paper. 

2. Load $$BFCBxx (see Note). 

If error occurs, call $$BUFLD2 

3. Return to step 7 in $$BUFLDR. 




f $$BUFLD2 \ 



6 



IPLRT7 



IPL Buffer Loading Error Subroutine 



Chart FK 



1. Test for error type, issues appropriate message, and returns to 
next logical step in $$BUFLDR. 

2. Print message 0I27I UCB (or FCB) LOAD FAILURE and 
substitute dashes for failing load name in message 0I26I. 

If UCB failure, return to step 6 in $$BUFLDR ^~ 

If FCB failure, return to step 7 in $$BUFLDR 








Note: 

xx- I0for3289-E 
feo for 3211 
00 for 3203-4 
3b for 3203 
5b for 5203 
4bfor1403U 



PRT1 



48 D0S/VS IPL and Job Control Logic 



Chart 06. SYSBUFLD - Load Print Buffers Program (FM-FS) 



f 1 J ( SYSBUFLD J 



ALPHA 



Load UCB 



Charts FN-FQ 



1. Read a control statement. If end of file 

2. Check the operation (FCB or UCB) and logical unit (SYSxxx). 
• Invalid operation: If non- LOG system, 



• Invalid SYSxxx: 



if UCB specified for 5203 without UCS 
feature, or FCB specified for 1403U, 

issue message 1B10 

otherwise, issue 1 B02A and wait for 
operator response. 

If non-LOG system, 



otherwise, issue 1 B02A and wait for 
operator response. 

3. Check the physical unit for a supported printer. 

• Invalid physical unit: If non-LOG system; 



otherwise, issue message 1 B1 1 D and 
wait for operator response. 

4. Check phase name. 

• If invalid phase name or no phase name, with UCB load, 
issue message 1 B03I. 



5. Check optional operand. 

• If FOLD or NOCHK and FCB load, issue message 1B0nl 
(n indicates position of invalid operand). 

6. If this is an FCB load, then load SYSBUFF1 

(see part 2 of this chart) 

7. Alter CCW string to add optional operands. 

8. Load subphase (UCB LOAD). 

9. If phase is not large enough for UCB load, issue message 1B03I.- 
10. Load UCB buffer: 



( SYSBUFF1 J 



BUFFERIN 



Load FCB 



Charts FR-FS 



1. If card load: 

• Read until end of buffer reached. If more than 112 (5203), 
180 (2245), 192 (3203), or 255 (PRT1) print positions 
read, issue message 1 B03I . 

2. If phase load, load phase. 

• If phase length is not 192 (5203), 260 (2245), 261 (PRT1 
printer with indexing on), 272 (3203), 335 (PRT1), or 
336 (PRT1 with indexing on), issue message 1B03I. 

3. Ensure that forms are positioned at channel 1. 

4. Load FCB buffer. 

5. Load SYSBUFLD. 



I SVC 14 J 



(CANCEL A 
SVC 6 J 



(CANCEL A 
SVC 6 ) 



-O 
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Chart 07. $JOBCTLA (Part 1 of 2) - Job Control Root Phase (GA-GY) 



JOBCTL 



( $JOBCTLA J 



Initialization 



Charts GA, GB 



Initializes the job control program as follows: 

1 . Loads base registers. 

2. Seizes control of the system. 

3. Sets up a table of NICLS and FICLS for 
system and programmer units in each 
partition. 

4. Resets conditions in $UBSLA for that 
partition by specifying an ENDLABEL 
function. 

5. Checks available record counts if system 
units are supported on a DASD device. 

6. Saves the LUBs to unassign extent JIBs 
of the previous job step. 

7. Initializes the job control program for 
procedure processing if required. 

8. The first time after I PL, a user-written 
phase, $SYSOPEN, is loaded and gets 
control. After $SYSOPEN is executed, 
control is returned to $JOBCTLA. 

The virtual storage area that contains this 
coding (1-9) is used as overlay area for the 
other job control subphase. It is placed 
at the end of the resident part of 
$JOBCTLA. 



CONTROL 



BTLOOP-6 
08 



Control Statement (Command) Read Chart GC 



1. Checks SYSRDR assignment to see 

if the job control statements can be read, 
read. 

2. Checks if procedure modification is 
necessary. Reads overwrite statements, 
if requested, and tests for overwrite end. 

3. Tests for end-of-job (/&), and end-of -procedure 
(/+) statements. 

4. Reads control statements and, if a cataloged 
procedure is being processed, modifies the 
procedure according to any modifier 
(overwrite) statements submitted. 

5. Processes cataloged procedure statements. 

6. Checks column 1 to determine if statement 
or command. // in columns 1 and 2 indicate 
a statement. 

7. Scans the control statement or command 
for the first entry (may be //, /*, *, /&, /+, or 
the operation code). Performs initialization 
for the phase vector table lookup. 




08 



08,9.1 

10 

12 
v^5-24^ 



BTLOOP 
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Chart 08. $JOBCTLA (Part 2 of 2) - Job Control Root Phase (GA-GY) 



BTLOOP 




O 



Phase Vector Lookup 



Chart GE 



1 . The phase vector table is searched for an argument that 
is equal to the current operator code (register POINT1 

is pointing to column 1 of the statement or command, or 
to the first character of the operation field). 

2. If the phase $JOBEXIT is present in the SVA, an exit 
is made to check each job control statement. A return 
code of zero must be set in register 15. If the return 
code is nonzero, the job control statement is treated 
as a comment. $JOBEXIT returns control to job 
control via link register 14. 

3. The operand is checked for validity. 

4. The statement (command) is logged as specified in the 
condition switches of the found entry. 

5. If the correct processing phase is not in virtual storage 
it is loaded (SVC 4). 

6. Processing for //, /*, *, IGNORE or OVEND is in the 
root phase and they are processed as follows: 

// - The statement is scanned to make the next 
operand (operation field) available for 

processing. Exit to 

/*— Ignored. Exit to — 

* — Ignored. Exit to 



IGNORE - The Job Control input switch is set 

to indicate SYSRDR. Exit to 

OVEND — Switches are set to prevent any 
more overwrite statements being 
read for this procedure. Exit to 

Control is transferred to the correct processing routine 
as specified by tables A, B, C, D, E, F, or G for all 
other operands. 



o 




_*J 07 



CONTROL 
(Stmt. 6) 



CONTROL 



Besides these principle parts, $JOBCTLA contains a number of subroutines 
which are called by the rest of job control: 



RLINDT 

EXCPRG 

SCANR2 \ 

SCANR3' 

NVSERRi 

ERRRTNf 

oerrtn' 

LOGOUT 

LSTOUT 

MSGOUT 

CHKASG 

CHKASG3 

LOGCHK 

MTNCNT 

IGNORE 

FETCHRF 

WAITERR i 

SYSERR J 

OVEND 

SETAPRT 

INITDIB 

CONTROL2 

ERRRTNO 



Read a statement 
Perform I/O 

Scan for operand in statement 



Error routines 

Log a statement on SYSLOG (if not logged already) 

List a message/statement on SYSLST (if not listed already) 

Log a message on SYSLOG 

} Check if a SYSnnn is assigned 

Check for SYSLOG device type 
SEIZE/RELEASE control 
Switch input to SYSRDR 
Call subphase 

} Error routines 

Process OVEND statement 
Call 3800 buffer load routines 
Initialize FBA DIB 
Process a generated statement 
Error routine 



Table A 






Table B 


Phase $JOBCTLD 






Phase $JOBCTLF 






Operation Chart 


Operation Chart 


ASSGN 10 






DVCDN 15 


CLOSE 10 






DVCUP 15 
LISTIO 15 
MAP 15 










RESET 15 






UNBATCH 15 


Table C 






Table D 


Phase $JOBCTLG 






Phase $JOBCTLJ 






Operation Chart 

CANCEL 17 
EOJ-/& 17 
EOP-/* 17 
JOB 17 
OPTION 16 


Operation Chart 

ACTION 19 
ALLOC T8 
ALLOCR 18 
CATALR 20 
DATE 20 
ENTRY 19 
HOLD 19 










INCLUDE 20 






LOG 18 






MTC 20 






NOLOG 18 






PAUSE 18 






PHASE 19 






SET 20 




I 


SIZE 18 




I 


STDOPT 19 






STOP 18 






UCS 19 






UPSI 20 






ZONE 20 


Table E 






Table F 


Phase $JOBCTLK 






Phase $JOBCTLM 






Operation Chart 


Operation Chart 


DLAB 21 






ROD 23 


DLBL 22 
EXTENT 22 












LBLTYP 21 






RSTRT 22 
SETPRT 22 
TLBL 22 






Table G 




Phase $JOBCTLE 


TPLAB 21 
VOL 21 
XTENT 21 


^ 


r 


Operation Chart 

EXEC 14 
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Chart 09- $JOBCTLB - Restart Processor (HA-HD) 
RSTRT 




f $JOBCTLB J 



RSTRT 



RSTRT Statement Processor 



Charts HA-HD 



Function: 

1. Locate required checkpoint records 
on specified device (tape or 231 1, 
2314, 2319, 3330/3333, 3340, 3350, 
orFBA). 

2. Compare CHKPT and RSTRT partition 
allocations. 

3. Restore PUB2 extensions for 3800 
printer device. 

4. Restore communication region fields 
necessary to execute the checkpointed 
program. 

5. Restore saved EXTENT information to 
J.I BS or System-Extent-Area if DASD 
File Protect is supported. 

6. Prepare partition save area to continue 
RSTRT calling $$BRStRT.** 




ERROR 



Yes 



No 



Invoke INVPART to clear and prepare 
the partition to load and restart the 
checkpointed program. 



( $$BRSTRT** V 



Error conditions causing a message to be issued by 
SJOBCTLB: 

1. An invalid restart unit is specified. 

2. The specified checkpoint is not found on the 
specified device. 

3. PFIX option in supervisor missing. 

4. DASD File Protect option in supervisor missing. 

5. Different system mode of CHKPT and RSTRT 
system (ECPS: DOS/VS and/or 370). 

6. 3800 printer support in supervisor missing. 

7. 3800 assignments different in HCKPT and RSTRT 
or not the expected device. 

8. Restore of PUB2 extensions for 3800 printer 
device fails. 

9. Partition allocations of the RSTRT partition 
does not match the checkpoint requirements. 

10. Different device type assigned to a logical unit for 
which EXTENTS are to be restored. 

11.1 nter na I RST RT error detected. 



( CANCEL J 



See DOS/VS Logical Transients and Dump Phases Logic. 
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Chart 09,1 $JOBCTLC - Write Hard Copy File (HM-HS) 




( $JOBCTLC J 



MAI NOP 



Hard-copy File Initialization 



Charts HM-HN 



A hard-copy file is initialized in accordance with the option 
specified in the SET command. If OPEN is not successful and 
the display operator console (DOC) does not have a printer 
attached, message 1 195A is issued and the system enters 
a hard-wait state. If OPEN is not successful but the DOC 
does have a printer, message 11971 is issued and the system 
does not enter a hard-wait state. 

• If HC=CREATE, the system creates a new hard-copy 

file 

• If HC=YES, an active hard-copy file exists. 



ROD00 



For Writing of HC Buffer 



Charts HP-HS 



For a blocked hard-copy file (FBA), the current hard-copy 
buffer contents are written to the hard-copy file. 




07 



CONTROL 



Create Hard-copy File 



Charts HP-HS 



Creates and formats a hard-copy file. If the extent for the 
hard-copy file does not have a minimum of ten tracks for 
CKD or of 50 blocks for FBA, message 1 199A is issued and 
the system enters a hard-wait state. After formatting, the 
message DOS/VS IPL SUCCESSFULLY COMPLETED 
will be written as first record to the hard-copy and the 
current address will be updated (no statement issued 
before the first JOB statement, or the first JOB statement 
itself is written to the hard-copy file). If an irrecoverable 
I/O error occurs during formatting or writing, message 
1 196A is issued and the system enters a hard-wait state. 



Scan Hard-copy File 



Charts HP-HS 



If an active hard-copy file exists, it is read until the current 
and the wrap-around record have been found. The current 
address marks the location in the hard-copy file to which 
the next record from the DOC will be written. The wrap- 
around address marks the first location in the hard-copy 
file that has not yet been printed during the previous run 
of the PRINTLOG utility. When the current and the wrap- 
around address have been found, the message DOS/VS IPL 
SUCCESSFULLY COMPLETED, will be written to the 
hard-copy file and the current address will be updated (no 
statement issued before the first JOB statement, or the 
first JOB statement itself is written to the hard-copy file). 
If an irrecoverable I/O error occurs during the search for 
these two addresses, message 1 196A is issued and the 
system enters a hard-wait state. 



CONTROL 
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Chart 10.. $JOBCTLD - Main Routines ASSGN and CLOSE 

Table A 




f $JOBCTLD j 



ASSGN 



O- 



Main routine ASSGN 



1. Initialize fields and switches. 

2. Process CSECT OPERSCN 

3. Process CSECT ERRCHK 

4. UA or IGN assignment? 
YES J NO — © 

5. Process CSECT ASSIGN from 

entry point ASSGN20 

6. Branch to © 

7. Process CSECT FINDPUB 

8. Process CSECT ASSIGN 

PROGRAM UNIT or ALT assignment? 
NO ♦ YES -*■ © 

9. Process CSECT OPENSYS 



10. EXIT: Inform the operator of the 
device assigned if necessary. Give file 
protect message for system output 
units on tape if necessary. 
Branch to root phase 



CLOSE 




(5 

ERRCHK 



5 

OPERSCN 






12 



ASSIGN 
3 



C LOSESY S 



Main routine CLOSE 



1. Initiative fields and switches. 

2. Process CSECT CLOSESYS - 

3. Branch to root phase 



4. CLOSO: Entry point which is used as 

return address by CLOSESYS 
if the closed unit is to be 
reassigned. 

5. Process CSECT OPERSCN from entry 
point ASSGN — 

6. Branch to ® in main routine 
ASSGN — — 




CONTROL 



6 



OPERSCN 
3 
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Chart 11- $JOBCTLD - CSECTS OPERSCN, ERRCHK, and FINDPUB 



CLOSE 
10 




( $JOBCTLD J 



OPERSCN 




ASSGN 



Scan and Check Statement 



1. Tests for statement or command and sets switch for temporary 
or permanent assign. 

2. Checks and converts SYSxxx to the symbolic unit address, 
logical unit, and class. 

• The unit cannot be SYSRES, SYSREC, SYSVIS or 
SYSCAT. 

• Assignment of SYSCLB is only allowed if the supervisor 
supports PCI L. 

• Assignment of SYSLNK in the foreground is only allowed 
if PCI L is supported. 

• Assignment of SYSLOG is only allowed in the background. 

3. ASSGNO: ENTRYPOINT FOR CLOSE 

• The unit cannot be SYSLOG if any foreground program is 
loaded, or if the Attention Routine is active. 

4. SCNOPRS: 

• The second and following operands are scanned, and 
information is stored in INFOTAB. 

• H1 and H2 are only valid for MFCM/MFCU devices. 

• MODE (X'ss') can only be specified for tapes. 

• SHR can only be specified for disks. 

• ALT can only be specified for tapes. 

• VOL = can only be specified for tapes, disks, and diskettes. 

• SYSyyy cannot be SYSOUT. 

• If SYSyyy is SYSIN, SYSIPT and SYSRDR must be 
assigned to the same device. 



ASSGN 7 



FINDPUB 




( Return J 



Select the PUB that Can Be Assigned 



Checks the status, the volume serial numbers, and the 
ownership to find a device that matches the specifications 
in the ASSGN (CLOSE) statement 

Requests to mount a volume with the specified volume 
serial number, if not already mounted 

Informs the operator of the cuu of the device to be assigned. 



I Return J 



ASSGN 
10 I 3 



ERRCHK 




Perform Additional Error Checking 
On Specifications 



If the second operand is UA or IGN, no other operands 
except TEMP and PERM are allowed. 

Only programmer logical units can be assigned to a 2245 

printer. 

SYSCLB can only be assigned to disk. 

If SYSRDR, SYSIPT, or SYSIN is assigned, SYSLOG must 

be assigned to a 1052 or CRT device. 

If SYSLOG is assigned to a non 1052/CRT device, SYSRDR 

must be assigned. 

An assignment for SYSCLB or SYSOUT must be permanent. 

If a system I/O unit is assigned to disk, SYSFIL must be 
supported and the assignment must be permanent . 

If a system I/O unit is assigned and the old assignment was 

to a disk, the system file must be closed. 

If an ALT assignment is made, the logical unit must already 

be assigned to tape. 

If an ALT assignment is made for SYSOUT, the system must 

be in SYSOUT mode (SYSLST and SYSPCH must be assigned 

to the same device). 

Of the system units only SYSPCH, SYSLST, and SYSOUT can 

be assigned ALT. 

If the ALT assignment is TEMP, the logical unit must be 

temporary assigned. 

If the ALT assignment is PERM, the logical unit must be 

permanent assigned . 

It is not allowed to give a TEMP assignment for SYSPCH 

or SYSLST if the system is in SYSOUT mode. 

For a TEMP assignment of SYSIN, two JIBs must be available 

The proper CRT support must have been generated when 

assigning SYSLOG. 

Checks for physical compatibility between the devices and 

the logical unit to which they are to be assigned. 



f Return J 
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Chart 12. $JOBCTLD - CSECT ASSIGN 



ASSIGN 





Prepare and Do Assignment 



1 . Prepare the assignment : 

• The MODE byte is initialized, 

• If a volume has to be mounted, a message 
will be given and the partition goes into the 
wait state. After a given NEWVOL 
command the volume serial number is 
checked again. If NEWVOL IGNORE is 
specified, control is returned to the root 
phase. ______ 

2. Is assignment ALT? 

NO | YES — *- (3) 

3. ASSGN20: Entrypoint for the main routine 

ASSGN 

• Permanent assignment? 

YES | NO 

4. Prepare permanent assignment 

• Complete the CLOSE for the file if one is 
in progress, 

• If SYSOUT is assigned and the assignment 

is for SYSLST, the JIB pointer in the SYSLST 
LUB is zeroed # 

• If SYSOUT is assigned and the assignment is 
for SYSPCH or SYSOUT, the JIB pointer in 
the SYSPCH LUB is zeroed, 

• Reset the LUB to permanent unassigned, 

• New assignment to UA or IGN? 

NO | YES — ► © 

• If the new assignment is for MFCU/MFCM 
the hopper information is set in PUB +5# 

• If the new assignment is for tape and a MODE 
was specified, the standard MODE in PUB +7 
is changed. 

• If the assignment is for SYSIPT or SYSRDR, 
reset the 80/81 byte indicators, 

• Update the SET MODE byte of the PUB 
(PUB +5). 

5. Branch to (lj : Make assignment. 



6 



CONTROL 



•0 



O 




Prepare and Do Assignment 



6. Prepare temporary assignment 

• Complete the CLOSE for the file if 
one is in progress, 

• Attach a JIB to the new LUB in the work 
area. 

• Save permanent assignment in the JIB. 

• If the assignment is for SYSRDR or SYSIPT^ 
save and reset the 80/81 byte indicators. 

• If the assignment is to a MFCU/MFCM, 
set hopper specification. 

• If the device is a tape and MODE was 
specified, update the SET MODE byte 
in PUB +5. 

7. Make actual assignment. 

• Make the actual assignment by moving 
the new LUB from the work area to 
the LUB table. 

• If the assignment was for SYSLOG and 
the device is CRT or 1052, CUU is set 
into system COM REG. 

• Insert ownership bit into PUB OWNER 
TABLE. 

• If the assignment was for SYSIN, 
SYSIPT must also be assigned. 

• If the assignment was for SYSOUT, 
SYSLST must also be assigned* 

• If SYSLST has been assigned, reset the 
line count to one. 

8. Branch to @ 

9. Make alternate assignment in the JIB and 
set the ownership bit in the PUB OWNER 
TABLE. 



10. 



Return to calling sequence in main 
routine. 



( RETURN J 
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Chart 13. SJOBCTLD - CSECTS OPENSKS and CLOSESYS 



OPENSYS 




Open SYSCLB, Open System I/O Units 
on DASD/Tape 



1. Update several DTF-values for DASD 
devices. 

2. Open SYSCLB 

• Is ASSGN for SYSCLB? 
YES j NO -* ® 

• SYSCLB is opened. 

• The FETCH table entry is filled in , 

• The second level directory is built, 

• Check if SYSCLB is already assigned 
and being condensed in another 
partition. If yes, unassign SYSCLB 
again. 

3. Open SYSTEM I/O units on DASD/Tape 

• System I/O file? 

YES \ NO — +* 
. Set up the DTF for OPEN .. 

• Open the file , 

• Initialize DIB entry if system file is 
on disk « 

• Set the 80/81 byte indicators (a record 
is read to find out the record size) for 
SY&PT/SYSRDR. 

4. Return to calling sequence in main routine. 



CLOSESYS 




(■ RETURN ) 



CLOSE Statement Processor 



1 . Close a logical unit 

• The unit may optionally be reassigned to 
another device made U A or I GN, or if a 
tape it may be specified as an alternate 
(ALT) unit. If the unit is a system unit, 
one of the optional operands must be 
specified • 

• If an optional operand is not specified, 
the programmer logical unit is closed 
and the assignment remains unchanged « 

• Is optional operand ALT? 

YES I NO 

2. An ALT assignment specifies that the 
logical unit is to be closed and an 
alternate unit is to be opened and used. 
The $$B-transient $$BCMT07 is fetched 
to open the alternate device. 

• The ALT operand is valid only for the 
system output units SYSPCH, SYSLST, 
or SYSOUT assigned to tape . 

• SYSRDR, SYSIPT, and SYSIN cannot 
be closed during procedure processing. 



C 



RETURN 
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Chart 14* $JOBCTLE - EXEC and CALL Processors (LA-LO.) 



Table G 




( $JOBCTLE J 



EXEC 



Scan and Check First Operand 



Charts LA-LH 



1. 



4. 



10. 



If the EXEC statement (or command) is for a 
cataloged procedure, transfers control to the 
procedure processor. 



Tests if a program name is present and checks it 
for correct length. 

Checks for the REAL and SIZE= parameters. If 
the REAL parameter is specified but there is no 
REAL partition, the job is canceled. If SIZE= is 
specified to be 0, the job is canceled. 

If job accounting is supported and if this 
statement (command) is not the first EXEC after 
a JOB statement, transfers control to $JOBCTLN 
(after it has first been loaded by $JOBCTLA). — — 

If a phase name is present, preparations are made 
to execute the phase. If the phase name is LNKEDT 
an ENTRY statement is written to SYSLNK. If 
there is no phase name, the name of the phase to be 
executed is obtained via the GETPN macro. 

If any procedure overwrite statements are 
present, they are saved via the PUTOV macro 
for processing after the job step has executed. 

Saves PRCDFI in PRCDIB entry if extended 
procedure support is not available. 

Issues SIZE macro to set the GETVIS start 
address when required. 

Loads a fetch routine for the phase to be 
loaded into registers 9 through 14. This 
routine will be called when the partition 
is next dispatched. 

Issues INVPART macro (SVC58) to invalidate 
the pages of the virtual partition. SVC58 will 
modify the saved PSW to call the stored fetch 
routine when the partition is next 
dispatched. ~ 



CALL 



$JOBCTLN 



-*4 SVC58 J 



Read Procedure from Procedure Library 



Chart LP 



1 . If the procedure name starts with $$, the 
second $ will be replaced with a partition 
identifier. 

2. Gets and checks procedure name as well as 
additional operands, if any. 

3. Searches the procedure library for the desired 
procedure and checks the procedure for 
SYSIPTdata. 

4. Initializes the system to read SYSRDR and 
possibly SYSIPT data from the procedure 
library. 



CONTROL 
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Chart 15- 



$JOBCTLF - DVCUP, DVCDN, MAP, LISTIO, RESET, UNBATCH Processors (MA-MU) 

Table B 



C 




$JOBCTLF 



DVCUP 



DVCUP Command Processor 



Chart ML 



Makes a device available after it has been down. 

1 . Compute the PUB address of the device specified by the 
operand X'cuu'. 

2. Set the control flag in the PUB to indicate the device is up. 
Call the $AVRINIT routine to update the VCT label. 

3. If the device is a tape, the standard mode is restored. 

4. If the device is a 3800, the print control buffer is reset 
to standard. 



MAP 



CONTROL 



MAP Command Processor 



Chart MK 



Displays on SYSLOG the current allocation of each storage 
area (supervisor, background, and foreground partitions 
(real and virtual), and the main page pool). Included is the 
upper limit of each area as well as the name of the program 
currently being executed. The partition priorities are also 
displayed. For map output refer to DOS/VS System 
Control Statements. 



LISTIO 



CONTROL 



LISTIO Statement (Command) 
Processor 



Charts MA-ME 



Lists the I/O assignment of the system as specified by one 
of the following operands: 

SYS 

PROG 

BG 

Fn Fn = F1,F2, F3 etc. 

ALL 

SYSxxx 

UNITS 

ASSGN 

DOWN 

UA 

X'cuu' 

fetches $$BLSTIO into transient area. 
Refer to Appendix D for sample printouts. 



) 
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DVCDN 



DVCDN Command Processor 



Charts MH, MJ 



Indicates that a device in the PUB table is no longer available 
to the system. 

1. Indicate in the PUB that the device is down. 

2. Unassign all standard or permanent assignments to 
the device in LUB and JIB. 

3. Unassign all temporary assignments to the device 
in LUB. 

4. Remove all alternate assignments to the device. 

5. Log all assignments that have been released. 

6. Cause records to be written on SYS R EC for the 
3895 and 3800 devices. 



RESET 



CONTROL 



RESET Statement (Command) 
Processor 



Charts MF, MG 



Reset logical unit assignments to permanent or standard as 
specified by one of the following operands: 

■1. ALL resets all assignments in current position. 

2. SYS resets all system logical unit assignments in 
current partition. 

3. PROG resets all programmer logical unit assignments 
in current partition. 

4. SYSxxx resets a single logical unit assignment. 

Note: SYSRDR, SYSIPT, and SYS IN cannot be reset 
during procedure processing. 



V 



UNBATCH 



07 
CONTROL 



UNBATCH Command Processor 



Chart MM 



1. Refuses UNBATCH and issues a message if SYSRDR, 
SYSIPT, SYSPCH, or SYSLST is left assigned to tape 
or disk. 

2. Resets all assignments to UA except assignments for 
SYSLOG, SYSRES, SYSREC, SYSVIS, and SYSCAT. 

3. Detaches the foreground partition by inserting X'80' 
in byte Oof PI B. 




07 
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Chart 16v $JOBCTLG - Option Processor (NG-NK) 



Table C 







f $JOBCTLG J 



OPTION Statement Processor 



Chart NG 



Records the job control options requested by the programmer. Scans the 
parameters of the OPTION statement, one at a time, and passes control 
to the correct processing routine as shown in Table 1 




CONTROL > 
Table 1 ' 


NO 




Parameter 


Routine Label 


Chart 


DECK 


DECK 

Set DECK option ON, COMREG + 58, bit 


NH 


NODECK 


NODECK 

Set DECK option OFF, COMREG + 58, bit 


NH 


LIST 


LIST 

Set LIST option ON, COMREG + 58, bit 1 


NH 


NOLIST 


NOLIST 

Set LIST option OFF, COMREG + 58, bit 1 


NH 


LISTX 


LISTX 

Set LISTX option ON, COMREG+ 58, bit 2 


NH 


NOLISTX 


N LISTX 

Set LISTX option OFF, COMREG + 58, bit 2 


NH 


SYM 


SYM 

Set SYM option ON, COMREG + 58, bit 3 


NH 


NOSYM 


NOSYM 

Set SYM option OFF, COMREG + 58, bit 3 


NH 


XREF 


XREF 

Set XREF option ON, COMREG + 58, bit 4 

Set SXREF option OFF, COMREG + 141, bit 7 


NH 


SXREF 


SXREF 

Set SXREF option ON, COMREG + 141, bit 7 

Set XREF option OFF, COMREG + 58, bit 4 


Nl 


NOXREF 


NOXREF 

Set XREF option OFF, COMREG + 58, bit 4 


NH 


ERRS 


ERRS 

Set ERRS option ON, COMREG + 58, bit 5 


NH 


NOERRS 


NOERRS 

Set ERRS option OFF, COMREG + 58, bit 5 


NH 


48C 


C48 

Set 48 character set option ON, 

COMREG + 58, bit 6 


NH 


60C 


C60 

Set 60 character set option ON, 

COMREG + 58, bit 6 


NH 


LOG 


OPTLOG 

Set the SYSLST-LOG option ON, 

COMREG +59, bit 3 


NK 


NO LOG 


OPTNLG 

Set the SYSLST-LOG option OFF, 

COMREG + 59, bit 3 


NH 


■ 





Table 1 continued 






,„ — — • " ' ' ' — ' .__ 




USR LABEL 


USR LB L 

Initialize job control label processing for 

USER LABEL processing 


NJ 


TERM 


TERM 

Set TERM option ON, COMREG + 141, bit 5=1 


Nl 


NOTERM 


NOTERM 

Set TERM option OFF, COMREG + 141, bit 5=0 


Nl 


STDLABEL 


STDLBL 

Initialize job control label processing for STANDARD 
LABEL processing. Labels available to programs in 
ANY partition. NJ 


PARSTD 


PARSTD 

Initialize job control label processing for PARTITION 
STANDARD LABEL processing. Labels available to 
programs in only one partition. NJ 


DUMP 


DUMP 

Set job control dump option ON, 

COMREG +59, bit 1 


NK 


NODUMP 


NODUMP 

Set job control dump option OFF, 

COMREG + 59, bit 1 


NK 


PARTDUMP 


PARTDUMP 

Set job control partition dump option ON, 

COMREG + 141, bit 3 


NK 


LINK 


LINK 

Set LNKEDT control bits, COMREG + 57, bits 0, 2. 

Valid for BG only, unless SYSCLB assigned 


NJ 


NOLINK 


NOLINK 

Set LINK option OFF, COMREG +57, bit 


NK 


CATAL 


CATAL 

Set LNKEDT control bits, COMREG + 57, bits 0, 2, 3. 

Valid for BG only, unless SYSCLB assigned. NJ 


SYSPARM 


SYSPRM 

Save character string 


NK 


ALIGN 


ALIGN 

Set ALIGN option ON, COMREG + 141, bit 1 


NH 


NOALIGN 


NOALIGN 

Set ALIGN option OFF, COMREG + 141, bit 1 


NH 


EDECK 


EDECK 

Set EDECK option ON, COMREG + 141, bit 


NH 


NOEDECK 


NOEDECK 

Set EDECK option OFF, COMREG + 141, bit 


NH 


ACANCEL 


Set ACANCEL option ON, COMREG + 141, bit 7 




NOACANCEL 


Set ACANCEL option OFF, COMREG + 141, bit 7 




SUBLIB=DF 


Set ALTSUBSL option ON, COMREG + 141, bit 6 


NK 


SUBLIB=AE 


Set ALTSUBSL option OFF, COMREG + 141, bit 6 


NK 


RLD 


RLD 

Set RLD option ON, COMREG + 141, bit 3 


NH 


NORLD 


NORLD 

Set RLD option OFF, COMREG + 141, bit 3 


NH 


ONLINE 


OPTONL 

Switch ONLINE SYSGEN ON. 

COMREG + X'AD', bit 7 


Nl 


NOON LINE 


OPTNOONL 

Switch ONLINE SYSGEN OFF, 

COMREG + X'AD', bit 7 


Nl 
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Chart 17- $JOBCTLG - EOP, EOJ, CANCEL, JOB Processors (NA-NF, NL-NU) 



Table C 



EOP 




END-OF-PROCEDURE Statement 
Processor 



Charts NP-NR 



The EOP-Processor re-initializes the system at the end 
of a procedure. It is also called if an /& statement or 
CANCEL command is issued while a procedure is being 
processed. Initialization: 

1. Clears the procedure area in the communication region. 

2. Closes the following DFBs: PRCDFB, ORDRDFB, 
OLOGDFB (if the procedure was called by the operator) 
and IPTDFB (if the procedure processed contained 
SYSIPTdata). 

3. Dequeues the procedure library. 




CANCEL 



JOB 

| JOB Statement Processor 



Charts NA-NC 



©- 



0- 




The JOB statement is ignored if it is read within a procedure 
and a job is already being processed. - 

1 . Reset link control bits in COM R EG .+ 57. 

2. If the previous job has not been completed (no /& 
statement read) go to EOJ and return at SI MEND. 

3. SI MEND: Fetch $JOBCTLN if job accounting active.- 

4. Restores all LUB assignments to permanent or 
standard. 

5. Moves the job name to the communication region. 

6. Saves JOB start time in register save area of the 
partition. 

7. Logs the JOB statement on SYSLST/SYSLOG. 
Logs the time on SYSLOG, if TOD is supported. 

8. Restores all options to standard. 

9. RSTCOM: Restores the communication region to -^ 
standard. 

1 0. Resets the EOF indicators in all PUBs. 

1 1 . Sets switches to initialize, check, or bypass the 
Recorder File. 

1 2. Resets job zone in communication region system 
zone. 

13. FREEVIS performs a FREEVIS ALL. 





CANCEL Command Processor 



Chart NF 



This command is ignored if a job is not in process. 

1 . Calls the EOP processor if the procedure is being 
executed. 



2. Displays the message JOB job name CANCELED 
DUE TO OPERATOR INTERVENTION. 

3. Sets the cancel code in JCSW2. 

4. Sets the SYSRDR input switch on (also in the PIB). 

5. Resets all I/O assignments to permanent or standard. 

6. If a job is canceled and SYSRDR (or SYSIN) were 
temporarily assigned, step 5 is bypassed. 







EOJ 



O 



CONTROL 
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$JOBCTLN 



/& Statement Processor 



Charts ND-NF 



Calls the EOP processor if the procedure is being 
executed. 



2. 
3. 
4. 
5. 
6. 
7. 
8. 



10. 
11. 
12. 



Set SYSRDR EOF in PUB. 

Clears user label area. 

Restores permanent or standard I/O assignment. 

Insures that SYSIPT is at EOF. 

Resets job control options to standard. 

Sets job status bit OFF (see item 2). 

Displays EOJ message and logs the time and job 
duration. 

Resets the job name field in the communications 
region to NO NAME. 

Resets link control bits in COM REG + 57. 

Resets the buffers of assigned 3800 printers. 

Transfers control to the JOB statement processor 
at label RSTCOM (or at label SIMEND if EOJ 
processing was caused by a JOB statement) 



■<D 








7 CONTROL 



Program Organization 61 



Chart fl 8- $JOBCTLJ - LOG, STOP, ALLOC (R) , PAUSE, SIZE Processors 



Table D 



NOLOG 



NOLOG Statement (Command) 
Processor 



Chart PK 



If the NOLOG command is used, the log-on-SYSLOG 
switch (COMREG + 56, bit 3) is set OFF. If the 
statement is used, the log-on-SYSLST switch 
(COMREG + 59, bit 3) is set OFF. 



C 




$JOBCTLJ 




07 



STOP 



CONTROL 



STOP Command Processor 



Chart PM 



A WAIT macro pointing to a dummy CCB is issued to 
force entry into the supervisor task selection routine. 
This removes the partition from the task selection 
mechanism. 




07 
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ALLOC/ALLOCR 



ALLOC/ALLOCR Command Processor 



Charts PQ, PR 



This routine reallocates the virtual address area for 
the ALLOC command, or the real address area for the 
ALLOCR command, according to the number of 2K 
blocks specified for one or more partitions. 
Therefore, the routine does the following: 

1. Build a table (APL) containing the number of 
2K blocks for each specified partition. 

2. Indicate in APL: virtual allocation, if the ALLOC 
command was specified, or real allocation, if the 
ALLOCR command was specified. 

3. Perform the 'ALLOCATE' supervisor macro, 
JCL checks the return code and issues a message, 
if it is unequal to zero. 



) 



LOG 



LOG Statement (Command) 
Processor 



Chart PK 



If the LOG command is used, the log-on-SYSLOG 
switch (COMREG + 56, bit 3) is set ON. 
If the statement is used, the log-on-SYSLST switch 
(COMREG + 59, bit 3) is set ON. 



PAUSE 



<3 

CONTROL 



PAUSE Statement (Command) 
Processor 



Chart PK 



If the command is used, the job-control-pause switch 
(COMREG + 56, bit 5) is set ON to cause a pause 
before the next job-step. If the statement is used, the 
job control input-on-SYSLOG switch (COMREG + 56, 
bit 2) is set ON. This forces a pause on the next job 
control read operation. 




07 



SIZE 



CONTROL 



SIZE Processor 



Chart PS 



This routine is used for dynamic storage limit 
specification. It does the following: 

1. Build a table (SLPL) containing the number of 
2K blocks of PFIX and SIZE for 

2. Perform the SETLIMIT supervisor macro using 
the SLPL as interface 

3. After execution of the SETLIMIT macro, JCL 
checks the return code and issues a message if 
the code is unequal to zero. 





07 
CONTROL 
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Chart 19. $JOBCTLJ - UCS, ENTRY, HOLD, ACTION, STDOPT, PHASE Processors 



Table D 



UCS 










HOLD 








UCS Command Processor Charts PB-PC 


_ ' 




HOLD Command Processor Chart PA 






The 240-character Universal Character Set (UCS) array 


1. All I/O assignments for the foreground partitions 


specified by the operand phasename is loaded into the 






specified, are to stay in effect from job step to job 


buffer of the IBM 2821 Control Unit specified by the 






step. 


operand SYSxxx. The phase is loaded from the core 
image library. 






2. The operands of the HOLD command, Fx, can 
appear in any sequence. 


1. The operand SYSxxx specifies a 1403 with the UCS 
feature. 

2. The operand phasename specifies the core image 






3. The hold flag, bit 4 of PIB+ 12, issetON(1). 








library phase to be loaded. 
3. The operand FOLD (optional) specifies that the 






y 


07 


buffer is to be loaded with the folding operation 




w 


code (X'F3') in the third CCW. 
4. The operand BLOCK (optional) specifies that data 




CONTROL 


checks are to be inhibited. The inhibit data check 






operation code X'73' is set in the second CCW. 

5. The operand NULMSG (optional) specifies that the 
80-character verification message is not to be 
printed. The chain bit is set off in the third CCW. 

Note: The command is ignored for a 3800 printer. 






ACTION 


___ 


ACTION Statement Processor Chart PD 




This statement is invalid if the link option (JCSW2, 
bit 0) is not ON. If valid the PHASE statement is copied 
to SYSLNK. 


CON1 


fROL 


CONTROL 


ENTRY 






PHASE 


ENTRY Statement Processor Chart PD 






PHASE Statement Processor Chart PD 






This statement is invalid if the link option (JCSW2, 


This statement is invalid if the link option (JCSW2, 


bit 0) is not ON. If valid, the ENTRY statement is 






bit 0) is not ON. If valid, the ACTION statement is 


copied to SYSLNK. 






copied to SYSLNK. 




i" 


ernAonr 


1 


i 






I I 


STDOPT | 




1 | 


roTj 


STDOPT Statement Processor Chart PX, PY 


I otJ 


CONTROL 


Standard 
Option Field 


LIACT 
X'35' 


SOB1 
X'36' 


SOB2 
X'37' 


SYSLINE 
X'4E' 


STDOPT 
X'8C 


CONTROL 




Options 


Masks for Bit setting 






ALIGN=YES 










X'40' 






ACANCEL=YES 










X'01' 






CHARSET=48C 




X'02' 












DATE=DMY 


X'80' 














DECK=YES 




X'80' 












DUMP=YES 






X'40' 










DUMP=PART 










X'20' 






EDECK=YES 










X'80' 






ERRS=YES 




X'04' 












LINES=YES 








Number 








LIST=YES 




X'40' 












LISTX=YES 




X'20' 












LOG=YES 






X'10' 










RLD=YES 










X'10' 






SXREF=YES 










X'08' 






SYM=YES 




X'10' 












XREF=YES 




X'08' 












TERM=YES 










X'04' 






Note additional functions: 

'DUMP=YES' and 'NO' sets off PARTDUMP Indicator 




' 




, < 




'DUMP=PART' sets on DUMP Indicator 


1 1 




'XREF=YES' and 'NO' sets off SXREF Indicator 


07 




'SXREF=YES' sets off XREF Indicator 


■w 






'LINES=nn' adapts the JCL-'RLNCNT' in the own partition 


CONTROL 
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Chart 20., $JOBCTLJ - UPSI, SET, CATALR, DATE, INCLUDE, MTC, ZONE Processors 



Table D 



UPSI 



UPSI Statement Processor 



Chart PK 



The operand of this statement is converted 
to a single byte and stored in COM REG + 23. 

• A character 1 sets the bit ON. 

• A character sets the bit OFF. 

• A character X leaves the bit unchanged. 



SET 



^ 



CONTROL 



SET Command Processor 



Charts PG-PJ 



Allows the operator to change the UPSI byte, the system 
date, the line count, the system time, and the remaining 
disk capacity of SYSLST or SYSPCH when they are 
assigned to disk. Permits the operator to define to the 
system the status of the recorder file SYSREC. 

Processing is as follows when the operand is: 

DATE= the MM/DD/YY or DD/MM/YY parameter is 

converted to binary and stored in COM REG + 79 
through 84. The Julian day is computed, adjusted 
for leap year, converted to EBCDIC, and stored 
in COM REG + 85 through 87. Date is stored in 
COM REG of each partition. This operand is 
invalid if TOD is supported. 

LI N ECT= the parameter is converted to binary and stored 
in COMREG + 78. The job control line count for 
the remaining lines on the current page is 
adjusted. 

RF= after the specif ied parameter is checked for 

validity, the proper option bit is set in the RF 
table status flag byte (byte 1 )'. 

CREATE - X'08' 
YES - X'04' 

NO - X'10' 

HC= after the specified parameter is checked for 

validity the proper option bit is set in the 
CRTSAV table status flag byte. 

CREATE - X'08' 
YES - XW 

NO - X'04' 



UPSI= 



see UPSI Chart. 



RCLST= the parameter of this operand is converted 
to binary and stored in the SYSLST DIB. 

RCPCH= the parameter of this operand is converted to 
binary and stored in the SYSPCH DIB. 

SVA=(nK,nK) 

this operand is no more processed. For 
compatibility it is flushed. 

SDL['CREATE] 

building of the system directory list in the SVA 
is started and control cards will be read from 
the input device. 



CONTROL 






CATALR 



CATALR Statement Processor 



Chart PN 



This statement is invalid if the LINK option (JCSW2, bit 0) 
is ON. If valid, CATALR/SYSPCH mode switch (JBCSW5, 
bit 0) is set for handling theWASE statement. The CATALR 
statement is validated for syntax. The version and 
modification number (V. M.) is checked for valid characters. 
A valid statement is punched or written on SYSPCH. If the 
statement is invalid, the job is canceled. 







CONTROL 



PATE 



DATE Statement Processor 



Chart PH 



Moves the date from the operand of the statement to the 
communication region (byte 0). Sets date bit in 
COMREG + 59. 



rrj 



07 CONTROL 



INCLUDE 



INCLUDE Statement Processor 



Chart PD 



This statement is invalid if the LINK option (JCSW2, bit 0) 
is not ON. If the statement contains an operand, the 
complete statement Is copied to SYSLNK. If the statement 
does not contain an operand, SYSIPT data is copied to 
SYSLNK until a /* statement is read on SYSIPT. 
INCLUDE and /* are not copied to SYSLNK. 



~T~ 



CONTROL 



MTC 



MTC Statement (Command) Processor 



Charts PE, PF 



Permits initiation of tape operations on specified logical 
units or physical I/O devices. The routine checks the 
operation code, computes or locates the PUB pointer, 
assigns it to the SYSUSE LUB, and executes the 
operation. It also opens the recorder file (for RMS and 
hard copy file). The third operand (duplication factor) 
determines the number of operations to be performed. 
If the third operand is left blank, a duplication factor 
of 1 is assumed. 



ZONE 



y 
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ZONE Statement Processor 



Chart PH 



Checks validity of operands. Converts value to seconds 
and moves it into the communication region zone field. 
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Chart 21- $JOBCTLK - TPLAB, DLAB, LBLTYP, XTENT, VOL Processors (QA-QW) 



Table E 




C 



$JOBCTLK 



TPLAB 



TPLAB Statement Processor 



Chart QA 



The sequence of the TPLAB statement is checked. It 
must follow a VOL statement. If there is a continuation 
punch in column 72, 49 characters are read from the 
first statement and 20 characters from the second 
statement. If a continuation statement is not indicated 
a default value of 0000000 DOS Version 5 is inserted 
at the end of the 49 character record in the input area. 
The label is moved from the input area to the label 
output area. 



DLAB 




07 



CONTROL 



DLAB Statement Processor 



Chart QF -*■ 



The sequence of the DLAB statement is checked. It 
must follow a VOL statement. A continuation statement 
is required. The disk format 1 label is built in the label 
output area, one parameter at a time. 

Param 1 (51 bytes) make up fields 1, 2, and 3. 

Param 2 (4 bytes, max.) is the volume sequence number. 
It is converted to 2 bytes binary and stored in 
field 4. 

Param 3 (5 bytes) is converted to 3 bytes binary and 
stored in field 5. 

Param 4 (5 bytes) is converted to 3 bytes binary and 
stored in field 6. The creation and expiration 
dates are tested for validity (fields 5 and 6 
respectively). 

Param 5(13 bytes) is stored in field 8. 

Param 6 (optional) is tested: 

If blank or SD, set field 10 to an S. 
If DA, set field 10 to a D. 
If ISC, set field 10 to a C. 
If ISE, set field 10 to an E. 
If VSAM, set field 10 to A. 

A switch is set to indicate that a DLAB statement has 
been processed and only an XTENT statement can 
follow. 



) 



-fry 
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LBLTYP 



LBLTYP Statement Processor 



Chart QA 



1 . If the first operand is TAPE, the size of the label 
area is set to 80 bytes. 

2. If the first operand is NSD, the second operand 
(nn) is used to calculate the number of bytes 
required to contain the specified number of 
extents. This computed value plus 84 bytes 
determines the size of the label area. 

3. The size of the label area is stored for subsequent 
use by LIOCS and the linkage editor. 



(j 



07 
CONTROL 



XTENT 



XTENT Statement Processor 



Chart QH 



The sequence of the XTENT statement is checked. 
It must follow a DLAB statement or another XTENT 
statement. The parameters are processed one at a 
time. An XTENT statement is required for each 
extent to be defined for a given set of VOL and 
DLAB statements. The extents are built in a label 
output area and are written in the SYS RES label 
cylinder information area. 



CONTROL 



VOL 



VOL Statement Processor 



Chart QA 



The first parameter SYSxxx is tested and converted and 
the symbolic unit address is saved in the label save area. 
The second parameter, filename, is tested and moved to 
the label output area. A switch is set to indicate that the 
VOL statement has been processed and the DLAB or 
TPLAB statements are to follow. 
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Chart 22* $JOBCTLK - TLBL, DLBL, EXTENT, SETPRT, RSTRT Processors (QA-QW) 



Table E 
08 



TLBL 



TLBL Statement Processor 



Chart QB 



Default values are inserted for all operands from the 
file-ID through the expiration date. The file name 
operand is tested and moved to the label output area. 
The file ID and date operands are checked, converted, 
and moved to the output area. The date operand may 
be omitted, may be a retention period, or an absolute 
date yy/ddd. All the remaining operands (file serial, 
volume sequence, file sequence, generation, and 
version numbers) are then checked and moved to the 
output area, in turn, overlaying the default values 
(the default values will remain for any missing 
operands). Default values are then inserted for file 
security, block count, and system code. A switch 
is set to indicate that no other required statements 
are to come and that neither TPLAB or DLAB will 
be accepted. 





07 



CONTROL 



EXTENT 



EXTENT Statement Processor 



Charts QK-QL 



The sequence of the EXTENT statement is checked 
and default values are set from the default table 
built by DLBL statement processor for volume 2 
serial, extent type, sequence number, upper and 
lower extent limits, logical unit and binary number. 
The operands are then processed and overlay the 
default values. If the operands are omitted, the 
default values remain. 



W 



07 
CONTROL 



RSTRT 



RSTRT Statement Processor 



Chart QQ 



Computes the LUB and PUB pointer for SYSxxx and 
saves the checkpoint number. Insures that all label 
processing has been accomplished, and closes the 
user table area. Causes $JOBCTLB to be loaded 
(by $JOBCTLA). 




$JOBCTLB 



DLBL 



DLBL Statement Processor 



Chart QE 



If a label information record is pending in the output 
area, it is first written into the label area. Default 
values are inserted for all operands from file-ID 
through data security. A default table is built to be used 
when processing the EXTENT statement(s). The filename 
operand is tested and moved to output area. The file-ID 
and data operands are checked, converted, and moved to 
the output area. The date operand may be omitted, may be 
a retention period, or an absolute date yy/ddd. If the file-ID 
was omitted, the filename is inserted as default value. The 
proper filetype code is inserted for SD, DA, DU, VSAM, or 
IS, If DSF is specified, the data security indicator is set ON. 
The BUFSP=n and CAT=filename operands are checked, 
and if they are present, n and the catalog filename are put 
into the label information record. If the filetype code is not 
VSAM, an "invalid statement" message is issued. A switch is 
set to indicate that only extent statement(s) may follow. 
The BLKSIZE=n operand is checked and if correct is put 
into the label information record. If the operand is incorrect 
or if f iletype=VSAM, an "invalid statement" message is 
issued. The CISIZE=m operand is checked and if correct 
is put into the label information record. If the operand is 
incorrect or the filetype code is not SD, an "invalid 
statement" message is issued. 




07 
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SETPRT 



SETPRT Statement Processor 



Charts QT-QW 



Initializes SPPLIST to zero. Computes and moves to 
SPPLIST the LUB pointer for SYSxxx. Scans the 
keyword table to compare the operands specified in the 
statement with the keywords defined in the table. On 
finding a matching keyword, the associated parameter 
and its delimiters are checked for validity. If the 
parameter is valid, control is given to the processing 
routine defined in the keyword table. This routine sets the 
appropriate fields or flags in SPPLIST. If DFLT=Y 
was specified, the parameters that were not defined in the 
statement are set to their respective default values. 
When the SETPRT statement has been processed 
completely, control is given to routine SETAPRT in 
$JOBCTLA where the SETPRT macro is issued. On 
return of control from $JOBCTLA, the program 
exits to CONTROL. 




07 



CONTROL 
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Chart 23- $JOBCTLM - RF and ROD Processors (RA-RT) 

Table F 




( $JOBCTLM J 



MAINOO 



Recorder File Initialization 



Chart RA 



A recorder file is initialized in accordance with the option 
specified in the SET command. For the Models 1 15 and 
125 with no RMSR support, initialization is omitted. Exit 
is to create a hard-copy file. If open is not successful, 
message 1I84A is issued and the system enters a hard wait! 
state. 

• If RF=YES, an active recorder file exists. 

• If RF=CREATE, the system creates a new 
recorder file. 



ROD00 



09.1 
MAINOO 




ROD Command Processor 



Chart RC 



Recorder file is initialized. If SYSREC is not assigned, 
message 150nD is issued. Builds records according to 
device type; if the device is 33xx or 3895, builds MDR 
record. If the device is a 3800, builds an MDR record 
containing the internal error log, and an OBR record 
containing the SDR counters. If RDE is specified 
builds device EOD record, and if end of day, writes 
EOD record. Computes the percentage of filled space 
in the recorder file and prints the message RECORDER 
FILE IS xxx% FULL. If the recorder file is more than 
90% full, 'RUN EREP' is added to the end of the 
message. 



Create Recorder File 



Chart RA 



Creates and formats recorder file. For a 3031 CPU, the set 
of frame records for editing machine check and channel 
check records will be obtained from the service console 
and written to the recorder file. If an irrecoverable I/O 
error occurs during building or formatting message 1I86A 
is issued, and the system enters a hard wait. 



MAINQ5 



Check Recorder File 



Chart RA 



Builds channel ID map. Builds a load list for RMS. Reads 
and puts the header address in the RF table. 
If an irrecoverable I/O error occurs during the reading of 
a record, message 1 186A is issued on SYSLOG, and the 
system enters a hard wait. If RDE is specified, builds and 
writes IPL/EOD record. Computes the percentage of filled 
space in the recorder file and prints the message, RECORDER 
FILE IS xxx% FULL. If the recorder file is more than 90% 
full, 'RUN EREP r is added to the end of that message. 




09.1 
ROD00 




09.1 
MAINOO 
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Chart 24. 



$JOBCTLN - Job Accounting Routines (SA-SB) 
$ JOBCTL E 
14 




( $JOBCTLN J 



$JOBCTLN 



Job Accounting Interface 



Charts SA, SB 



1. Store registers and set exits. 

2. Other $JOBACCTs in progress? YES-Wait for 
their completion. NO-Post $JOBACCT active. 

3. Calculate and store final CPU time. 

4. Save base registers and initialize user pointers. 

5. Check if $JOBACCT is in SVA. YES-branch 
to $JOBACCT in SVA. NO 



LOAD $JOBACCT 



RETURN 



Job Accounting Interface 



Chart SB 



1. Restore base registers. 

2. Issue SVC 91 to pass control to POWER/VS-E, 
and wait for posting of ECB by POWER/VS-E. 

3. Turn off user in charge switch.-^- 

4. Dequeue any waiting partitions. 

5. Re-initialize accounting table for next job step. 

6. Turn off $JOBCTLN active switch and label 
switch. 

7. Restore job control registers. 

8. Return: 

• If entry was from EXEC, return to phase 
vector table in $JOBCTLA. 

• If entry was from EOJ, return to 
$JOBCTLG 

• If entry was from simulated EOJ (Job 
statement Processor), return to $JOBCTLG.- 

• Otherwise: 



( ^ ^ 

V SVC 14 J 

( CANCEL J 



This routine is entered if $JOBACCT Chart SB 
is canceled by the operator or due to an error 



1 . Set up base registers. 

2. Save address of ECBs. 



POWER/VS-E 
counting Appendage 
Routine (SVC 90/91) 



Table G 




17 
JOB 13 
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Chart 25- SIJBSLA - SLA Root 



( $UBSLA J 



IJBSLA 



* All 

other SLA 
charts 




Initialization 



Charts 29-30 



1. Save interface information. 

2. Load registers to make DSECTS of workareas 
in GETVIS-storage addressable. 

3. Gating of tasks within one partition. 

4. Determine the calling partition. 

5. If first call of SLA since I PL: 

Perform subroutine 'INITALL' 

6. If first call of partition since I PL: 

Perform subroutine 'INITWORK' 



7. Make several dummy sections addressable. 
Execution: 

8. Branch to one of the following subfunctions: 
- ADDLBL Write a label 



.0 



— ADDNXL Write additional label information 

— ENDLBL Indicate end-of -write operations 

— REPLBL Replace modified label information 

— CLRGRPL Clear a group of labels 

— GETLBL Read a label 

— GETNXL Read additional label information - 

— LOCGRPL Locate a group of labels , 

— GETNXGL Get next label from located group 

— PUTOV Store overwrite statement 

— GETOV Retrieve overwrite statement 

— PUTPN Store overwrite statement 

— GETPN Retrieve overwrite statement 
Exit: 

"9. Store information for following functions. 

10. Set RETURN code. 

1 1 . Release gating of tasks. 

12. Branch back to calling program. 




|TJ 



INITALL 



*C^ 



ADDLBL 



INITPART 



26 



ENDLBL 



ADDNXL 




( END J 



LOCGRPL 



GETNXGL 
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Chart 26- $IJBSLA - ADDLBL, ADDNXL, ENDLBL Processors 



ADDLBL 




Perform ADDLBL Function 



Charts 31-32 



1. 
2. 



2.1 
2.2 



Check validity of label length and set return code. 

If last function was a GETLBL, GETNXL, or 
REPLBL (which interrupted CLRGRPL, ADDLBL, 
ADDNXL stream): 

Check if group of labels changed, set return code. — J 

If first ADDLBL after CLRGRPL, call 'FIRSTADD 
else reconstruct status of preceding ADDBL. 

If last function was a CLRGRPL check if group 

of labels changed, set return code, 

call 'FIRSTADD'. 



5. 
6. 



If last function was an ADD-function, check if 
group of labels changed, set return code. 

Set internal sequence number to 0. 

Call 'EXECADD'. 



ENDLBL 





ADDNXL 




Perform ADDNXL Function 



Perform ENDLBL Function 



1. For FBA test if ADD-function preceded. If YES, 
write current LAS on disk: 

• Perform write operation ('WRFBALAS'). 

2. Reset switch in LACB to indicate end-of-write 
process. 

3. If LACB was modified for non-temporary labels, 
write it on disk ('WRLACB'). 

4. Zero all entries in HISTAB with their extensions. 

Note: The ENDLBL function is performed: 

1. To initialize SLA 

2. To indicate end of ADD functions 

3. To indicate that JCL gets back control 
and no requests to replace labels (OPEN) 
will occur. 




32 



WRFBALAS 



WRLACB 



r 

( RETURN J 



1. Check sequence of functions: 

• Did an ADD-function for the group of 
labels precede? 

• If NO, set return code-- — — . — -— 

2. Check length of additional label information. 

• If INVALID, set return code 

3. Increase internal extent sequence number by 1 

4. Perform subroutine 'EXECADD'. 




IJBSL 
Step 9 



<3> 

LAv' 



UBS LA 
Step 9 



( RETURN J H 31 J 



EXECADD 
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Chart 27, $IJBSLA - REPLBL, CLRGRPL Processors 



REPLBL 




Perform REPLBL Function 



Chart 33 



1. Look in HISTAB for an entry of the label from same 
partition with same TIK (to check if GET-function 
preceded). 

If no entry found, set return code 





25 



IJBSLA 
9 



2. Get position of label to be replaced (information in 
HISTAB)-(Number of LAS and position in LAS). 

3. Read corresponding LAS ('READLAS') 



4. Move label from buffer into I/O area CFBAREP)- 

5. Write LAS on disk again ('WRFBALAS') • 



6. Calculate cylinder and track number of label record 
to be replaced (information in HISTAB) 

7. Update CCW chain to overwrite label record 
on disk. 

8. Perform subroutine 'DOIO' 



9. If record not found, set return code.- 



CLRGRPL 




1. If FBA and ADD-function before: write current 
LAS on disk ('WRFBALAS'). 



2. Reset switch in LACB to indicate end-of-write 
process for preceeding group of labels. 

3. Determine entry to be cleared ('DETENTRY').- 

4. Give LAS bits of entry to be cleared back to LAS 
pool if they where "T. 

5. Zero START LAS and LAS bits of entry. 

6. If permanent label where concerned, write 
LACB ('WRLACB'). 



7. Zero all entries of label group in HISTAB. 

8. Store information for following functions. 
Note: If one of the subroutines has returncode ^ 




32 
WRFBALAS 




30 
DETENTRY 



<5 



29 
WRLACB 





WRFBALAS 




25 



IJBSLA* 
9 



10. If no other REPLBL functions possible, clear 
label entry in HISTAB. 

Note: If one of the subroutines has a returncode ^ q- 



f RETURN J 




25 



IJBSLA 
9 
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Chart 28.. SIJBSLA - GETLBL, GETNXL, LOCGfiPL, GETNXGL Processors 



IJBSLA 
8 



GETLBL 



Perform GETLBL Function 



Charts 34-35 



1. For FBA: If ADD-function before, write current LAS 
on disk (in case DLBL/EXTENT stream is 
interrupted by ASSGN) by subroutine 'WRFBALAS'- 

2. Search for the label in following sequence: 

• Search in temporary label group of partition 

• Search in free usage label group of partition 

• Search in permanent label group of partition 

• Search in System label group (if not in write 
process). 

3. Determine entry of label group in LAGB. 

4. Check if START LAS =0 (then group is empty) 

• If YES, look in entry of reset group 

• If last group also empty: set return code 

5. If START LAS * look for label in LAS ('SRCHLAB').-f 

6. If disk label found, update HISTAB ('HISTORY'). 
Note: If one of the subroutines has return code ^ — 




<5 

WRFBALAS 



( RETURN J 



GETNXL 




Perform GETNXL Function 



Chart 36 



1 . If length of interface buffer invalid, set return code - 

2. Look for entry in HISTAB ('GNXTHIS') 

to test sequence of functions 

3. For FBA perform subroutine 'GNXTFBA' 



4. For CKD: calculate cylinder, head, record number of 
label and read label record: subroutine 'RDLABREC- 

5. Update history table ('UPDHIS') 

Note: If one of the subroutines has return code 5 



IJBSLA 



LOCGRPL 



Perform LOCGRPL Function 



1. Determine group of labels to be located. 

2. If LPL contains invalid parameters, set return code — 

3. Determine the entry in LACB for group of labels. 

4. If chain for group of labels is empty, set return code - 

5. If group is in write process, set return code 



6. If chain is not empty, store number of START LAS 
for following functions. 




25 



IJBSLA 



GETNXGL 




C RETURN J 



Perform GETNXGL Function 



Chart 37 



1. Check sequence of functions: 

If INVALID, set return code - 

2. If group of labels is in write process, set return code — 

3. If label area on FBA, perform subroutine 'GGRPFBA' 

4. If label area on CKD, perform subroutine 'GGRPCKD' -fc 

5. Test return codes: if ^ — 




25 

IJBSLA 



( RETURN J 



IJBSLA 




\IJBSb 

k) 

3GRPFB, 

LTTJ 

GGRPCK 



GGRPFBA 



IJBSLA 



GNXTHIS 



K™ "I RDLABRE< 
3bJ J J 

, ^Updhis-U 25 ) 

IJBSLA 
9 
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Chart 29. $IJBSLA - SLA Initialization Routines 



INITALL 



UBS LA 



INITLACB 




Initialize Different Start Values 



1. GET VOLUME CHARACTERISTIC ENTRY into 
I/O area and move it into general work area (key 0) 

2. For CKD: calculate capacity of a track without 

chaining record. 

For FBA: calculate size of a LAS. 

3. Initialize part, work areas ('INITPART') 

4. Read and check LACB ('GETLACB') 



f RETURN J 




Initialize the LACB 



1. Determine number of LASs. 

2. Zero whole LACB area. 

3. I nsert LACB constant. 

4. Switch so many bits in LAS pool to '1' (from left to 
right) as LASs exist. 

5. Switch first bit of LAS pool to '0' again txa^use 
first LAS is used by LACB itself. 



6. Write LACB on disk ('WRLACB').- 

i 



•O 



IJBSLA 



Of 



INITPART 




( RETURN J 



Initialize Partition Work Area 



1. Create a FIXLIST for IOCB. 

2. Generate an I ORB. 

3. Move CCW chain into partition work area. 

4. Relocate all addresses in work area. 



26 
27 
30 
31 



/^v WRLACB 



( RETURN J 




After all modifications 
of LACB in areas of 
permanent labels 



Write LACB into Label Area 



1. Move LACB from KEY protected area into 
I/O area of partition (it is not possible to write 
directly from protected area on disk). 

2. Update CCW-chains to write LACB into first LAS 
of label area. 

3. Allow writing on SYSRES ('WRSYSRES') 

4. Perform subroutine 'D0I0' - 

5. Reset switch for LACB writing. 
Note: If return code of a subroutine ± . 



0i 



GETLACB 



Read LACB and Check for Validity 



1 . Prepare CCW chains to read LACB from first LAS 
of label area into I/O area. 

2. Perform subroutine 'D0I0' 



3. Move LACB from I/O area into protected work area 
(key 0) in 'MOVELACB'. 

4. Check if a valid LACB exists: 

• If valid: update LACB ('UPDLACB') 

• If invalid: initialize new LACB ('INITLACB') . 

5. Switch bit to allow write on SYSRES. > v 
Note: If return code of a subroutine ^ 



C 



RETURN 




30 



D0I0 



J 30 J 
UPDLACB / ^- N 



( RETURN J 



IJBSLA 



WRSYSRES 




IJBSLA 
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Chart 30* SIJBSLA 



Routines 



GET LACB 

9 



UPPLACB 



Update the LACB after IPL 



1. If number of partitions decreased since last I PL, 
clear the label groups of the partitions no longer 
active and give bits to LAS pool. 

2. Clear all entries of temporary labels and free 
usage labels and give bits to LAS pool. 

3. Check if permanent groups of labels are 
completely stored. If YES, print message and 
clear label group. 

4. Write LACB on disk CWR LACB') 



( RETURN J 



DOIO 




WRLACB 



* 27, 29, 32, 34, 35, 37 



Execute I/O 



1. Load address of JORB into Register 1. 

2. Execute channel program CEXCP,WAIT'). 

3. Reset 'PIB ASSIGN FLAG' in 'PIB' if it was 
„ modified before. 



29, 
32 J 



V 



Called before all write 
operations on SYSRES 



WRSYSRES 



Prepare to Write on SYSRES 



1 . Get address of PIB table. 

2. Switch PIB assign flag on to allow write 
operations on SYSRES. 

3. Set internal switch to indicate modification. 



( RETURN J 



27 
31 



DETENTRY 




Determine Entry into LACB 



1 . Take information from LPL to determine group 
of labels affected. 

2. Determine number of entry into LACB for the 
group. 

3. If one of the values in LPL is invalid 



UBSLA 



f RETURN J 



( RETURN J 
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Chart 31. $IJBSLA 



Routines 



ADDLBL/ADDNXL 

6 1 



V 



EXECADD 



Prepare move to label area 




1. Determine length of label Information. 

2. Check if space in current LAS. 

3. If not: Look for new LAS ('SRCHLAS') - 

Update chaining address 

Write current LAS CWRFBALAS') - 

4. Move label into IOAREA ('FBAOUT') 



5. Calculate size of label record on disk. 

6. Check if space enough on track. 

7. If not: Look for new LAS ('SRCHLAS') 

Write chaining record CCHAINREC) 

8. Write label record CWRLABREC) 




WRLABREC 



WRFRAL AS ^ — ' 



WRFBALAS 




32 
FBAOUT 



STORE INFORMATION FOR FOLLOWING FUNCTIONS 
Note: If one of the subroutines has a return code 4 



ADDLBL 
2 and 3 



FIRSTADD 





25 



IJBSLA 
9 



Prepare for First ADDLBL Function 



1. Determine entry into LACB by 'DETENTRY' 

2. Set switch in LACB to indicate that group of 
labels is in write process. 

3. If a permanent group of labels is concerned, 
write LACB on disk by 'WRLACB' 



( RETURN J 



FBAOUT 



SRCHLAS 



and set switch to indicate that writing of 
LACB is necessary later on. 

4. Look for a free LAS ('SRCHLAS') 

5. Update current LAS number. 

Note: If one of the subroutines has a return 
code 4 — 



DETENTRY 




29 



WRLACB 



-uQ 




f RETURN J 



25 

IJBSLA 
9 




Occupy a Free LAS 



1 . Look in the LAS pool of the LACB for a bit 
which is ON. 

2. If no bit in pool is ON, label area is filled up. 
Set return code .. 




3. Calculate sequential number of LAS represented by 
ON bit. 

4. Switch ON bit in LAS pool OFF and corresponding 
bit in group entry ON. 

5. Update START LAS in LACB, if it was 

6. If modification of LACB was for permanent labels, 
write LACB on disk (subroutine 'WRLACB') — 

7. Store start values for new LASs. 



25 



IJBSLA 
9 



J 29 J 
WRLACB 



f RETURN J 
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Chart 32- $IJBSLA - Routines 



EXECADD 
8 



WRLABREC 




Write Label on Disk 



1. Prepare CCW chain to write label as physical 
record on disk. 



2. Perform subroutine 'WRSYSRES' - 

3. Perform subroutine 'DOIO' 



fz) 



WRSYSRES 



:: EXECADI 

Q return 3 nn 



DOIO 



CHAINREC 



Write Chaining Record 



1 . Prepare CCW chain to write chaining record 

as last physical record on track (data = sequential 
number of next LAS in chain). 

2. Perform subroutine 'WRSYSRES' 

3. Perform subroutine 'DOIO' — 



fz) 

WRSYSRES 



f RETURN J I J 



/*~*\ WRFBALAS 



e>i 



Write LAS on Disk 



1. Prepare CCW-chain to write a whole LAS 
(may be several blocks) on FBA disk. 

2. Perform subroutine 'WRSYSRES'- — 

3. Perform subroutine 'DOIO' — 



DOIO 



*26, 27, 
28,31, 
33 



fz) 



WRSYSRES 




30 



EXECADD 



DOIO 



f RETURN j XX 



FBAOUT 



Move Label to Output Area 



■1. Move label from the interface buffer into the 
I/O area (M VCL). 

2. If not enough space. in the I/O area: 

• Look for the next LAS ('SRCHLAS') 

• Update chaining address in current LAS 

• Write current LAS on disk ('WRFBALAS') - 

3. If label is larger than one LAS, several LASs are 
chained together. 

4. Update several pointers. 

Note: If one of the subroutines has retcode ± 0- 



SRCHLAS 



-<D 




25 



( RETURN J 



IJBSLA 
9 
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Chart 33- $IJBSLA - Routines 



REPLBL 
27 | 4 




FBAREP 



Move Modified Information to Output Area 



1. Update several pointers. 

2. Move modified label information from 
interface buffer into I/O area (MVCL). 

3. If the LAS contains the new information 

it is written back on disk ('WRFBALAS'). - 



4. If label is longer than 1 LAS, move first 

part of label, write first LAS on disk ('WRFBALAS'); 

read next LAS in chain ('READLAS') 

and move next part of the label. 
Loop till all information is modified. 

Note: If one of the subroutines has return code ^ — 




32 
WRFBALAS 




32 
WRFBALAS 




35 



READLAS 




25 



f RETURN J 



IJBSLA 
9 
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Chart 34- $IJBSLA - Routines 



GET LB L 
5 



28 




SRCHLAB 



Look for the Label 



1. Store number of LAS for searching. 




2. Read LAS into I/O area ('READLAS'). - 

3. Check if label in LAS ('CHECKLAS').- 



4. As long as label not found and there are other 
LASs in chain, read them (update CCW-chain 

and perform subroutine 'DOIO') • 

and continue searching. 

5. If label found, move it into interface buffer 
('FBAIN'). 



6. Update CCW-chain to look for record. 

7. Try to read the label record ('RDLABREC') 



<D 




Note: If one of the subroutines has return code ^ 



RDLABREC 




GETNXL 
4 




Read Label Record 



G2 



1. Update CCW-chain to read label record directly 
into interface buffer. 



2. Perform subroutine 'DOIO' 

3. As long as record not found, look for a chaining 

record or track ('RDCHREC') 

and continue searching on chained tracks. 

4. If label nowhere found, set return code 

5. If label found, perform subroutine 'DETLEN' — — 
Note: If one of the subroutines has return code f 0- 



RDCHREC 




( RETURN J 




30 



I IGGRPCKD-6 /""N 

I 37 jFIRSTREC-4 ( 3 J 




25 




■© 

I UBS LA 



DETLEN 



25 



RETURN ) 



IJBSLA 
9 



Read Chaining Record 



G3 



1. Update CCW-chain to read chaining record on 
current track. 

2. Perform subroutine 'DOIO' — — 



3. If record not found, set CHRECFND switch off. 

4. If record found, set switch on and calculate 
cylinder and track number for I/O on chained 
track. 

If one of the subroutines has return code ^0 



Note: 




30 
DOIO 



Determine Length of Record 



Note: The read operation was performed in the 
length of the interface buffer. 

1. Check if the interface buffer is long enough for 
the label. 

2. If buffer too short: read again without data 
transfer to find out length of label record: 

• Update CCW-chain 

• Perform subroutine 'DOIO' — — — 



• Store length of label in LPL 

• Set return code. 



3. If buffer longer than label: 
• Store length of label in LPL. 




30 



D0I0 



25 




f RETURN J 




25 



IJBSLA 
9 



IJBSLA 
9 



( RETURN J 
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Chart 35- $IJBSLA - Routines 



READ LAS 




*27, 33, 34, 36, 37 



Read LAS into Input Area 



1. Update CCW-chain to read LAS into I/O area. 

2. Perform subroutine 'DOIO' 

3. If return code ^ 



CHECKLAS 




C 




30 
DOIO 




25 



IJBSLA 
9 



RETURN 



) 



Look for Label in Input Area 



1. Look through LAS to see if label is in it. 

2. If label found: Set LABFND switch on, 
if label not in LAS: Set switch off. 



*34, 36, 37 



FBAIN 




C 



RETURN 



3 



Move Label from I/O Area to Interface Buffer 



1 . Set several pointers and switches for current 
work. 

2. Move the label (or a part of it) from I/O area 
into interface buffer. 

3. Store label length in LPL. 

4. Check if buffer is long enough for the label. 

If not, set return code 



5. If the label is longer than one LAS, read the 
LASs chained together, one after the other 
('DOIO') and move the label parts into buffer, 
till whole label length is stored. - — 




25 



IJBSLA 
9 




30 



DOIO 



( RETURN I 



GETLBL 



HISTORY 




Check and Update HI STAB 



1 . Store Tl K of requesting task. 

2. Look in HISTAB for an entry of the label from 
i same partition with same Tl K. 

3. If entry found, update information ('UPDHIS') 

4. If no entry for label found, look for an empty 
entry and store information ('UPDHIS') — — 

5. If no empty entry found, provide an extension 
of HISTAB in GETVIS storage and store 
information there. 

6. If in case of (5) no GETVIS storage available, 
set return code — — „ „ — 



Note: HISTAB stores information to check 
sequence of functions. 



UPDHIS 




G 



-0 
<D 



IJBSLA 



RETURN 



J> 



Overwrite Old Information 



Storing information about labels requested in 
determined entries of HISTAB: for example, 
filename, group, Tl K, LAS, length, etc. 



I RETURN ) 
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Chart 36- $IJBSLA - Routines 



GETNXL 
28 




GNXTHIS 



Look for Entry in History Table 



1. Store TIK of requesting TASK. 

2. Look in HI STAB for an entry of the label from 
the same partition with the same TIK (to check 
if GET-f unction preceded). 

Check also extent sequence number, if requested. 

3. If no valid entry found, set return code 



( RETURN J 



GETNXL 
3 




28 



GNXTFBA 



Handle GETNXL Function for FBA 



1. If LAS with label not in I/O area, read it ('READLAS') - 

2. Check if the LAS contains additional label information. 

3. If not found, look for the next LAS in chain. If it exists, 
read it ('READLAS') 



4. If additional label information found, move it into 
interface buffer ('FBAIN') — — 



5. If no information found, set return code — 

Note: If one of the subroutines has return code f 



UBS LA 




35 
READLAS 



f RETURN j 




35 
READLAS 




35 
FBAIN 




25 



UBSLA 
9 
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Chart 37- $IJBSLA - Routines 



GETNXGL 



GGRPFBA 



GETNXGL Function for FBA 





1. If requested IAS not In I/O area, 
update CCW*chain to read it. 

2. Perform subroutine 'READ LAS' * 

3. Move label into buffer ('FBAIN') - 



4. Test if next label is in LAS, 

5. If label not found, look in LASs chained together: 

6. • Update CCW-chain to read next LAS 

• Perform subroutine 'READLAS',— — ■— . 



7, If end of LAS chain reached, set return code - 

8. If next label found, move it into interface 
buffer ('FBAIN') ■ ■ ■ . .. > ~ 



READ LA 

IJBSLA 
FBAIN 



Note: If one of the subroutines has a return code # * 



GETNXGL 
4 



GGRPCKD 




RETURN 



J 



UBSLA 



GETNXGL Function for CKD 



1. Calculate cylinder and track number of LAS 
requested. 

2. If LOCGRPL function before, prepare to 

read first record on track ('FIRSTREC') — "~ — - 
directly into buffer. 

3. If no LOCGRPL function before, prepare to 
read next label record (sequential) by 'RDIDREC 

4. If no record found, set return code. 

5. If record found was a chaining record, prepare to 
read first record on chained track ('FIRSTREC') 

6. If label record found, perform subroutine 
CDETLEN') — — " - 

Note: If one of a subroutine has return code i 0- 



DETLEN 



f RETURN J 



pQT) 

READLAS 
FBAIN 







FIRSTREC 



Read First Record on Track 



1. Update record number for first record. 

2. Update QCW-chain to read it ('RDIDREC')- 

3. If record not found set return code. 

4. If record found, perform subroutine 
'DETLEN' — — — ■ — — 

5. If return code ^ — — ~ " — 




f RETURN J 





UBSLA 



RDIDREC 



Read Next Record in Sequence 



1. Update CCW-chain to read another label record 
(search argument is count). 

2. Perform subroutine 'DQIQ' > ■ »«*■ < ' ■ — - — >— 



DQIQ 



f RETURN J 
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DETAIL CHARTS 



Explanation of Flowchart Symbols 



-A1- 



Process 
*B2 



— C1- 
Label 1 



BW 



Subroutine 



-Pi- 



Preparation 





-E1 1 

Predefined 
Process 






Input/Output I 




r H — ^ 

C Terminal ) 

© 




|BD 
Filinp 



DESCRIPTION 

A group of program instructions that per- 
form a processing function of the program. 
The label, if any, is shown above the block. 
*B2 

If any additional explanation is required, 
its location on the chart is identified by an 
asterisk and the block ID. 

Description of a subroutine. The starting 
label of the routine appears above the stripe. 
If the subroutine is documented in detail on 
another flowchart, the I D of this flowchart 
is alsp shown. 

An instruction, or group of instructions, 
that changes portions of a routine or initia- 
lizes a routine for given conditions. 



A group of operations not detailed in the 
flowcharts in this manual, such as user's 
routines. 



Any function of an input/output device or 
program, usually branching to an I/O routine 
to perform the function stated in the block. 



Points where the program branches to alter- 
nate processing, based upon variable condi- 
tions such as program switch settings and 
test results. 



The beginning, end or point of interruption 
in a program. 



On -page connector. An entry from or an exit 
to another function on the same flowchart. 
The number in the connector identifies the 
corresponding entry or exit on the chart. 



Off-page connector, an entry from, or an 
exit to, a given point on another flowchart. 
The characters in the connector identify the 
chart and block. The corresponding label, if 
any, is placed outside the connector. For mul- 
tiple entries and exits, an asterisk appears in 
the connector and the characters are listed 
nearby. 



EXAMPLE 



O 



V 



Start 



rB4« 



BB-D4, INITLI 
BC^B2, OPEIMX4 
Bl-JL, ENDPRN 



Read a 
Record 




.C4- 
Error 



YES 



-D4- 



NO 



— C5- 
Errtn 



BQ 



Error Routine 



Process the 
Record 



6 




YES 



>E5- 



User 
Routine 



YES 



RECPRO 




.G4 

*7UI records^ 
.Processed^ 



JfJS 




f End of Job J 



Print 
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Chart AA. 



$$A$IPL1 - IPL 
Refer to Chart 



Bootstrap Loader, CKD SYSRES 
01- 



****B3********* 

* OPBBATOH SET * 

* OMIT PHBSS * 

* LOAD KBI * 
*************** 



***C3********** 
READ 40 
* BYTES 

(CYLINDER 00, 
* TRACK 00- * 
BECOBO 2f 
***************** 



READ DISK INTO STORAGE LOCATION HEX 
18. (40-BYTES OF DATA, CHAINED CCN, 
AND SUPPRESSED WLR.) 



ADDBESS LOCATED AT STORAGE LOCATION 
HEX 30. (CHAINED CCH AND SUPPRESSED 



SEARCH FOB THE DISK RECORD SPECIFIED 
BY THE 5-BYTES OF DATA IN STORAGE 
LOCATION HEX 32 (SEEK ADDBESS PLUS 
2-BYTBS[. THE CCH IS CHAINED AND WLR 
IS SUPPRESSED. 



***************** 



***g3********** 

* SEARCH USING 
CCH 3 FOB 
* RECORD 5 * 

***************** 



BY PRBSSING THE LOAD OR CLEAB-LOAD ON IE) KEY 
(ENTER ON 115/125). THE OPERATOR CAUSES THE 
HICBOPBOGRAH TO READ THE FIRST RHCOBD 
OF $*A$IPL1 FBOH SYSBBS (CYL 0. TBK 0. BBC 1) 
INTO REAL STORAGE LOCATIONS 0-17 (HEXADECIMAL). 
THIS RECORD CONSISTS OF: 



.HEX LOC 


.0 


8 


10 


1«. 


.CONTENT 


. PSH 


. CCH1 


CCH2 





THE HICROPROGBAH INITIATES A SIO COMMAND 
SPECIFYING SYSRES AS THE UNIT AND CCW1 (HEX 
LOC 8) AS THE FIRST CCH. THIS COMMAND CAUSES 
THE NEXT 40-BYTE BECORD TO BE READ FROM SYSBES 
INTO BEAD STORAGE LOCATIONS 18-3F (HEXADECIMAL) 
THIS RECORD CONSISTS OF: 



.HEX LOC. 18 



THE CCWS (1-5) ABE CHAINED TOGETHEB. 



.HEX LOC. 30. 31. 32. 3i. 34. 35.Jb. 

'decimal'* 6!* 6**6**6* "61* i***»" 

.CONTENT 

I MEANING* *B**B**C* ' C* * H* * H* * H* 



WHERE 



BB IS BIN NO. 
CC IS CYLINDER NO. 
HH IS TBACK NO. 
R IS RECORD NO. 



AT THE COMPLETION OF THIS BOOTSTRAP OPERATION. 
**A*PLBK HAS BEEN LOADED INTO REAL STORAGE AND 
THE MICROPROGRAM TRANSFERS CONTROL TO IT BY 
LOADING THE PSH REAL STORAGE LOCATION 0. 



TRANSFER IN CHANNEL (TIC) TO CCW3 UNTIL 
THE SEARCH ADDBESS SPECIFIED BY CCW3 
IS FOUND. (CHAINED CCH AND SUPPRESSED 
WLR.) 



BEAD DISK INTO STORAGE LOCATION HBX 
3000. 7U096-BYTES OF DATA. SUPPRESSED 
WLR.) THIS CCW IS NOT CHAINED. 



***G3*********** 

* BEAD 4096 * 
BYTES 
* *$ASPLBK * 

*** ************** 



*H3********* 



THE PSW AT LOCATION CONTAINS 
THE ADBESS OF THE FIRST EXECUTABLE 
INSTBUCTION OF THE SSASPLBK PBOGRAM. 



*********** 



Program Organization 83 



Chart AB. $$A$IPLO - IPL Bootstrap Loader, Fixed Block SYSRES 
Refer to Chart 01- 



*••* A J********* 



*************** 



LOCATIONS 0' 



buiu ^ithui., THE HICBOPHOGBAM 
i. IPLCCW1 AMD IPLCCN2 INTO 
•23 FBOB BLOCK OF S1SBES. 



IPLPSU DC I' 00080000* 
DC A(*$ASPLBF) 



***************** 



IPLCCW1 X 

***C3************ 
BBAD-IPL 
* BLOCK * 
512 BITES 
• INTO LOC. * 
***************** 



TMBN IPLCCH1 IS EXECUTED- WHICH MILL BEAD 
THE FIBST 512 BITES OF BLOCK INTO 

LOCATIONS 0-511, 

IPLCCH1. IPLCCH2 

(PHASE MASIPLO NOW IN COBB COMPLETELY) . 



IPLCCH2 IS EXECUTED NEXT (VIA COMMAND 
CHAINING) B0T SEBVES AS A NOP ONLY. 



***************** 



IPLCCH3 X 

***£3**«********* 

LOCATE TO 
* BLOCK 3, * 
BLOCKCOORT 
* « 7 * 

***************** 



IPLCCH3 BILL LOCATE TO BLOCK 3 OF SYSBBS 
{BYPASSING THE VOLUHE LABEL AND SYSTEM 
DIBBCTOBI BLOCKS 1, 2). PBBPABING THE DEVICE 
FOB BEAD-DATA NITH A BLOi " 



LOCKCOONT OF 



* U096-512 
BYTES INTO 
* LOC. 512 * 

***************** 



IPLCCH4 HILL BEAD PHASB SSASPLBP FBOM 
BLOCK 3 AND FOLLOWING INTO LOCATIONS 
512-«»09f>. 



****63*«******* 

* TBANSFEB TO * 

* SSASPLBP VIA * 

* IPLPSH * 

*************** 



NON THB CHANNEL PROGRAM IS FINISHED, 
AND THE BICBOPBOGBAH LOADS IPLPSM AS 
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Chart AC, 



$$A$PLBK - Bootstrap Program, CKD SYSRES 
Refer to Chart 01- 



****A1********* 

* * 

* SSASPLBK * 

* • 
*************** 



***************** 



*****C 1********** 
♦DETHN AB* 

*.*.*_*_*-*.*.*.* 

* DBTBRHINE * 

* TYPB OP ♦ 

* HARDWARE • 

***************** 



REAL CORE *. 

LESS THAN . 

64K .* 



*********** 



*****g2********** 
♦IORTN AH* 
*-*-*-*-*-*-*-*-* 

* BEAD VOL1 * 

* LABEL RECORD * 

* * 
***************** 



*****F2********** 

* SAVE * 

* SISRES LABEL; * 

* SAVE VTOC * 

* START CC.HH.R * 

* * 
***************** 



*****q2********** 
♦IORTN AH* 

*.*.*.*-*..*-*.*.* 

* READ FORMATS • 

* LABEL BECORD * 

* * 
***************** 



*****H2********** 

* SAVE * 

* CKD-SYSRBS » 

* DEVICE * 
♦CHARACTERISTICS* 

* PROR P0RHAT4 * 
***************** 



SCAMRES 

*****j2********** 

* SCAN * 

* CKD-DBVICE * 

* CHAR. TABLE *. 

* FOR SYSRES * 

* DEVICE CHAR. * 
***************** 



.*. 


ERR0I06A 








A3 ♦. 








.* *• 


• * 






.* *. MO 


* PLAJR CODE * 






..X*» POUND .*.... 


....X* 01061 


INTO * 

:ore * 






*. .* 


* LOM ( 




*. .* 


* * 






*. .* 


***************** 






* YES 














• •** 










* ' * 




. 






* Bi *... 










* * . 










**** X 




DEVFMD X 






.*. 




*****B3********** 


X 


B5 *. 




* SAVE * 


****Bi»********* 


.* MILL *. 




• CKD-SYSRES * 


• ENTER * 


NO .* PHASE FIT 


• 


* DEVICE * 


* HARD * 


.....*. INTO REAL 




♦CHARACTERISTICS* 


* WAIT * 


*. CORE 


* 


* * 


*************** 


*. .* 




***************** 


**** 

* * 

* en *... 

* * . 


*. .* 
* YES 






**** 


X 




X 


BRR0I00A X 


.*. 




*****C3********** 




C5 *. 




*IORTH AH* 


* * 


.* *. 




*-*-.*-*-*-.*-*-*-* 


* PLACE CODE • 


. * DOBS 


* 


* READ PIRST * 


* 0I00A INTO *X.. 


*. PROCLIB 




* SYSTEM DIR. * 


* LOB COBB * 


*. EXIST . 


• 


* RECORD * 


* * 


*. .* 




***************** 


***************** 


*. .* 





*****Q3********** 

* * 

* SAVE PROCLIB * 

* BEGINNING * 

* CC.HH.R * 

* * 
***************** 



****E3********* 

SAVE SCIL 
BEGINNING 
CC.HH.R 

*****•*********; 



*****F3********** 

♦KSCILDR AP* 
*-*.*.*.*.*.*.*-* 

•SEARCH IN SCIL * 

• FOR SSASIPLR • 

* PHASE ENTRY * 
***************** 



****D<t********* 

* ENTER * 

* HARD * 

* WAIT * 



G3 *. 

* 

FOUND 



* PLACE CODE 

* 0I07A INTO 

* LOW CORE 

* 

********•*******; 



****J3********* 

* ENTER * 

* HARD * 

* *AIT * 

*************** 



* Bb * 

* * 
•*** 



DOES *. 

S*A»S1PLE . 

. EXIST .* 



*****g5********** 

*KRDPHASE AP* 

*.*-*-*-*-*-*.*.* 

* LOAD *SASPPLE * 
♦INTO REAL CORE * 

* * 
***************** 



***•? 5***»****** 

* 

COMPUTE * 

LOAD ADDRESS * 

FOR **A*IPLR • 



*****Q^«********* 

♦KRDPHASE AP* 

*-*-*-*.*.*.*.*-* 

* LOAD $*A*IPLR * 

* INTO * 

* REAL CORE * 
***************** 



*****H5********** 

* COMPLETE * 

* COMMUNICATION * 

* AREA FOR * 

* fSASIPLR * 

* * 
***************** 



*****j5********** 

* * 

* SET BASE * 

* REGISTERS * 

* FOB S*A»IPLR * 



****K5********* 

* TRANSFER * 

* CONTROL TO * 

* »*ASIPLR * 

*************** 
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Chart AD- $$A$PLBF - Bootstrap Program, Fixed Block SYSRES 
Refer to Chart 01* 



* * 

* $$A$PLBF * 

* * 
*************** 



***************** 



*****£ i********** 
♦DBTHW AE* 
*-*-*-*-.*-*-*-*-* 

* DETERMINE * 

* TYPE OP * 

* HARDWARE * 
***************** 



REAL CORE 

LESS THAN 

64K 



INDICATE 

PDA 

SYSRES 



.*-*.*-*..* 



********** 



*****f2********** 

* U SAVE * 

* SYSRES LABEL; * 

* SAVE VTOC * 

* START BLOCK * 

* NUMBER * 
***************** 



*****u 2* ********* 
*IORTN AH* 

*_*_*_*_*_*_*_*-* 

* READ SYSRES * 

* FBA-DEVICE * 

♦CHARACTERISTICS* 

^ ^ ^ ^ ^. ^ j^ „, # ^ 



*****H2********** 

* * 

* SAVE SYSRES * 

* PBA-DBVICE * 
♦CHARACTERISTICS* 

* * 
***************** 



*****j2********** 
*IORTN AH* 

*_*..*-*_*_*_*_*_* 

* READ SYSTEM * 

* DIRECTORY * 

* BLOCK * 
***************** 



***** K 2********** 

* * 

* SAVE * 

* EXTENT INFO * 

* OF SCIL * 

* * 
***************** 



DOES 

PROCLIB 

EXIST 



*****B3********** 

*IOBTM AH* 

*_*_*_*_*_*_*_*_* 

♦BEAD SCIL-DIR. *X. 

* DESCRIPTION * 

* RECORD * 
***************** 



*****Q$********** 

* GET SCIL-DIR. * 

* BLOCK-SIZE * 

* AND EXTENT * 

* INFORMATION * 

* * 
***************** 



* INITIALIZE * 

* PBA CCW * 

* INFORMATION * 

* * 
***************** 



*****£ 3********** 

♦FSCILDR AG* 

*-*-*-*-*-*-*-*-* 
♦SEARCH IN SCIL * 

* FOR $$A$IPLR * 

* PHASE ENTRl * 

***************** 



***************** 



*****B4********** 

* * 

* SAVE PROCLIB * 
.* EXTENT * 

* INFORMATION * 

* * 
***************** 



* PLACE CODE * 

* 0107A INTO * 

* LOW CORE * 

* * 
***************** 



****H3********* 

* ENTER * 

* HARD * 

* WAIT * 
*************** 



* PLACE CODE * 
♦0I09A INTO LOW * 

* CORB * 

* * 
***************** 



****K3********* 

* ENTER * 

* HARD WAIT * 

* * 
*************** 



YES .* PHASE * 
4..*. GREATER 512K 
*. BYTES .* 



PHASE 
FII INTO 
. CORB 



**** 

ERR0I00A X 

*****Hil********** 



* LOW CORE * 

* * 
***************** 



****J it********* 

* BHTRR * 

* HARD * 

* WAIT * 

*************** 



DOES 

PROCLIB 

EXIST 



DOES 
**A*IPLK 
. EXIST 



***************** 



COMPUTE * 

LOAD ADDRESS * 

FOR $*IPLR * 

**************** 



*****G5********** 
•PROPHASE AG* 

*•.*.*.*<!*«* _*_*-.* 

* LOAD *»A*IPLR * 
♦INTO REAL CORE ♦ 

* * 

***************** 



*****M5********** 

* COMPLETE * 

* COMMUNICATION * 

* AREA FOB * 

* **A*IPL« * 

* * 
***************** 



*****j5********** 

* * 

* SET BASE ♦ 

* REGISTERS ♦ 

* FOR $*A»IPLB ♦ 

* * 
***************** 



****K5********* 

* TRANSFER * 

* CONTROL TO * 

* **A*IPLR * 

*************** 
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Chart AE.. DETHW (Subroutine of Macro IPLBMAC) - Determine Type of Hardware 



*****Al ********** 

* * 

* SUPPRESS * 

* HACHINE CHBCK *X. 

* EXT. LOGOUT * 

* * 
***************** 



*****B1 ********** 

* * 

* INSERT * 
•82XX PBOCESSOB * 

* CONSTANTS * 

* * 
***************** 



.♦ CAM ♦ . 
.♦ME EXECUTE 
A STCAP 

♦. INSTR. . 



***************** 



B2 *. 

.* CAN *. 
•WE EXECDTE 

A PTLB 
♦ . IBSTB. . 



•♦**43********* 

* * 

* DETHW * 

* * 

*************** 



*********** 



*********** 



************ 



**** 

* * 

* E3 * 

* * 
**** 



MO .* PLOAT. 
...*. POINT 
♦.HABDNARE 



**pi ******* 



INDICATE 

PLOAT. POINT 

HABDNABE 

* * 

*********** 



*****G1********** 

* TAKE HlNIHUM * 

* FBOH * 



* 5TORAGK, * 

* BEAL STORAGE) • 

***************** 



* COMPUTE END 

* OF BEAL COBB 

* PBOH HINIHOM 

*************** 



*****j 1********** 

* * 

* SAVE BEAL • 

* STOBAGE * 

* END ADDRESS * 

* * 
***************** 



****K1********* 

* * 

* RETURN * 

* * 
*************** 



ABE 
HE ON 
Vfl 



CLEAB X 

*****£3********** 

* CLEAB * 

* 256 BYTES * 
...X* OF BEAL COBB * 

♦BEHIND PBOGBAH • 

* * 
***************** 



*****P2********** 

* * 

* OBTAIN * 
♦REAL COBE SIZE ♦ 

* PBOH VH ♦ 

* • 
***************** 



*****Q2*****«**«* 



***************** 



CONTIN X 

*****H2^*^**^*«* 

♦ SET VIRTUAL 

♦ STOBAGE * 

. ...♦ RBAL STORAGE 

♦ SIZE 
* 
**************** 



.♦ HACHINE ♦. YES 
. CHECK WHILE ...... 

♦.CLBABING .♦ 
♦.COBE .♦ 



BHSBCBET .♦. 



END 
OF COBE 
BBACHBD 



*****Hj********** 

* * 
♦ADVANCE POINTEB^ 

♦ TO NBXT ♦ 

♦ 256 BYTES ♦ 

* * 
***************** 



SOFT 

HACHINE 

CHECK 



♦ INSERT ♦ 
♦HABD WAIT CODE * 

♦ INTO LOH COBE ♦ 

♦ * 
***************** 



• ***jit********* 

♦ ENTER * 

♦ HARD • 

♦ WAIT * 

*************** 
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Chart AF. IPLBMAC - CKD H6Utin€S 



****ai********* 

* • 

* KSCILDH * 

*************** 



****A3********* 

* * 

* KRDPHISB * 

* * 
*************** 



****A$********* 

* » 

* ttfccdnv * 

* , • * 
*************** 



***$*£ I****** 1 **** 
* RBSBT * 



•SBARCfi AD 

:*Jt-ntt 



icfdif* * 

* 

***************** 



f $*$*<* 1*$##****»* 
*SC$N 1 Ct|A Qf ♦ 



*****h 1 ***** ** •*« 



*SBA»£ 



uP 



**2*»* 



* : ^!&>- s 



» c 'HiN M a. 

♦scit-EfllJi 



i******** 



***************** 



**§IS* B a«*«*****«* 



****«C3*********« 
♦IOBM M ' ^ AB* 

*.«**.*..«..*.*..*** 

*****I*3****i**** 



m f8l*«j>3*»*****«** 

***************** ' 



*****£3********** 

» * 

***************** 



.♦* ALL , **. MO 



ttBCQIW X 

*****B5********** 

*S8Ai88 ADOilSS • 

* * 

•*«******«****•«« 



***«*C5******«**« 



■SMI 

CCiBI 



HH 



. ***************** 



»*«*• 

•scu-d!bbc*8b| • 

* T * 

***«*****»*****»• 



**4***$*1******** 

! B «S W"»I8 S * : 

***«**•*******»*« 



<****f§********* 
* BETUBM * 

*************** 



FOUND 



* C H$l*%*i******** 



***************** 



*****jl |*******A** 

***************** 



*****£ 3********** 

* BEAD IB * 

* * 

*********••**«•** 



****H3********* 
* RBfUBR f 

*************** 



c Iglg^ji^j*,,***^^ 

*. '* 

* . * 

***************** 



.X, 



SCILDISX 

****K1 ********* 

* 8ETO«N * 

*************** 
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Chart AG- IPLBMAC - Fixed Block Routines 



****&-| ********* 

* * 

* FSCILDR * 

* * 
*************** 



pscildr 

*****b 1* ********* 

* reset bxtbht * 

* information • 
♦to start-block * 

* op scil-dir. * 

* * 
***************** 



*****£ t********* 

* STEP OVER 
♦SCIL-DIRECTORY 

* DESCRIPTOR 

* BLOCK 
* 

****************< 



*****Q 1*********1 

* 

* INITIALIZE 
♦FOR RBAD-BUPPER' 

* SCAM 

* 
**************** 



****43********* 

* * 

* PROPHASE * 

* * 
*************** 



X 



FNXTDRBLK _ 

*****£ 1********** 

♦IORTN AH* 
*-*-*-*-*-*-*-*-* 

* READ NEXT * 
♦SCIL-DI RECTORY ♦ 

♦ LOGICAL BLOCK * 
***************** 



*****P1********** 

* ADVANCE * 
♦EXTENT-INFORM. ♦ 
♦TO NEXT LOGICAL^ 
♦SCIL-DIRECTORT * 

♦ BLOCK ♦ 
***************** 



X 
.*. 

G1 ♦. 



♦ SAVE ♦ 

♦ PHASE ENTRX ♦ 

♦ INFORMATION ♦ 

♦ * 
***************** 



*****K1**» ******* 
♦COMPUTE LENGTH ♦ 

♦ OF PHASE. ♦ 

♦ SET CONDITION ♦. 

♦ CODE TO ZERO ♦ 

♦ * 
***************** 



* SET ♦ 
♦CONDITION CODE ♦ 

* TO NON-ZERO ♦ 

* * 
***************** 



FSCLDIRX 

X 

* * 
...X* BETURN ♦ 

* * 
*************** 



PROPHASE 

*****C3********** 

♦ INITIALIZE ♦ 

♦ DEF. EXTENT ♦ 

♦ AND LOCATE ♦ 

♦ INFORMATION ♦ 

♦ * 
***************** 



*****q 3********** 

♦ * 

♦ COMPOTE MO. ♦ 

♦ OF FBA BLOCKS ♦ 

♦ TO BE BEAD IN ♦ 

♦ * 
***************** 



♦ COMPLETE ♦ 

♦ LOCATE ♦ 

♦ INFORMATION ♦ 

♦ * 

***************** 



FRDBCCM 

*****P3********** 

♦ BOILD FBA ♦ 
♦CHANNEL PROGRAM^ 

♦ TO READ PHASE ♦ 

♦ BT SINGLE SIO ♦ 

♦ * 
***************** 



*****Q3********** 

♦ INSERT INTO ♦ 

♦ LOCATB-CCN ♦ 
♦REL. BLOCK-NO. ♦ 

♦ OF PHASE ♦ 

♦ * 
***************** 



*****B3********** 
♦IORTN AH^ 
*-*-*-*-*-*-*-*-* 

♦ READ TOTAL ♦ 

♦ PHASE ♦ 

♦ * 
***************** 



*****j3********** 

♦ * 

♦ SAVE ADDRESS ♦ 

♦ OF LAST BYTE ♦ 

♦ READ IN ♦ 

♦ * 
***************** 



****K3********* 

* * 

* RETURN ♦ 

* * 
*************** 



♦ G1 
LAST PHASE ENTRY 
OF LOGICAL 
SCIL-DIR. BLOCK 
LESS THAN GIVEN 
PHASE ENTRY 



♦ HI 
GIVBN PHASE ENTRY 
FOUND IN LOGICAL 
SCIL-DIR. BLOCK 
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Chart AH.* IPLBMAC - Common I/O Subroutine 



**** 
* * 

* *2 * 

* * 
**** 



*#**A1 ********* 

* IobtM * 

*** ************ 



RBSBt 
I/O SWITCH 



***************** 



***C 1 *'****#****** 



***************** 



ALLS 
MPOBI 



***************** 



.* TEST *. 
.♦.I/O DEVICE .•*». 
SOT *. .HOT 

AVAIL. *. .* OPE6. 



***C2************ 

* ^S8§! * 



***************** 



HO k* SENSE *. 
..*. SUCCESSFUL . 



.♦COMMAND*. 

.* H EJECT *. 

*. ACCEPTABLE .* 



.♦ HAS IT 
COHftAMD 
♦ . BEJECT 



*»G2******* 

* * 

INDICATE 

COMMAND 

REJECT 

*, * 

*********** 



C3 ♦. 

* 
-DISK 
DEVICE 



D3 

. * ^ 

Of LIN DEB 



.X*. SBRSB BYTES .*... 



.* 

* •*' 
* YES 



**B3******* 



TO CALLEB 

* * 

*********** 



* K1 * 

* * 
•*•* 



***» 

* * 

* ab * 

* * 
**** 



***************** 



*****C5********** 

* BUILD * 

* LOW COBB * 

* BBSSAGK * 

* X»07B6 r * 

* * 
***************** 



****D5********* 

* BMTBB * 

* UABD MA1T * 

* * 
*************** 



••.."ISISf"..-*- 

*. .* 
*. .* 
* MO 



* O.K. ♦ ♦*♦ 


* * . 


* B5 * 


. * * . 


**** . 


X 


.♦* . 


1 ♦. 


•• • 


OMIT •. XBS 


CHECK .*.... 


• ♦ » . 


.* . • 


♦ . .♦ X 


*' NO **** . 


. * * 




* A2 ♦ 




* * 




**** . 


».X 




t 


X. ............... ......... 



* CKD bbbor * 
.♦ COBBBCTIOM » 

* FUNCTION * 

* * 
***************** 



**** 

* * 

* K1 • 

* * 

**** 

****K 1********* 

* * 

* RETURN * 

* * 

*************** 



***************** 
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Chart BA„ 



$$A$IPLR - Initialization 
Refer to Chart 01>. 



****ai **♦♦♦**** 

* JSASIPLR • 

* * 
******* ******** 



**** 

* * 

* B2 * 

* * 
**** 



****AI|********* 

* * 

* PSOP * 

* * 
*************** 



***************** 



*****ci********** 



***************** 



FBACDLO X 

*****C2********** 
•FSCILDB AG* 

*-*-*-*-*-*-*-*-* 

* SCAN SCIL-DIB. * 

* FOB $$lfCDL0 * 

* PHASE BNTR* * 

***************** 



*****C3********** 
♦KSCILDR AP* 
*.*.*-*.*_*_*.*.* 

♦SCAM SCIL-DIH. * 

* POR SSASCDLO * 

* PHASE ENTRI * 

***************** 



* INDICATE ' 
* PAGEABLE 

* SUPERVISOR ' 

* * 

*********** 



**Cit******* 

* INDICATE * 

* LIST IPL 

CBDS AT 

* SYSLOG 

* * 
*********** 



*****Df ********** 

* * 
♦COPT COHMUIIIC. * 

* AREA IPLRCOH. * 

* INTO SSASIPLR * 

* * 
***************** 



*****£ 1********** 

* * 

* BUILD A POB * 

* POR STSRBS * 

* (RBSPUB) * 

***************** 



F1 *. 
.* *. 

* 
FBA-SYSRES 



FBAIM1 X 

*****Q |********** 

* INITIALIZE * 
*PBA DBF. EXTENT* 

* AND LOCATE * 

* INFORMATION * 

* * 
***************** 



***** 
*BB * 
* A1* 



*****Di|********** 



***************** 



*****B2********** 

* * 

* INITIALIZE * 

* PBA CCIMS * 
♦POR PHASE READ * 

* * 
***************** 



*****£3********** 

♦TTRCONV AP* 

*-*-*.*.*.*-*-*-* 

* CONFER! TEXT * 

* RECORD TTR * 

* INTO CC.HH.R * 
***************** 



*****P3********** 

* * 

* SET OP CCN * 

* FOB BBAD ♦ 

* TEXT RECORD ♦ 

* * 
***************** 



BLANK 


* 


IBS 


INPOT 


* 


*. .. . 


♦ . .♦ 






♦. . * 




X 


♦ NO 




**** 

* * 

* Kl» ♦ 

* * 






**** 


X 






.♦. 






PU *. 






* * 






VALID 


* 


NO 


SOP. NABE 




*.... 



**H1******* 



*********** 



*****j J********** 

* STORE CPO-ID ♦ 

* AND BUILD ♦ 

* MESSAGE ♦ 

* 0I01I ♦ 

* * 
***************** 



♦ B2 ♦ 

* * 

*•'** 



CDLREAD X 

*****G2********** 
♦IORTN AH^ 
*-*-*-»-*-*-*-*-* 
♦ READ ONE ♦ 
♦TEXT RECORD OF ♦ 
♦PHASE $$A$CDL0 ♦ 
***************** 



* * 
* INDICATE 

* PRESENCE OP 
*COHH. DEVICE 

* LIST * 
*********** 



***** 
*BB ♦ 
♦ A1» 



**g3******* 

* * 

♦ INDICATE 

♦ NON-PAGEABLE 

♦ SUPERVISOR 

* * 
*********** 



INDICATE 

INVALID 

INPUT 

* * 

*********** 



♦ K<» +.X. 

♦ ♦ . 
**** 

X PSUPX 

**K4******* A 

* * ****k5********* 

♦ INDICATE *S * ♦ 

♦ VALID INPUT / X* RETURN ♦ 



* a 
*********** 






*****LOG***** 
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Chart BB., 



$$A$IPLR - Load Selected Supervisor 
Refer to Chart 01- 



***** REFERENCES 
* * TO BBA1: 
** t* BAD2, BAH2 
* * BGB5, BHJ3 



NOCDL 
LOGREQ 

***** 



* TORI! OFF ASI * 

* PROCESSING * 

* FLAGS * 

* * 
***************** 



**** 
LOGREQ5 

*****g1 ********** 



*. PBA-SYSRES 



***************** 



*****C 1********** 

* * 
♦DISABLE WAITLOG* 

* PSW FOR EXT. * 

* INTERRUPTS * 

* * 
***************** 



FBASUPD 

*****C3********** 
♦FSCILDR AG* 

*_*_*_*_*_*_*_*..* 

•SCAN SCIL-DIR. * 
♦FOR SUPERVISOR * 
* PHASE EHTRJ * 
***************** 



*****C4********** 

♦KSCILDR AF* 

*.*.*.*-*.*.*.*-* 

♦SCAN SCIL-DIR. ♦ 
♦FOR SUPERVISOR ♦ 
♦ PHASE ENTRY ♦ 

***************** 



*****D1 ********** 


D2 ♦. 








D3 ♦. 


♦REQLOG BK* 


.♦ *. 








.♦ ♦. 


*-*-*-*-*-*-*-*-* 


.♦ IS IPL TO ♦ 


NO 




.♦ ♦.NO 


♦ REQUEST A ♦... 


. . ...X*.BE TERMINATED 


,* 


•*• 




*. FOUND .......... 


♦ SYSLOG ♦ 


♦ . .♦ 


♦. .♦ 


* * 


♦. .♦ 








♦. .♦ 


***************** 


♦. .♦ 




X 




*. .* 




♦ YES 




**** 


♦ YES 


**** 






* 


* 




* * 






♦ El 


* 




♦ E1 *... 






* 


* 




♦ * . 






***< 






**** 












X 


ERROIOttA X 








X 


*****£ 1********** 


*****£2********** 






*****E3********** 


♦RESTART BG* 


* 


* 






* * 


*-*-*-*-*-*-*-*-* 


* DISPLAY 


* 






♦ COMPUTE ♦ 


♦ CHECK FOR ASI * 


♦ HESSAGE OIOUA 


* 






♦ LENGTH OF ♦ 


♦ RESTART ♦ 


* 


* 






♦ SUPERVISOR * 



BRR0I02A 

*****0lt********** 

♦ ERRLOG ♦ 

*-*.*.*.*.*.*.*.* 

X* WHITE HESSAGE ♦. 
♦0I02A TO SYSLOG* 



.X* 



**** 



**********: 



*****D5****« ***** 
♦HAITLOG BH* 

•-*_*-*_*_*_*-*-* 

HAIT FOR ♦ 
♦ATTENTION FROH ♦ 
♦ SYSLOG ♦ 

***************** 

* **** 

* ♦ 
..X* Ft * 

* * 
•*** 



***************** 



**** 
♦BC * 
♦ F2 



**** 
SUPREQ X 

*****F1********** 
♦REQSUP BL* 

*-*-*-*-*-*-*-*-* 
..X* REQUEST A ♦ 
. ♦SUPERVISOR NAHE^ 

♦ * 

***************** 



*****G1********** 

♦RESTART BG* 

*.*.*.*.*.*.*_*.* 

* CHECK FOR ASI ♦ 

* RESTART ♦ 

* * 

***************** 



X 

.*. 
HI *. 
.* ♦. 
♦ IS ASI *. YES 




♦TERMINATED. ♦ 

♦. .* . 

*. .♦ 
♦ NO 

*X '. 



***************** 



****£ 2******^** 

♦ ENTER ♦ 

♦ HARD HAIT * 

♦ * 

*************** 



**G2******* 

♦ INDICATE ♦ 

ASI NO 

LONGER 

EXISTING 

* * 
*********** 



***************** 



ERR0I00A 

*****pil********** 

* ERRLOG ♦ 

*.*.*-*.*.*.*.*.* 

...I* WRITE HESSAGE ♦. 
♦0I00A TO SYSLOG* 

* * 
***************** 



*. FBA-SYSRES 



*****H3********** 
*KRDPHASE AF* 
*-*.*.*-*_*-*_*.* 
♦READ SUPERVISOR* 
♦INTO REAL CORE * 
* * 

***************** 



PHASE *. 
GREATER 
.512 BYTES.* 



*****Hil********** 

♦PROPHASE AG* 

*.*-*.*.*_*-*.*-* 
♦READ SUPERVISOR* 

♦ INTO REAL CORE ♦ 

* * 
***************** 



*****j i********** 



***************** 



*****j4********** 

* ASIFENA * 

*.*.*.*.*.*.*.*_* 

.X*ENABLE FOR ASI ♦. 

* RESTART * 

* . * 
***************** 



****f^******«*« 

* ENTER * 

* HARD WAIT * 

* * 

*************** 



* WRITE ♦ 
X* HESSAGE 0I09A ♦ 

* TO SXSLOG ♦ 

* * 

***************** 



****U5********* 

♦ ENTER * 

♦ HARD WAIT * 



****«J> > *******4l** 

♦RESTART BG* 

*-*.*.*-*.*.*_*.* 

. X* CHECK FOR ASI ♦ 

* RESTARi' * 

* * 
***************** 



***** 
*BC * 
* A1* 
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Chart BC. $$A$IPLR - Check Supervisor Generation Options. Initiate System. 
Refer to Chart 01.. 

***** 

* * REFERENCES 

* ** TO BCA1: 
* * BBJ3, BBJS 



.*. ERR0I6tt<t 

A1 *. *****42********** 

.* *. *ERHLOG *H«* 

.♦PP-PEATURB *. MO *-*-*-*-*_*-*-*-* 

.SYSGEN*D AND .* X* WRITE MESSAGE *. 

*. ON CPO .* * 0I68A TO * 

*. .* * SYSLOG * 

*. .* ***************** 
* YES 



.IS SUPVB*. 
GENERATED 
FOR THIS 

.HARDWARE .' 



ERR0I68B 

*****l)2********** 
♦BRRLOG *H«* 

*-*-*-*-*-*-*-*-* 

...X* WRITE MESSAGE *. 

♦0I68A TO SISLOG* 

• * 

***************** 



NO 

D1" ♦. D2* **. 

.* *. .♦ *. 

.♦VH HANDSH. *. YES .♦ ARE NE *. 
. SUPERVISOR .* X*. ON VH .* 

*. .* *. .* 

*. .* *. .* 

*. .* *. .* 

* NO * IBS 

X.* '. 

It ! 

x 

.*. BBR0I68C 

Bl *. ♦♦*»»B2********** 

.♦IS DBV.*. *BRRLOG *H»* 

.♦SOPPORT FOR*. NO »-*_#-*-♦_»-*-*_» 

. STSRBS IN .♦. X* WRITE MESSAGE *..X 

♦SUPERVISOR.* *0I6BA TO SISLOG* 

*. .* * * 

*. .* ***************** 

* YES 



.♦IS DEV.*. 

.♦SUPPORT FOR*. 

*. SISLOG IN . 

♦SUPERVISOR. ♦ 



ERR0I68A 

*****P2********** 
♦ERRLOG *HH* 

*-*-*-*-*-*-*-*-* 
...X* WRITE MESSAGE ♦. 
♦0I68A TO SYSLOG* 
* * 

***************** 



***** 
♦BB * 
♦ F1* 



♦ INSERT REAL * 

♦ STORAGE SIZE ♦ 

* INTO COM REG * 

* * 
***************** 



*****j1 ********** 

* * 
♦INSERT VIRTUAL ♦ 

* STORAGE SIZE ♦. 
♦INTO BG-COHREG ♦ 

* * 
***************** 



**J2******* 

♦ INDICATE ♦ 
♦NON-PAGEABLE 

♦ SUPERVISOR 
* IN SHCB 

* * 
*********** 



♦ INITIALIZE ♦ 
.X*CHANNEL CONTROL^ 

♦ TABLE ♦ 

♦ * 
***************** 



STIDEL 

*****j3********** 

♦ DETERMINE ♦ 

♦ SIZE OF I/O ♦ 

♦ EXTENDED ♦ 

♦ LOGOUT AREA ♦ 

♦ * 
***************** 



*****K3********** 
♦DETERMINB SIZE.^ 

♦ OF EXTENDED ♦ 

♦ MACHINE CHECK ♦. 

♦ LOGOUT AREA * 

♦ * 
***************** 



*****A4 ********** 

•DETBG BJ^ 

*-*-*-*-*-*-*-*-* 
.1* DETERMINE BG- ♦ 

♦ BEGIN ADDRESS ♦ 

* * 
***************** 



*****git********** 
♦INITCTLR *HH* 

*-*.*.*.*-*.*.*.* 

♦ INITIALIZE ♦ 

♦ CONTROL REGS ♦ 

♦ * 
***************** 



SETKBY1 X 

*****B5********* 

♦ SET STORAGE 

* PROTECT KEY 

* OF SUPERVISOR 

♦ TO ZERO 



SBTKBY2 

*****£>)*******•** 

♦ SET STORAGE ♦ 

♦ PROTECT KEY ♦ 

♦ OF PROBLEM ♦ 

♦ PROGRAM ♦ 

♦ TO ONE ♦ 
***************** 



*-*-*-*-*-*-*-*-* 

♦ INITIALIZE ♦ 

♦ DAT FEATURE ♦ 

♦ * 
***************** 

*x 


.* IS ASI *. NO 
*. IN PROCESS ...... 

♦. .♦ . 
♦. .♦ 

♦ . .♦ 

♦ YES 

x r 

*****B5********** 

♦ ♦ . 
♦PASS SUPVB NAHB^ 
♦TO JIPLRT2 VIA ♦ 

♦ BG-COHREG ♦ 

♦ ♦ 
***************** # 


NOIDAT X 

*****Eit********** 

* * 

* INDICATE ♦ 
♦IPL IN PROCESS ♦ 

* * 

* * 
***************** 


X 


X 

***** 

♦ BD ♦ 

♦ B-1* 



*****p<l** 

♦ MASK OFF 

♦ ATTENTION 

♦ ROUTINE 

♦ FOR JCL 
* 
**************** 



♦ B5 ♦ 

* * 
**** 



♦HI 

THESE 

SUBROUTINES ARE 

NOT SPECIALLY 

DOCUMENTED 
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Chart BD* $$A$IPLR - Build Communication Area and 3-Device System 
Refer to Chart 01. 



***** 

*BG * 
* B5* 



* B2 * 

* * 
**** 



*****B1 ********* 

* CALCULATE 

* ADDRESS OP 

* COHH. ABBA 

* IOPLD 
* 
**************** 



*****C1 ********** 

* INSERT * 

* TRUE LENGTH * 

* OP FTP * 

* 18 IOPLD * 

* * 
***************** 



*****D I********* 

* INSERT 

* SYSLOG TYPE, 

* DOC-SUPPORT, 
♦DEVICE ADDRESS 

* IN IOPLD 
****************i 



*****£ 1********** 

•* * 

* MOVE GENER. * 

* PUBS AMD POCL * 

* INTO IOPLD * 

* * 
***************** 



:****f 1*********1 

MULL POCL 
AMD PI EST 
POUR PUBS 

***************: 



****B2********* ; 



***************: 



*****B3********** 

* * 
♦SAVE SUPERVISOR* 

.X* I/O AND BIT. * 

* MEH PSW * 

* * 
***************** 



*«***C3********* 
* 

* SET OP 

* I/O AMD EXT. 

* MEN PSH*S 
* 
**************** 



*****Bif ********** 

* Load device * 

* addrbss pboh * 

* i/o-imterrupt * 

* CODE * 

* * 
***************** 



*****Ci*********** 
*SCAMCDL BG* 

*-*-*-*-*-*-*-*-* 
•DEVICE ADDRESS * 
* IM COHH. 



*****02********** 



***************** 



*****B2********** 



***************** 



* D3 *.X 



**** 
HAIT X 

*****03********** 

* WAIT POB IPL* * 

* COHH. DEVICE* 

* * INTERRUPT ♦ 
~ ' (SYSUSB) ~ 



»*Bb* ****** 

* * 

* INDICATE TO * 

* JCL INPUT * 

* PROM SXSRDR * 

* * 
*********** 

**** 

* * 

* Ct> * 

* * 
**** 

DKSXSRDB 

**C5******* 

* INDICATE * 
.* IN IOPLD * 

* IPL-COHHAMDS * 

* PROS SXSRDR * 

* * 
*********** 



**** 

* * 

* <J5 * 

* * 
**** 



♦X. 

* 
* * ' ' * * 
***************** 



INTERRUPT 



**** 
. *BB * 
..X* Bl 



*•** 

* * 

* D3* 

* * 
**** 



****P2********** , 

* 

* 
♦ X. 



ADDRESS OP 
SYSRDB PROM 
IOPLD PUBS 



***************** 



PRSYSRDR X 

*****G2********** 
♦SCANCDL BG* 

*_*.*_*.*.*.*_*.* 

* SXSRDR IN * 
•COBB. DBV. LIST* 

* * 
***************** 



* D3 * 

* * 

**** 



* WRITE * 

* HESSAGB 0I01A * 

* TO SYSLOG * 

* * 
***************** 



*****Q||********** 

*UNITCHCK BP* 

*-*_*.*-*.*>*.*.* 

* CHECK POR * 

* DISKETTE * 

* * 
***************** 



H2 *. 

* 

POUND 



. **** 
X * * 
.X* D3 * 

* * 
***• 



**y <>******* 

* INDICATE * 

* IN IOPLD * 

* IPL-COHHANDS * 

* PBOH SXSLOG * 

* * 
*********** 

**** 

* * 

* Gi) *.x 

* * 
**** 

BUILDCOH L 

*****Q5********** 

* BUILD PUB FOB * 

* IPL COHH. * 

* DEVICE SXSUSB * 

* (COHPUB) * 

***************** 



*****H5********** 

* RESTORE * 

* SUPERVISOR * 

* I/O AND EXT. * 

* NEW PSU * 

* * 
***************** 



*****j i********** 

* * 
♦HOVE PICL. MICL* 

* AMD BG-LUBS * 

* TO IOPLD * 

* * 
***************** 



CDSXSRDR X 

*****j2********** 
♦SET 2501 DBVICE* 

* TXPE INTO PUB * 

* POR SXSUSE * 

* (COHPUB) * 

***************** 



**** 

* * 

* B5 * 

* * 
*•** 



*****jil********** 
•DKETSCAN BG* 

*-*-*-*-*-*-*-*-* 
♦CHECK DISKETTE * 
♦LABEL AREA POR ♦ 
♦PILE-ID 'IJIPL^ 
***************** 



*****K4********** 
*SET 3S40 DEVICE* 

* TXPE INTO PUB ♦ 

* POR SXSUSE * 

* (COHPUB) ♦ 

***************** 



**** 

* * 

* cs * 

* * 

**** 
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Chart BE., $$A$IPLR - Initiate Supervisor Components. 

Pass Control to Command Processing in Supervisor State- 



•• REFERENCES 

*T0 BBB1: 

**BDE2, BDH5 



B3DSASLU X 

*****B1 ********** 
•BPOBLUB BG* 

*-*-*-*-*-*..*-*-* 

* BUILD PUB AND * 

* LUB POB SYSRES * 

* PROM RBSPOB * 

********** ******* 



*****C1 ********** 
♦BPUBLUB BG* 

*-*-*-*-*-*-*-*-* 

* BUILD PUB AMD * 
•LUB FOB SYSLOG • 

* PROM LOGPUB * 

***************** 



*****D1********** 

♦BPUBLUB BG* 

*.*.*-*_*.*.*.*-* 

* BUILD PUB AMD * 
♦LUB FOR SYSUSB * 

* FBOH COHPUB * 
***************** 



tfUBOK 

*****£ 1 ********** 

*BPOCL BG* 



* INITIALIZE 

* FETCH VIA 

* IJBLTA 

* 

**************** 



*****C3********** 

♦BESTABT BG* 

*-*-*-*-*-*-*-*-* 

.X* CHECK FOB ASI * 

* BESTART * 

* * 
***************** 



****C5********* 

* * 

* MAITHABD • 

* * 
*************** 



REFERENCES ♦♦♦ 
TO BEDS: * 
BKJJ. BLF«» * 



* COHPUTB * 

* LOADPOINT FOR * 

* SIPLRT2 * 

* * 
***************** 



INDICATB TO 

ASI: SUPVB 

AVAILABLE 

* * 

*********** 



***************** 



*****p ^********** 

♦BPUBSCT BH* 
*.*.*.*.*_*«*-*-* 

* BUILD PUB * 

* SCAM-TABLES * 

* * 
***************** 



*****G1********** 

* * 

* PLACE ADDBESS * 

* OF SYSBES-PUB * 

* INTO SYSCOH * 

* * 
***************** 



* COMPLETE * 

* CHANNEL * 

* CONTROL TABLE * 

* * 
***************** 



**j1******* 

* * 
* PBEPABB * 

* FOR FETCH * 
INITIALIZATION* 

* * 
*********** 



* B2 * 

* * 
**•* 



********** 



*«***? 2********** 

* * 

* SET IOFLD * 

* BASE BEGISTEB * 

* FOB SIPLHT2 * 

* * 
***************** 



****G2********* 

* TRANSFER * 

* CONTROL TO * 

* SIPLRT2 * 
*************** 



***** 
*BB * 
* B1* 

* * 



*H3 

THBSE 

SUBROUTINES ABB 

NOT SPECIALLY 

DOCUMENTED 



*****G5********** 
*EBBLOG *H3* 

*-*-»-*-*-*-*-*-* 
•DISPLAY MESSAGE* 

* 0I2UA * 

* * 
***************** 



****H5********* 

* ENTEB * 

* HABDXAIT * 

* * 
*************** 
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Chart BF. $$A$IPLR - Subroutines 
Refer to Chart 01. 



***** 1********* 

* * 

* ATTNCHCK * 

* . * 

mm************* 



* BUILD A 1052 * 

* POB INTO * 

* COHPUB * 

* * 
***************** 



*****C1* ********* 
*UNITCHCK BP* 

*_*-*_*_*_*_*_*_* 

* TRY DOC ERASE * 

* WRITE CCH * 

* * 
***************** 



D1 *. 

.* * 

REJECTED 



*****£ 1********** 

* * 

* BUILD A PUB * 

* POR 115/125D * 
♦DOC INTO COHPUB* 

* * 
***************** 



**F1******* 

* * 
INDICATE 

DOC 
SUPPORT 

* * 
*********** 



*****Q |********** 



***************** 



*****y-| ********** 

♦UNITCHCK BP* 

*-*-*.*_*_*.*-*_* 

♦ TRY 3277 READ * 

♦ BUPFER CCN * 

♦ * 
***************** 



J1 *. 

.* *. 

REJECTED 

*♦. .♦* 

♦. .♦ 
* YES 



****43********* 

* * 

* UNITCHCK * 

* * 
*************** 



* INDICATE * 
♦ACCEPT COHHAND * 

* REJECT * 
* * 

*********** 



*****C3********** 
♦IORTN AH* 

*-*-*-*-*«.*-*-»-* 

* EXECUTE * 

* CCH-CHAIN * 

* * 
***************** 



**D3******* 

* * 
• INDICATE: * 

* DO NOT ACCEPT * 
COHHAND REJECT* 

* * 
*********** 



**B3******* 

* * 

* SET * 
♦CONDITION CODE 

• TO ZERO * 

* * 
*********** 



****14********* 

* * 

* PROCOP * 

* * 
*************** 



**B<i******* 

* * 

* INDICATE * 
♦NO ASI KEYWORD 

♦ FOUND ♦ 

* ♦ 
*********** 



**cn******* 

* INDICATE * 

* ASI INPUT 
TO BE LISTBD 

* ON SYSLOG 

* * 
*********** 



♦*DS******* 



*********** 



**G3******* 

* * 

* SET * 
♦CONDITION CODE * 

* TO MON-ZBRO * 

* * 
*********** 



*****H2*********< 

♦ BUILD A 3277 
1* PUB INTO 

♦ COHPUB 

**************** 



*****J2********** 



********** 



****H3********* 

* ■ * 

* RETURN * 

* * 
*************** 



*****H5********** 



********** 



ATTNCHCX 

X 

****&2********* 

* * 

* RETURN * 

* * 
*************** 



**ji»******* 



*********** 



****Kit********* 

* * 

* RETURN *X. 

* * 
*************** 



***************** 
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Chart BG. $$A$IPLR - Subroutines 
Refer to Chart 01.. 



* RESTART * 

*************** 



SCANCDL .*. 

B1 *. 

.* IS AN *. 

.* IPL CONN. *. 

*. DEVICE LIST .' 

*. PRESENT .* 



**U2******* 

* * 

* SET * 
.X*COMDITION CODE 

• TO ZERO * 

* * 
*********** 







X 


X 




RESTART .*. 


.*. 






B« *. 


tib *. 


****B3********* 




.* *• . 


.• *. 


* * 




IS ASI STILL*. YES . 


.* IS ASI TO *. YES 


* BrOCL * 


* 


SUPPORTED .*. 


*.BB RBSTARTED .*.... 


* * 




*. .*■ 


** .* . 


*************** 




*. .* 


». ' .* 






*. .* 


*. .* X 






* NO 


* ho ***** 


• 






• BB * 

* A1* 

* * 






.X 




. 




LOGREQ 


BPOCL X 








*****C3********** 




X 




* * 


****C i»********* 




* SET * 


* 


RETURN * 




* PUBINDBX I * 


• 


TO CALLER * 




* TO ZERO * 

* * 


* 


* 





**** 

* * . 

* D3 *.X. 



* SET * 
♦CONDITION CODE *. 

* TO RON-ZERO * 

* * 

*********** 



****D2********* 

• * 
.X* RETURN * 

* • 
**•***•*••***** 



.* 

* PU . 

LAST BN* 



•***D«********* 

* RETURN * 

* TO CALLER * 



****B1********* 

* • 

* BPUBLUB * 

* * 
*************** 



* PUBIMDBX I 

* TO ZERO 

* 
***************** 



ttl *. 

.PUB UNIT*. 

.ADDR LESS OR*. 

.EQUAL SYSRBS . 

♦.UNIT ADDR.* 

*. .* 



*****H i*********i 

* ■ 

* INCREMENT 

* PUBINDBX I 

* BY ONE 

♦ 

*************••*! 



.ADDR LESS OR*. 
.EQUAL SYSLOG . 
♦.UNIT ADDR.^ 



•***K i*********i 

INCREMENT 

PUBINDBX I 

BY ONE 



.SYSLOG«SISUSE.*. 

♦ . • .* 
*. »* 
♦. .* 
♦ NO 



P2 *. 

.PUB UNIT*. 
.ADDR LESS OR*. YBSX 
.EQUAL SYSUSB .*. 
*.UNIT ADDR.* 



*****G2********* 
♦ 

* INCREMENT 

* PUBINDBX I 

* BY ONE 
♦ 
****************< 



*****t]2********* 
♦ 

* ASSIGN 

* PUB TO 

* SISTER LUB 
* 

**************** 



*****j2********** 

* COPY PUB * 

* INTO PUBINDBX * 

* POSITION OP * 

* SXSTBN PUBS * 

* . * 
***************** 



****K2********* 

* RETURN * 

* TO CALLER * 

* ♦ 
*************** 



*****B3********** 

* GET * 

* CHANNEL ADDR * 

* BY PUBINDBX * 

* PROM PUBTABLB * 

* * 
***************** 



*****P3*********« 



*J*CHANNEL ADDR * 



***************** 



G3 ♦. 

.* ♦ . 

POCL<J)>0 



♦♦•*H3*********' 
POCL(J)*I 

*•*************! 



• ***£tt********« 

• * 

• DKKTSCAN * 

• * 
*************** 

**** * 



.* *. 

* BYPASS 

INDICATOR 
*. SET 



.* *. 

.*HDR1 -LABEL * 
. RBCORD READ 



*****j3********* 
* 

* INCREMENT 

* PUBINDBX I 

* BY ONE 
• 

**************•*; 



**** 

* * 

* 03 * 

* * 

•**** 



*****jil********** 

* SAVE * 

* LABEL RECORD * 

* INTO IPL * 

* COHH. AREA * 

* * 
***************** 



****Ki|********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



* STORE • 

* ERROR CODE *X 

* IN LOU CORE * 

* * 
***************** 



**»**p5********«: 



****«***********< 



****(••)*****•*** 

* ENTER * 

* HARD WAIT * 

* * 
*************** 



* ADVANCE 
.X*DISKETTE SEARCH 

* ADDRESS 

* 

************ ****! 



.* LAST * 

.LAbKL RECORD 
*. READ .* 



*****K <>********** 

♦IORTN AH* 

*-*-*.*-*.*.*.*.* 

* READ DISKETTE * 

* LABEL RECORD * 

* * 
***************** 
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Chart BH- $$A$IPLR - Build PUB Scan Tables 
Refer to Chart 01- 



****A1********* . 

* * 

* BPUBSCT * 

* # 
*************** 



* 256 ENTBIES * 

* OP 1ST LEVBL * 

* PUB SCAN TABLE * 

* * 
***************** 



* 2ND AMD 3RD * 
*LE¥BL PUB SCAM * 

* TABLE * 

***************** 



*****0 i ********** 

* PLACE ADDRESS ♦ 

* OF ALL THREE • 
•PUB SCAR TABLES* 

* IBTO IOPLD * 

* # 
***•*••***•*****• 



BPUBSC4 I 

*****£ 1********** 

* STEP TO * 

♦ REIT EMTRIJR) * 



***************** 



• IS 

R THE LAST 
*. ERTR* . 



****G1********* 

* * 

* RETURR * 

*************** 



*****F2********** 

* I .• DEVICE 

♦ ADDRESS OF 



F3 ♦ . 

• BRTRTIlf*. 
— — £bVbL 



*****pi)***«****** 



2H0 LB 



***************** 



***************** 



*****•*••*•**•*** 



*****Qt|**«******* 



***************** 



*L « (K-1) X 16 * 



***************** 



*****j *********** 

* * 
•J * CHARRBL RO.* 

• OF BHTRlTHr * 

* OF PUB TABLE * 

• * 
***************** 



*****Kit********** 



♦PUB SCAR TABLE ♦ 

* * 

***************** 
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Chart BJ- $$A$IPLR - Determining Background Start 
Refer to Chart 01- 



****** 2*+* ****** 

* * 

* DETBG * 

* * 
*************** 



DETBG 
YES .* 



DETBGRS X 

*****D2* ********* 

* COMPUTE * 

* HISSING * 

* PAGE PRAHE * 

* TABLE ENTRIES * 

* * 
***************** 



.*.E-SUPERVISOR .* 



*****F3********** 

* * 
♦FORGET HISSING * 

X* PABE FRAME * 

* TABLE ENTRIES * 

* * 
***************** 



*****G2********* 

* COHPUTE 

* HISSING 

* PAGE TABLE 

* ENTRIES 
* 
**************** 



*****II2********** 

* COHPUTE * 

* MISSING * 

* SEGMENT TABLE * 

* BMTRIES * 

* * 
***************** 



***«*j2********** 

* * 

* ADO HISSING * 

* ENTRIES TO *. 

* BG-BEGIN * 

* * 
***************** 



DBTBGLS 

*****£ <*********** 

* COHPUTE * 

* EXCESSIVE * 
...X* PAGE FRAME * 

* TABLE ENTRIES * 



**** 



D<* *. 

.* *. 

.* * 

.B-SUPERVISOR 



>****£I4******** 

COHPOTE 

EXCESSIVE 

PAGE TABLE 

ENTRIES 

1***************1 



****F<I*********' 

COHPUTE 

EXCESSIVE 

SEGHENT TABLE 

ENTRIES 

**************! 



*****Qlt********** 

* SUBTRACT * 

* EXCESSIVE * 

* ENTRIES FROM * 

* BG-BEGIN * 

* * 
***************** 



♦ADD AREA LENGTH* 
X* FOR CHANNEL * 

♦ LOGOUT * 

* * 
***************** 



****jit********** 



****K i********* 

* * 

* RETURN * 

* * 
*************** 



***************** 



****K4********** 

* 

ADD LENGTH ♦ 

OF PHASE TRACE ♦. 

LIST AREA ♦ 

* 

i************* 



*****j 5** ******** 
*. UPDATE * 

* UG SXSTEfl. * 

* SAVE AREA * 

* ADDRESS * 

* IN 8G-PIB * 
***************** 



*Ki********* 

* 
RETURN * 
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Chart BK- $$A$IPLR - Request SYSLOG 



****£!**** 

* * 

* BBQLOG * 

* * 
*************** 



INDICATE 

SYSLOG NOT 

DEFINED 



********* 



**Ci******* 
* * 

* INDICATE * 
NO MANUAL CDL 

* UPDATE * 



**D1******* 

* INDICATE * 

* NO BBBOH * 
MESSAGE TO BE * 

* WRITTBN * 

* * 
*********** 



**** 

* * 

* A2 *... 

* * 
**** 

REQLREST X 

**A2******* 

* * 
» TORN OFF 

* A SI RESTART 
* FLAG 

* * 
*********** 

**•* 

* ' * 

* B2 *.X. 



*****B2********** 
♦WAITLOG BH* 

*•*..*.*.*-*-*..*_* 

,X*WAIT FOR SXSLOG* 

* ATTBNTION * 

* * 
***************** 

**** 



*****C2********** 
•ATTNCHCK BP* 
*.*-*-*-*.*.*-*.* 

♦DETERMINE TYPE * 

* OF SYSLOG * 

* * 
***************** 



**** 

* * 

* A2 * 

* * 
**** 



**j)2******* 

* ■ * 
INDICATE 

SYSLOG 
DEFINED 

* • 
*********** 



*****£2********** 



**************** 



DOC SYSLOG 

*. ,■■ 

*. .* 



*****G2********** 
♦WRITELOG *B«* 

*-*-*-*-*-*-*-*-* 

* WRITE MESSAGE * 

* 0I04I * 

* - * 
***************** 



REULINIT X 

*****A3********** 

* ENABLE * 

* WAITLOG-PSW * 

* FOR EXT. * 

* INTEBRUPTS * 

* * 
***************** 



*****B3********** 



***************** 



*****Cj********** 
*ASIFI«I *B«* 

*-*-*-*-*-*-*-*-* 

* INITIALIZE * 

* ASI * 

* * 
***************** 



*****D3********** 

♦RESTART BG* 

*-*-*-*_*-*-*-*-* 

♦CHECKS FOR ASI * 

* RESTART ♦ 

* * 
***************** 



*B4 

THESE 

SUBROUTINES ARE 

ROT SPECIALLY 

DOCUMENTED 



*****]} l( ********** 

* * 
"CONVERT SYSLOG * 

.X* ADDR FBOM ASI * 

* HORK AREA * 

* * 
***************** 



*****£ 5********** 



*♦** 

* * 

* A3 * 



.» *. YES 

♦.CONVBBSION OK.* 

♦. .* 
*. .* 
*. .'* 
♦ NO 


* STIMULATE * 
. ,X*ATTBNTION FROM * 

* SXSLOG * 

* * 
***************** 


REQLEBB1 X 

**P4******* 

* INDICATE * 
•MESSAGE 0J03A* 

* TO BE WRITTEN * 
* * 

* * 
*********** 


i 

*****£ i,********** 
•SCANDL BG* 

*-*-*-*-*-*-*-*-* 

* SCAN CDL FOR * 

* VALID SXSLOti * 

* ADDR * 
***************** 


**** 
* * 
..X* B2 * 


•; 



O .* ANY *. 
.*. MESSAGE TO BE.* 
*. WRITTEN .♦ 



H3 *. 

.* *. 

* * 

END OF DATA 





.* SXSLOG *. IBS 




*. ADDR FOUND ...... 




*. .* 




*. '.* . 




*. .♦ X 




* NO **** 




* * 




* C2* 




* * 




**** 


ULOU 


REQ1.ERR2 X 


**H4******* 


**Hb******* 


* ■■ * 


* * 


* INDICATE * 


* INDICATJS * 


X* MESSAGE 0J07A *... 


.X....* MESSAGE 0J02A * 


•TO BE WRITTEN* 


•TO BE WRITTEN* 



*********** 



*********** 



*****j2********** 
•WTORLOG BH* 

*-*-*-*-*-*-*-*-* 

* WRITE MESSAGE * 

* TO OPERATOR * 

* ... * 
***************** 



•PBOC NOT FOUND.*. 



RBQLOGX 

****K 1********* 

* * 

* RETURN * 

* * 
*************** 



* NO 


**** 




* * 


. 


* B2 * 


X 


* * 


***** 


**** 


♦BE * 




* D5* 




* * 




* 




AITHARD 
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Chart BL.- $$A$IPLR - Request Supervisor 



****£1 ********* 

* * 

* REQSUP * 



******* 



REQSWAIT X 

*****U2** ******** 
*MTOBLOG BH* 
*-*-*-*-*-*-*-*-* 



NAME VIA 

» 0I03A * 

***************** 



ASI RESTART 



X...*ASI IN PROCESS.* 



**** 

* * 

* BJ * 

* * 
**** 



**** 

* * 

* F1 *.X. 



♦TAKE SUPVR NAME* 

* FROM ASI * 

* HORKAREA * 



*************** 



* D2 *.X 

* * 
**** 

D2* 



*****g2*** ******* 

* ERR0I96A * 

*-*-*-*-*-*-*-*-* 
.•DISPLAY MESSAGE* 

* 0I96A * 

* * 
***************** 



* B3 * 

* * 
**** 



* INDICATE WO * 
.X*ASI INPUT ERROR* 
NO ASI RESTART* 

* * 

*********** 



*****C3**» ******* 

* * 

* BUILD MESSAGE * 

* 010 J A IN * 

* BPP FORMAT * 

* * 
***************** 



*****DJ********** 

♦MTORLOG BH* 

*_*_*_*_*_*_*_*_* 

* REQUEST ASI * 

* INFO OR SUPVR * 

* INFO * 

***************** 



*****g 3********** 

♦PROCOP BF* 

*_*_*>*_*_*_*_*_* 



***************** 



7ALID INPUT .*. 



*****5i4********** 



***************** 



♦ Bt> 

THESE 

SUBROUTINES ABE 

NOT SPECIALLY 

DOCUMENTED 



*****£()********** *****£>}********** 

•ASIFINIT *B5* *RBSTART BG* 

*.*.*-*-*_*.*_*.* *.*.*-*-*.*-*.*.* 

* INITIALIZE * X* CHECK FOR ASI * 

* ASI ■ * * RESTART * 

* * * * 
***************** ***************** 

i 

.*. 

D«» *. 
.* *. 
.* *. YES 

♦INITIALIZATION .*. . . . 
*. OK .* 



********* 



*********; 



*****f <>****** 



************** 



* B3* 

* * 
**** 



******** 



***************** 



HI *. 


*****H2********** 




U3 ♦. 


.* *. 


* * 




.♦ ♦. 


*. NO 


♦DISPLAY MESSAGE* 


NO 


* 


VALID INPUT .* 


...X* 0I96A ♦X... 


* 


. VALID INPUT 



**** 

* * 

* D2 * 

* * 
• *** 



***************** 



**K3******* 



*********** 



REQSUPX 

****K4********* 
* 
...X* RETURN 

*************** 
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Chart BM- $$A$IPLR - Write to Operator with Reply 



H TO SLOG 

*****& 1********** 

♦RESTART BG* 
*•»*.*.*. *.*.*.*.* 

* CHECK FOB ASI *X. 

* RESTART * 

* * 
********** 



**** A 2* ******** 

* * 

* MT08LOG * 

* * 
*************** 



****&4 ********* 

* * 

* HAITLOG * 

* * 
*************** 



****A!>********* 

* * 

* CDLHANU * 

* * 
*************** 



*********** 



***************** 



Dl *. 
.* *. 
* 
DOC SYSLOG 



*****B1********** 
*IORTN AH* 

*-*-*-*-*-*-*-*-* 

* MRITE HESSAGE * 

* TO SYSLOG * 

* * 
***************** 



*****pi********** 
* RESTART BG* 

*-*-*-*-*-*-*-*-* 

* CHECK FOR ASI * 

* RESTART * 

* * 
***************** 



*****G 1********** 

♦IORTN AH* 

*_*-*-*-*-*.*-*-* 

* READ RESPONSE * 

* FROM SYSLOG * 

* * 
***************** 



***************** 



WTORLOG3 

*****q2********** 
♦IORTN AH* 

*-*-*-*-*-*-*«.*-« 

* WRITE MESSAGE ♦ X 

* 01 DOC SYSLOG * 

* * 
***************** 



*****£2********** 

♦HAITLOG BH* 

*-*.*.*.*_*.*.*.* 

* WAIT FOR * 
♦ATTENTION FROM * 

* SYSLOG * 

***************** 



*****F2********** 
♦IORTM AH* 

*-*-*.*.*_*.*.*-* 

* BEAD RESPONSE * 

* FROH DOC * 

* SYSLOG * 

***************** 



***************** 



*****C<|********** 



***************** 
•*** 



*********** 



ITLO( 
***« 



**DH********** 

* * * * 

* * ENTER * * 

* * SOFT NAIT * ♦ 

* * * * 

* * * * 
***************** 



INTERRUPT 



*****j i********** 

* * 
♦TURN INPUT INTO* 

* UPPER CASE * 

* CHARS * 

* * 
***************** 



*****H2********** 

* * 
♦TURN INPUT INTO* 

♦ UPPER CASE ♦ 

♦ CHARS ♦ 

* * 
***************** 



*****j2********** 
♦IORTN AH* 

*.*.*.*.*.*.*_*.* 

* REWRITE RE- * 

* SPONSE TO DOC * 

* SYSLOG * 
***************** 



**H3******* 



*********** 



*****j 3********** 



***************: 



HTORLOGX 

X 

****K1********* 

* * 

* RETURN ♦ 

* * 
*************** 



X 






***** 






*BB ♦ 




X 


♦ A1* 




.♦. 


* * 




KU ♦ 


* 




.♦ 


LOGREQ 




NO .♦ 




X...*. POUND 




. *. 




♦ . 




X *. .* 




**** * 




* * 




* 


D4 ♦ 



**Db******* 

* * 

INDICATiS 

MANUAL CDL 

UPDATE 



*****£ 5*********« 

* * 

* * 

* SAVE NEW CDL * 

* * 

* * 
***************** 



CDLHANUX 

X 

****F5********* 

* * 

* RETURN * 

* * 
*************** 



.* SXSLOG 

ALREADY 

*. DEFINED 



*****H«********** 
♦CDLHANU BM* 
*-*-*-*-*-*-*.*-* 

* CHECK FOR ♦ 

* MANUAL CDL ♦ 

* * 
***************** 



*****JH* ********* 

*SCANCUL BG* 

*_*.*_*. *-*.m.#_* 

•CHECK FOR LEGAL* 

* SYSLOG ADDR ♦ 

* * 
***************** 



**** 

* * 

* DU* 

* * 
**** 



****£5********* 

* 

* RETURN 

* 
*************** 
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Chart CA, SIPLRT2 - Initialization Routine (Part 1 of 3) 
Refer to Chart 02- 



****A1********* 

* * 

* »IPLRT2 * 

* * 
*************** 



*****B j ********** 

* * 

* SAVE * 

* UNIT-ADDRESS * 

* OF LOG DEVICE * 

* * 
***************** 



.* HAS *. 
HO .*SUPERVISOR *. 
. ..*. DOC-SUPPORT .* 



****AU* ******** 
» * 

* CDNVLBL * 

* * 

*************** 



D1 *. 

.* 3277 *. 

SUPPORT 

GENERATED 



* SCREEN 

INITIALIZE 
*. REQUIRED . 



*****P1 ********* 



*************** 



*****G |********** 



***************** 



**H i*********i 

LOAD 
$$BOCRTA 
SVC 48 

;**********•****! 



*****C3********* 

* SET SWITCH 

* READING FROM 

* DISKETTE 

* 

********** ******> 



*****D3********** 

•CONVLBL CA* 
*_*_*_*_*_*_*_*-* 

♦CONVERT ♦ TEST * 

* BEGIN TRACK * 

* * 
***************** 



*****£ 3********** 

♦CONVLBL CA^ 

*-*-*-*-*-*-*-*-* 
♦CONVERT ♦ TEST ♦ 

♦ BEGIN RECORD ♦ 

* * 
***************** 



*****P3********** 

♦CONVLBL CA^ 

*-*-*-*-*-*-*-*-* 
♦CONVERT ♦ TEST ♦ 

♦ END TRACK ♦ 

* ♦ 
***************** 



*****Q3********** 

♦CONVLBL CA+ 

*.*_*-*-*-*.*.*.* 

•CONVERT ♦ TEST ♦ 

♦ END SECTOR ♦ 

* * 
***************** 



*****Q|}*********: 

♦ CONVERT 

♦ TRACK OR 

♦ RECORD TO 

♦ BINARX 

* 
****************> 



****£1|***** **•* 

* 

♦ RETURN 

* 
*************** 





♦ INPUT ♦ 


. 


*] 


FROH 
♦.DISKETTE .♦ 

♦ . .♦ 
♦ . .♦ 


,* 






► NO 




NOTDISKT 


I 




*****K1 ********** 


* 




* 


♦ 


SET CUU OP 


* 


* 


SYSUSE INTO 
MESSAGE 0I21A 


♦ 


* 


* 


* 




* 


***************** 




X 






***** 






*c 


B • 





X 
.♦. 

H3 ♦. 
.♦ ♦. 

DISKETTE ♦ 
EXTENTS 


YES 
...... 


* El* 
* * 

ISSUE66 X 

*****{! tl********** 
* * 
•PREPARE ISSUING* 

..X* MESSAGE 0I66I ♦X 


. INVALID .♦ 
*. . * 
♦ . .* 
* NO 

X 
.♦. 

J3 ♦. 
.♦ *. 

RECORD ♦ 
LENGTH = 80 . 


NO 
* 


( * AND BARD WAIT * 
* * 
***************** 

X 

***** 

*CK * 

* J3* 

* * 

* 

ABNCHK 
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Chart CB- 



$IPLRT2 - Initialization Routine (Part 2 of 3) 
Refer to Chart 02- 



RBFERENCES I* 
TO C8A3: * 
CCD5, CCE1 * 
CCH2, CCKU * 



**** 

* * 

* kH * 



* LIME 

NODE TABLE 
*. PBESEHT . 



*****& 1********** 

* TURN OS LIHB * 

* MODE FLAGS * 
•AND GET NUMBER * 

* OF LINES * 

* * 
***************** 



FINDSIZE X 

*****& 3********** 
♦FIND REAL SIZE * 

* OF MACHINE * 

* AND INSERT IT * 

* INTO BEALSIZ. * 

* * 
***************** 



B2 *. 
.* *. 

* 
RODEL 3031 



**** 
E3 * 



* INITIALIZE 

* PUB COUNTING 

* LOOP 

* 
****************> 

* * 

* D1 ♦ .X 

* * 
**** 

.*. 
D1 ♦. 
.* * 
.♦ IS THIS 

* . THE LAST 

*. PUB 



«****C2********** 

* * 

* SET DOS * 

* INTERNAL * 

* CPU ID 159 * 

* * 
***************** 



*****B3****< 

* 9 

* DETERMINE * 

* »DOS INTERNAL * 

* CPU ID» * 

* * 
***************** 



***************** 



***** 
*CC * 
* A3* 



*****E2********** 

* INCREASE * 

* PUB COUNT * 

* BY LBNGTH * 

* OF PUB (B) * 

***************** 



**** 

* • 

* D1 * 

* * 
**** 



***** D 3********** 



***************** 

**** 

* * 

* E3 ♦ .X. 

* * 
**** 

HODBOK X 

*****g3********** 

* * 

* * 

* RESTORE PSH'S * 

* • 

* * 
***************** 



*****f 3********** 

* • ' 
♦FETCH ffBCCHHH * 

* TO BUILD ♦ 

* LOAD LIST * 

* * 
***************** 



*****G3********** 

* SAVE HC PS* ♦ 

* AREADGORE * 

* ADDRESS OF ♦ 

* HC ROUTINE * 

* IN MC PSH * 
***************** 



**»*Ab********* 
♦RESTORE BC PSH. 
. ...*♦ PASS CONTROL 
X ♦ TO SAS 

*************** 



OLD ♦. 
HC PSW 
?ALID .♦ 



*****gil********** 

* SET HARD ♦ 
♦MACHINE CHECK. * 

* ACTUATE * 

* $$RAST03 * 

* * 
***************** 



*****pi|********** 

♦ GET RASBLOCK. ♦ 

♦ ACTIVATE RAS. ♦ 

♦ CAUSE ♦ 

♦ TASK SELECT ♦ 

***************** 



RASHAIT 

G 
.* 



RAS 

STILL 

ACTIVE 



* CLEAR STORAGE * 

♦ TO BND * 

♦ OF REAL CORE ♦ 

* * 
***************** 



* RESTORE * 

* MACHINE CHECK * 

* HE! PSH * 

* - * 
***************** 



.* MACHINE *. 


NO 


CHECK 


». .. . 


*. .* 




♦. .* 




*. .* 


XMONITOR 


* IBS 


***** 




♦CD * 




* A1* 


X 


* * 


**** 


* 


* * 




* AH * 




* * 




**** 
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Chart CC* $IPLRT2 - Initialization Routine (Part 3 of 3) 
Refer to Chart 02- 



***** 

•CB * 
* E1* 



•41 TEXT OP A IS SAGES 
01 JOX DATE-. ./. ./. ., CLOCK*. ./../.. . ZOUE-MbIi/. ./. . 
01 3 U DATE BBttUlRBD(, CLOCK BEQUtBBD (,SOMB*NBST/. ./. 
01)21 TOD INOPERATIVE: NO TOO SUPPOP.T 



•INDICATE IN* 
• SET 5 HITCH 
* 'CLOCK NOT 
•OPERATIONAL* 



02 

**. 



IS WrfDBV* 
"SLOG 



•*&il******* 

•INDICATB IN* 

• SET SNITCH • 

.X*' CLOCK NOT SBT 

•OB IN 8RH0R* * 



ct *. 


*****C5********** 


* *. 


•MSGRXH CK* 


TOD *. NO 
SUPPORT .* 


*-*-*-*-*-*-*-*-* 


...X* ISSUE MESSAGE • 


.* 


♦ 0I3U (NITHOUT « 


». .* 


•ZONE) *A1* 

***************** 


*. •• 



*****D3********** 



• OP SECONDS • 



.HOVE ZONE 

FE0H TODCOHBG 

INTO 

MESSAGE 

*************** 



•****05********** 

*HSU«IN CK* 

*•*•*.*.*.*.*.*.* 

. X* ISSUE HBSSAGE *. 
* 0I31A (KITH * 
•ZONK) *A1* 
***************** 



***** 
•CB • 
• A3* 



WW 



.* TOD *. 
*. SUPPORT 
*. IN Sf .* 



***** 
•CB • 
•A3* 



**••*» 1 •*•***•*•• 
• PUT HBSSAGB • 

FfflH |UB! : 

: »iu a Lji» : 

**••*•*•••****«*• 



***** 

•CK • 

• Ji* 

ABNCHK 



PINDSXZB 

£oG ****v 



SB* TOO^ 
SUPPORT 



m ' 



•*«**H2********** 
•NSGBTN CK* 

*-*.*. *.***~*.4*.* 

• ISSUE HESS AGE * 

* 0I3U (HITH * 
**$**l*********2* 



•••*• 
•CB * 
* A3* 



*****g||********** 

•USB ZONB VALUE * 
* PROH TODCOBRG • 



***************** 



G|*$< 



******** 

CSnVBRT * 

BCONDS TO * 

. B8B OF UOUL 

MINUTES AND 



* fNSBRT DATE 

* AMD TIME _ 

* INTO MESSAGE 



«***£<)********* 

* * 

* OOCRTN * 

* * 
*************** 



* GST ADDRESS * 

* OP SCREEN * 

* IMAGE * 

« * 

***************** 



*****Q5********** 

* STORE ADDRESS • 
•OF SCREEN IMAGE* 

* IN * 

* DOCCCN • 

* * 
*********«**«**•• 



****Hb********* 



*****K2********** 

:2S52L...— ss: 

iSSUE.MESSASB *X 



QI30X 

:ahu 



,:« 



.X* ISSUE MESSAGE * 
*OIiOI (NITMOUT * 
*ZONEf *A1* 



***** 
*C8 * 
• A3* 
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Chart CD, $IPLRT2 - Monitor and Read Control Statement 
Refer to Chart 02- 



REFERENCES 
TO CDA1: » 
CBK3, CKK3 * 
DBB5, DDK* 
FAB4. FAK3 



.* TEMP *. 
.* INPUT OR 
..X*. EOF SWITCH 



**** 
* Al ♦ 



*****2********* 

* * 

* READRT * 

* * 
*************** 



* E3 * *CK * 



***************** 



NONITOR2 X 


*****a********** 


♦OPRTN CE* 


*.*.*.*. *_*.*_*-* 


* 


EVALUATE * 


* 


IPL CRD * 


* 


*E1 * 


**t 


i************** 




X 




**** 




* * 




* Al * 



*B1 
WHEN THE LAST 
IPL COMMAND ISVAV 
IS GIVEN. CONTROL 
DOES MOT RETURN 
FROM THE FETCHED 
ROUTINE. 



**** x 








EADRT .*. 




LOGSTR .♦. 




B2 *. 




B3 *. 




.♦CONSOLE*. 




.* FIRST *. 




.* PRTR KYBD * 


YES 


.♦ENTRY FROH ♦ 


. 


*.COHHUNICATI0N. 




. . . 1*. CONSOLE PRTR 


* 


♦ . DEVICE .* 




♦. KYBD .♦ 




♦. .* 




♦. . * 




*. .* 




♦. .♦ 




* NO 




♦ YES 

**** 

♦ ♦ 

♦ C3 *.X. 

♦ ♦ 




X 




**** 




.*. 




ISSMSG10 X 




C2 ♦. 




* ****c 3 ********** 


.* *. 




* 




'.♦■ INPUT *. 


YES 


♦ PREPARE 


* 


*.PHOH DISKETTE. 


♦ .. . . 


♦ ISSUING 


* 


*. ■■•-■■■■ .* 


. 


♦ HESSAGE 3I10A 


* 



**** 

* * 

* B<* ♦ 



************ 



READRTJ 

*****Q2+********* 

♦IOHLD CK* 

♦READ STATEMENT * 

♦ FBOH CARD ♦ 

♦ READER ♦ 

***************** 



****%2********* 

* * 

* RETURN ♦ 

* * 

*************** 



ISSHSG 

*****$$********** 

♦MSGNRTN CK^ 

*.*_*_*.*.*-*.*-* 

* ISSUE ♦ 

* • HESSAGE * 

* * 
***************** 



**** 

* * 

♦ E3 *.X 



**** 
LOGRED X 

*****%$********** 

•INPCONS CK* 

*-*.*-*-*-*-♦-*-* 
..X^READ STATEMENT ♦ 
. ♦FROM LOG DEVICE* 

♦ ♦ 

***************** 



**** 

* * 

* fit ♦ 

* * 
**** 



.♦ ♦. YES 

♦. UNIT CHECK ...... 

♦. OCCURED .♦ 



_#_*-♦_ *-*-> 



ADD 1 
TO SECTOR 
NUMBER 
************* 



♦ A1 ♦ 

* * 

**** 



*****D5********«* 



♦ TO TRACK t ♦ 



♦ ED ♦ 

♦ F3* 

***** 



*****F<t ********** 
♦INPDKET CK* 

*_#_*_*_*_*_*_*_♦ 

* READ RECORD ♦ 

♦ FROH DISKETTE ♦ 



**** 
DISKTHSG 

*****?$**** 

♦HSGRTN 



**** 



******** 



****G4********* 

* 

* RETURN 

* 
*************** 



************** 



*****£(,********** 

* ' * 

* SNITCH * 

* TO INPUT ♦ 

* FHOH SYSLOG * 

* ' * 
***************** 



* Al * 

* * 
■ **** ' 



*****j$********* 

* 

* RESET 

* TEMPORARY 

* INPUT 
* 
**************** 
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Chart CE- IIPLRT2 - Operation Scan Routines 
Refer to Chart 02- 



* OPRTN * 

* • 
*************** 



*****C1 ********* 

* DISPLAY 

* INPPT 

* ON SYSLOG 

* 
**************** 



*•** 

♦ PC * 

* J1 *.x 



**** 

OPRTN30 

*****Dl*********i 

* 

* 

* GET OPERAND 



ADD 


.* *. DEL 
. ADD OR DEL .*.... 
*. .* 

*. .* 


X 
***** 


*. .♦ X 
* MORE *•*** 


*cr * 

• A2* 

* * 


*CP * 
* A1* 

* • 



***** 
•CP * 
* A3* 

* * 



.* 
. .* 

* RONE 



***** 
*CP • 
• AS* 



...*. 


DPD OR SVA 

*. .* 

*. .* 


*. ... 


X 

***** 




*• .* 
* NONE 


X 

***** 


*CP * 

* D3* 

* * 




X 


*CF • 
* A«« 

* • 


* 




***** 


* 


GETDPD 




*CK * 
* B1* 


GETSVA 
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Chart CF. $IPLRT2 - Fetch Appropriate IPL Phase 
Refer to Chart 02.. 



*CB • 

vr 



*CB * 



*CB * 
* F1* 

* * 



CK 8»«41^ 



e «**8** A2 .l 



XI I* 3S« 



X 




.*. 




B1 *. 




.* •.• 




.» ADD. *. BO 
. DBL STXLL .*.... 
*. ALLOWS) .* . 




*. .* 


***** 


*. .* X 


•BO * 


• IBS **••• 


* 13* 


.. «CL * 


. * * 


: vr 


• 



*****C1*****' 

m ■ w m » 

* SBT SIPLBT3 * * SB* SXPLBT7 * 



IBDXCATS 



TCB4 

***«(> 

* FOB L0ADXB6 



X 
•**• 

• Dt * 




.*. 

*4 *. 
.* ABB *. 
10 -* ST TABLBS *- 
.** ALLOCATED -* 
*. PXBALLI -* 
*- *• 

*. .* * 
• IBS 

i 



AS ». 

.* ABB *- 
.* Sf tABT""- 



*CL * 
*B5* 

. * * 



• XSDICATB 

• SIPLBT5 TO I 

• LOADB0 



X 
•**• 

• * 

* F3 * 



* D1 *.X. 

* • .X.. ...... ...... 


- 


***• x 

.z'kdSiS''':.™.... 

••IB COBB .* 
*. .* 
*. .* 
• BO 

***** K 1********** 

* LOAD * 

• DXBBCT. BITBT • 
•Of PHASE * 


****02** ******* 



ssgsg 



'- TBS .* WALXD DPD *. BO *FBBFABB ISSUU6 

.*.... *. BBOCBSSBD .* X* B8SSACB 0X50A 

*. BLBSADX .* * 

*. . .* * 

X *. .* 

***** • ns 



5c *» 

* * 



****«B3****' 
* LOADBD 



XBVSBQ 



***************** 



XSSBSG9* 

*****r 

* • 

*PBBFABB ISSOIBC* 
...X* BSSSACB 0X9*1 *., 



***• X 

rncu FJ .. % 



»w»»M «»x * ***** 



^SSps****- 



CI *. 

.* *. 

.* DOBS *. BO 

*. PBASB FXff .*... 

♦.IiTO COBB.* 

*. .* 

*. .* 



*****B i**« ******* 



*e2********** 

* PBBPABB 

.X* XSSVXBG 

* BBSSAOB 0X5*1 



**** 

• * 

* B3 * 



'"SSi 



PBASBBABB • 



* • 

* D1 * 



ip5********** 

m * 

* PBBPABB * 

* XSSOIBG * 

* BBSSA6B 0X16A * 



*****II2********** 



*$** 

* * 

* D1 * 



****J1******i 



BABD BAIT * 



* J3* 

• * 

* 

ABICBI 
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Chart CH. $IPLRT2 - Move Routine 
Refer to Chart 02.- 



* * 

* SXSHVC * 



* All BYTES *. 
tO BE HOVED . 

*• .* 



****B3********* 

* * 

* BBTUBM * 



*C1 
BIGHT TO HIGH 
CORE- LEFT TO 
LOW CO BE. 



C2 *. 

.* HOVE * 

BIGHT 

OB LEFT 

*Cl 



* CALCULATE 
.X* AHOUBT TO 

• BE SHIFTED 



* CALCULATE 

* SIZE OF 

* LAST BLOCK 

* 
****************: 



*****g3*********i 

* HOVE 256 
X* BITBS TO 

• NEH ABBA 

* 

****************! 



*****F3********** 

* * 

* UPDATE * 

* »FHOH» AHD * 

* «TO« POIMTEBS * 

* * 
***************** 



*****]) <l*********i 
* 

* DBTEBHINB 

* AODBBSS OF 

* BLOCK TO 

* BE ROVED 
***************** 

**** " 



**** 
DECBB X 

*****£<t********** 

* * 

* DECBENBRT * 

* SHIFT count * 

* SI 256 * 

* * 
***************** 



* UPDATE * 

* •FROH* AMD * 

* *no* POIMTEBS * 

* * 
***************** 



i****Hlt*********' 

HOVB LAST 
BLOCK TO 
NEH ARBA 

i***************i 



*****PS********** 

* * 

* UPDATE * 
X* *FBOH' AND * 

* tfo* POIMTEBS » 

* * 
***************** 



****S5*********i 

HOVE 25b 
BITES TO 
NEW ABEA 

****•******••**■ 



**•* 

* • 

* £4 » 



****jl|********* 

* * 

* RETURN * 

* * 

*************** 
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Chart CJ- SIPLRT2 - Get Operaad and Conversion Subroutines 
Refer to Chart 02~ 



****12********* 

* PDSRTN * 

* • ,* 
*************** 



*****C2********** 

* GET * 

* START ADDRESS * 

* OP OPERAND * 



*****Q2********** 



*********** 



*****G2********** 

* STORE * 

* START ADDRESS * 

* OP OPERAND * 
AND CALCULATE ' 



H2 *. 
.* *. 
.* FIELD *. YES 
*. LENGTH * .*..X 



*»»* J 2* ******** 

* * 

* RETURN * 

* * 
*************** 



****A3********* 

* * 

* DECRTN • 

* * 
*************** 



DECRTN 

*****B3****«***«* 

* GET NUMBER * 

* OP CHARACTERS * 
*TO CONVERT AND * 

* GET ADDRESS • 
•OP END OP PIBLD* 
***************** 



* GET NEXT 

* BYTE TO BE 

* CONVERTED 

• 

****************! 



* TRANSLATE * 

* AND TEST POR * 




.* *. 


YES .* *. 


♦END OP OPERAND * 




,*. CHARACTER .* 


• (BLANK OR * 




*. GT 9 .* 


* COHHA1 * 

***************** 




*. .* 


X 


*. .* 




***** * NO 




*CL * 




* A2* 




* • 






* 




X 


INVSPEC X 


.** 




.*. 


B2 *. OR 




E3 *. 


.* *. INV 




.* *. 


.* *.CHAR. 




.* END *. 1 
*. OP PILE .* 


*. FUNCTION .*..!. 




*. OP TRT .* 




*. .* 


*. .* 




*. .* 


*. •* 




*. .* 


* BLANK 




* YES 


**P2******* 




i 

•****jp3********** 


• * 




* REDUCE .NUMBER * 


* TORN ON * 




* OP CHARACTERS * 


* BND-OP-CARD * 




* BY 1 AND * 


* SWITCH * 




* PACK NUMBER * 



***************** 



*****G3********** 

* PUT PLUS * 

* SIGH (X«OP«) * 

* IN THE * 

* CONVERT PIBLD * 

* * 
***************** 



****H3********** 

* 

CONVERT * 

THE PIBLD * 

TO BINARY * 

I**************** 



****j3********* 

* RETURN * 

* • 
*************** 
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Chart CK. $IPLRT2 - I/O Subroutines 
Refer to Chart 02- 



**** A 2* ******** 



***********< 



*****B1 ********** 

* * 

* PREPARE * 

* ISSUING * 

* HESSAGE 0111 A * 

*********WeWcES 
•*** * TO CKC1: 
i* * • CFD5, CFF5 
I * * T * CLC1, DBF« 

* *.••*• DFA3, DGD2 
* DGK5, FAGH 
; FCK4, FGD5 
\FGG2 



CBG1, CJH2 

CLB1, DAB1 

* 4 DAG1, DAJ3 

DAJ5, DBB2 

DBE2, DBG3 

DBH2, OCC1 *: 

DPC1, DGBO * 

DHE1, BAB5 * , 

EAJ«, EFC1 * ' 

BFB4, BFG1 *, 
BFJ4 IOHLD 



****£3****** 

* 

* INPCONS 



*************** 



*********** 



X.... 



****4H******** 

* 

* IHPDKET 

* 
************** 



**** 
ILLCD1 _ . 
*****C1**v [ 



* SET OFF * 

* SWITCHES * 

* DBF ♦ DPD * 

* * 
***************** 



D1 *. 

.* TBHP *. 

YES .* INPUT * 

...*.FROH CONSOLE 

*. OB EOF .* 

*. .* 



****Q2********** 

* GET CCB POR * 

* CARD BBADBR. * 

* CLBAR * 

* SBNSE BYTES * 

***************** 



***C2************ 



**************** 



***D2******** 



**************** 



INPCOHS 

*****D3********* 

* GET CCB FOR 

* OP CONSOLE. 

* BLANK OUT 

* INPUT AREA 

• 
**************** 



***************** 



*****Q3*******I 



***************** 



*****P1 ********** 

* SNITCH TO * 

* TEMPORARY * 

* INPUT * 

* FROM CONSOLE * 

* * 
***************** 



.X. 

X 

**** 

* * 

* J3 * 

* * 
**** 



UNIT 


*. YES 


EXCEPTION 


.*.... 




* 


*. .* 




*. .* 


X 


* NO 


***** 




*CD * 




* F5* 




* * 




* 


X 


DISKTHSG 


.*. 




F2 *. 




* * 






*. NO 


DISASTER 


.* 


ERROR 


* . 



****A5********* 


OUTP « 


*************** 


**** * 

Bb *.xl 

* 
**** 

X 
***U5********* 


* EXCP 
SVC 



***************** 



***C4************ 



***************** 



****Q4 ********** 



**************** 



***************: 



*****£ 5* ******** 



**************** 



.* *. YES 

. UISASTEH .*.... 
*. ERROR .* 



* * 

* H1* 

* * 



*. UNIT CHECK 



**£5********* 

* 
RETURN * 

* 
************* 



* NO 












* N o ***** 














♦CD * 

* B2* 

* * 

* 


X 












X HEADRT 


.*. 












.*. 


F3 *. 












F4 *. 


* * 












* *. 




*. 


YES 




YES 


.* 


*. 


DISASTER 




*... 


X 


. ..* 




DISASTER .* 


ERROR 


* 








* 


ERROR .* 



* GET CUU * 

* AND HSG CODE * 

* INTO LOW CORE * 

* * 
***************** 

**** * 

* * 

* J1 *.X. 

* * . 
**** 

10STOP X 

*****j i********** 

* HOVE * 

* HABD UAIT * 

* INTO PROGRAH * 

* NEW PSW * 

* * 
***************** 



****K1********* 

* * 

* HARD UAIT * 

* * 
*************** 



.* HSG * 
YES .* 0I21A 
...*. ISSUED 
*. ALREADY 



-*-*-*-*- 



***************** 



****G3********* 

* * 

* RETURN * 

* * 
*************** 



****H 3********* 

* * 

* ABNCHK * 

* * 
*************** 

**** 

* * 

* J3 *.X 



*****j3********** 

*HSGRTN CK* 
*-*-*-*-*-*-*-*-* 

* ISSUE *X 

* PREPARED * 

* HESSAGE * 
***************** 



***GI»********* 

RETURN 
************** 



****G5********* 
* 
HSGRTN * 
* 

*************** 



*****H5********** 

* SET UP * 

* CCB- CCti * 

* FOR OUTPUT * 

* ON CONSOLE * 

* * 
***************** 



* B2 * 

* * 
**** 



* * REFERENCES 

* *TO CKJ3: 

* **CAH4, CCF1 
*****CFH2, DAD2 

DCH2, EKF« 
ESH2 

*****KU**** 



NO 



* SET CODE * 
X* INTO * 

* LOW CORE * 

* * 

***************** 



***** 
*CD * 
* At* 



* J1 * 

* * 
**** 



Program Organization 111 



Chart CL- IIPLRT2 - Message Subroutines 
Refer to Chart 02.. 



?***! REFEBENCBS 

* * TO CLA1: 

* ** FAE2, FECI 
* * FEC3, FEC5 

* FFC3. FFD1 



***** 8EFB&BNCBS 

* * TO CLA2: 

*-. !* C JD3, FBB1 

* ♦ FBE3, PEB5 

* FBG2, FFG1 



:♦•*: n m ssv ***** ir**^? 



* * 

* INVKBYH * 

* * 
»«««**•******** 



BBFBBENCBS 
TO CLB1: 
E1D4, BAJ1 



****A2********* 

* * 

* INVSPBC * 

* • 

*************** 



* PREPARE * 

• ISSUING • 

* MESSAGE 0I87A • 

• .* 
***************** 



****A 3********* 

* * 

* DOPKEYW ♦ 

*************** 



' ****A(I***«***** : 



. *»** AS********* ? 
♦ IMVSJJU f 



BEFB8ENC6S 



PUPKBIH X 



CPAS 
CPD3 



**.»: 



***B3*****»**** 

5 PBBPABS * 
* ISSUING * 
9 HBSSAGB 0188* « 

***************** 



"'858.. 



S$AGE\Q 



ABB 
___ a t»G 
HESSAGE 0IU9A 



* NO 




***** . 

*CK * 
* B1* 

* * 
* 


X 

*****C 1******** 




ILLCD 


** 




* 


* 




* PBBPABB 


* 




* ISSUING 


* 




• MESSAGE 0I86A 


* 




* 


* 




***************** 




!x 







***••****••****** 



U5**tf*«*«*« 

• PBBPABE • 

• ISSUING • 

• BESSIGB OXJbA • 

*•*•**••*•*»***•• 



X 

***** 
*CK * 
* C1* 



112 DOS/VS IPL and Job Control kogic 



Chart DA, $IPLRT3 - ADD a Device (Part 1 of 2) 
Refer to Chart 03- 



**** 

* A3 * 

* * 



DO 


.* 


ADD 


*. 




--.* 




COHHABD 




•X 




*♦, 




.*" 








*. -* 






X 




*- .* 






•♦•** 




* IBS 






♦DC * 










* Al* 










* * 










* 










DBLBTH 




X 






AODBTR 


.*. 










B1 *. 










• * 








.*" 


EBD 


**. 


10 


• 




OF CABD 




*-... 




"♦. 


.*" 








*. .* 










*. .* 




X 






* TBS 




***** 










*CK * 






I 




* Bl* 



•♦♦♦A 2** ******* 

• • 

• SIPLBT3 * 

• ♦ 
*************** 



SCAB FOB 

FIELD BITH 

?0B TO BB 

ADDED 

i**r" 



X 
-*- 

B3 *. 
.* FOB *. 
BUSTS .* AttBADI * 
,..*.BX<1STS OB XS 
*.1AST FOB .* 



BOT. 
LAST 
POB. 



SPACB • 
TABLB FOB 
POB .* 



*GBT AODBBSS OF * 

* BBSSAGB 01 13 A * 
X* *CABBOT ADD- * 

* XBSOFFXCIBBT * 

* TABLE SPACE* ~ 



*****$ -|** ******** 

* . * 

* INITIALIZE * 

* THE TEBPOBABI * 

* POB ABBA * 

* * 
***************** 



*****^%** ******** 
•FDSBTB CJ* 
*-*-*_*-*-*-•-*_* 

* GET TBE FXBST * 

• OPBBABD FBOB * 
♦ADD CABD IBAGB * 
***************** 



TOO .* VALID *- 
SHOBT .*OPBBABD FOB*. IBS 
.*. SHITCHABLB .*.... 
*. DEVICE .* 



**+++Q2********** 

•GET ADDBESS OF * 

* BBSSAGB 01 ISA * 

* *P0B ALBBADT *X. 

* EXISTS* * 

* • 
***************** 



LIBS *. IBS 
■ODE FLAG .*.... 
SET -♦ 



*****L$** ******** 

* * 

* POT LXBB • 
X* BODE XBTO * 

TEBPOBABI 
BODE ABBA 



*DB * 
* C2* 

♦ • 



♦♦♦♦• 
♦CK * 

VI* 



•GIT THE SBCOBD * 
• OPBBABD FBOB • 
♦ADD CABD IBAGB * 
**** ************* 



.•DKVICB CODE*. IBS 
. BOBE TBAB -*.... X 
*. 6 BITES .* 



*♦*• «B3********** 

* ♦ 

* CLBAB DBVXCB * 

* BOLD ABBA ABD * 

* BOTE IB TBE * 

* DtllCB TIPB ~ 



•• ***T2** ** ****** 

♦ STOBB ♦ 

♦ BBGISTBB FOB ♦ 
.X* BVALOATIOB OF * 

~ SHITCHABLB 
DEVICE KBI 



SICPKBT 
IBS „♦* 



CHABHEL 
BOBBER 
GT 9 



**•* ************* 



G3 *. 
.* IS *. 
TBBBB *. 

A THIBD 
. OPBBABD .* 



*DB * 
* A2* 
RBICBE1* * 



••♦**H1********** 

* * 
♦GET CHABBEL ABD* 

* OBIT ADDBESS * 

* ABD ♦ 

* LBBGTH ♦ 
***************** 



* GBI TBB THIBD * 

* OP IB AID FBOB * 
*ADD CABD IBAGB * 



*COBVEBT CBABHBL* 

* ABD OBIT TO * 

* HBXADBCIHAL * 
***************** 



*****K \********** 

* * 

* POT CHABBEL * 

* ABD OMIT IBTO * 

* TEBPOBABI * 
POB AREA 



-* 5 TO 9 
. SITES IB 
*. OPBBABD . 



BO -* 

...*. LBEGtn 
*. 5BITBS 



SET BODE IB 
TEBPOBABI 
POB ABBA 



.* 
'- .* 
• IBS 



BODB 

VALID .' 
*. *E5 .* 
*. -* 
* IBS 



*B3 VA1&LV BUV, 

ABE X*01*.X*< 

xmo^aed x*: 



-* IS *- BO 

'-..""Sol" 



CBAB 
. VAL 



IS 
BODB 
VALID 



♦ 65 ♦ 

• ♦ 
**** 



•****G5**** ****** 
♦ 

* PICK OP 

* DEVICE 

* CLASS 



IS 
DBVICB 
TAPE 



*CK * 
* B1* 

* ♦ 



**** «x 3********** 

*HBXBIB DH* 

*-*— » . *■♦ * * * * 

* COHVBBT * 

* OPBBABD TO * 

* B1XADBCIBAL * 
**** ************* 



•CK * 
* B1* 

* * 
♦ 
ILLCD 
X 
*****KS********** 



.KBICHK 
X 
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Chart DB. $IPLRT3 - ADD a Device (Part 2 of 2) 
Refer to Chart 03.. 



♦ DA * 

* G3* 

* * 



*****A3********* 

* NODE 
X* HAS 

• RBQUIfiED 

**************** 



DAK5 



* YES 
REFERENCES J*** 
TO DBC2: * * v < 
DAA5, DAG4 • • *.X. 
**** 
KEYCHK X 

***** C 2********** 

* GET KEY * 

* REGISTERS FOR * 

* EVALUATION * 

* SHITCHABLE * 

* DEVICE * 
***************** 



KEY ♦. 
FIELD 
PRESENT .* 



***** 
*CK * 
* B1* 



.* KEY *. 

* FIELD * 
LARGER THAN 

♦ . 3 BYTES .♦ 



***** 
*CK * 
* B1* 



P0BHK1 X 

*****B5********** 

* LOAD ADDRESS * 

* OF PUB TABLE • 

* IN PARREG * 

* TO BUILD PUB * 

* SUBROUTINE * 
***************** 



*****C5********** 
•BLDPUB DE* 

*-*-*-*-*-*-*-*-* 

* UPDATE THE * 

* FOCL TO SHOW * 

* THE PUB * 

***************** 



*****Q5********** 

♦CHURTN DH* 

*-*-*_*- *-*-*.*_* 

* ADD A LOGICAL • 

* UNIT BLOCK • 

* FOR THE PUB • 

***************** 



* ADD A LOGICAL * 

* UNIT BLOCK * 

* FUR THE PUB * 

***************** 



CHANNEL 

SNITCH 

.SUPPORTED. 



*****ptt ********** 



***************** 



*****G2********** 




G3 ♦. 




♦DBCRTN CJ* 




.♦DEVICE *. 




*-*.*.*.*_*.*.*.* 




.♦ON CHANNEL ♦. YES 


* CONVERT * 




♦. GREATER OR .♦. 




* PRIORITY NO. * 




♦. EQUAL .♦ 
♦.NINE .♦ 




* TO DECIMAL * 






***************** 




*. .* 


X 






♦ NO 


***** 
♦CK ♦ 
♦ B1* 

* * 
* 


X 






ILLCD 


.*. 




i 




H2 *. 




*****H3********** 




.* *. 




♦ SET FLAG AND ♦ 




.* PRIORITY *. YES 


♦ HAXIHUH KEY ♦ 




*. KEY GT .*. 
*. 255 .» 




* for * 






♦ SHITCHABLE ♦ 




* . . * 




♦ DEVICE ♦ 




*. .* 


X 


***************** 




* NO 


***** 

*CK * 






xl 


* B1* 

* * 

* 

ILLCD 






PUBHKB X 




i 




*****j2********** 




*****j3********** 




* LOAD ADDRESS * 




♦ LOAD ADDRESS ♦ 




* OF •SCHTST' * 




♦ OF •SCHSCH* ♦ 




* IN PARREG * 




♦ IN PARREG * 




* TO BUILD PUB * 




♦ TO BUILD PUB ♦ 




* SUBROUTINE * 




♦ SUBROUTINE ♦ 




***************** 

!x 




***************** 
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Chart DC. $IPLRT3 - Delete a PUB (Part 1 of 2) 
Refer to Chart 03. 



***** 

*DA * 
* Al* 



DBLBTE Z 

****** 1 ********** 
•PDSBTB CJ» 



.* OPBBABD *. IBS 

*. LBBGTH 6T -*... 

*. 6 BITES .* 



CI *. 

* * 

CHABNBL 

NOBBEB 

GT 9 



* BO 



***** 
*CK * 
• B1* 



*****D1********** 

* • 
♦INITIALIZE FOB • 

* COIVBBSION TO • 

* HEXADBCIHAL • 

* • 
***************** 



IS FOB *- 
OB THIS 
CBABBBL -* 



.* IS •. 
.* WIS BOB *. BO 
•.TO BB DBLBTBD.*.. 



****«C3********** 



.» HAS *. 
-* TBK SCAB 
>. SOCCBSSPDL 

*. 



•****C«********** 



* 1BCBBASB * 

* pub ADDBBSS * 

* TO BBXT POB • 

* * 
***• ************* 



.* OIHBCT *. Bi 
•.ACCESS DBVICB.*. 
*. TIPB -* 



***** 
*©D * 
* TH* 

• * 



***** 
*DD * 
* 11* 
* MOSODL2 



* CONVERT * 

* OPBBABD TO * 

* HEXADECIMAL * 
********** ******* 



*****P1********** 

* • 

* GET CHABNBL * 

* HOHBBB ABD • 
•FOCL BBTBI POB * 

* TfllS CHABBBL • 
***************** 



G1 *. 

.* AMI • 

.* DEVICES 

OM THIS 

*. CHABBEL 



•****gt***« 

• m 
•DBTBBHIBB PIE ST* 
•POB OB CHABBEL * 

* OP DBVICB TO * 
BE DELETED 



*****g2********** 
•GET ADDBBSS OP • 

• BESSAGB 0I12A • 
••DEL COBBABD IS* 

• POB BOB-BXIS- * 

• TBBT DEVICE* 



***** 
*CK * 
* J3* 
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Chart DD- $IPLRT3 - Delete a PUB 
Refer to Chart 03.- 



{Part 2 of 2) 



A1 ♦ . 

* * 

270J ON 



*****C 1********** 

* * 

* INITIALIZE * 

* FOR SCAN OF * 

* PUB TABLE * 

* « 
***************** 



.♦. 

B1 ♦. 

.* 2703 *. 

.♦ HITH HODE *. 

.♦.TABLE POINTER.* 

♦TO BE DECR.* 



*****F1********** 

* * 

* DECREMENT ♦ 

* POINTER TO ♦ 
♦LINE HODE TABLE* 

* * 
***************** 



*****G1********** 

♦ * 

♦ UPDATE LENGTH * 

♦ OF LINE HODE * 

♦ TABLE TO BE ♦ 

♦ HOVBD * 
***************** 



*****H 1* ********* 

* * 

* INCREASE PUB * 

* ADDRESS TO * 

* NEXT PUB * 



* DECREMENT ♦ 
♦NUflBEB OF LINES* 

* IN USE ♦ 

* * 
***************** 



*****f2********** 

♦ * 
*GET ADDHBSS OF ♦ 
♦LINE HODE TABLE* 

♦ ENTRY TO BE * 

♦ DELETED * 
***************** 



*****G2********** 
♦GET ADDRESS OF * 
♦LINE HODE TABLE* 

♦ ENTRY WHICH * 

♦ WILL OVERLAY ♦ 

♦ DELETED ENTRY ♦ 
***************** 



*****H2********** 
♦SKSHVC CH* 
*.*.*.*-*-*.*.*.* 

♦ HOVE UP OTHER ♦. 

* ENTRIES TO * 
♦DELETE THIS ONE* 
***************** 





***** 






♦DC ♦ 
* M* 

♦ * 






♦ 




PUBDBQ 
NOSODL1 X 

*****pt4**« ******* 


* 




* 


♦ GET ADDRESS ♦ 
..X* AND LEHSTH OF ♦ 

♦ PUB TO BE ♦ 

♦ DELETED ♦ 

***************** 



*****GH********** 

♦ GET ADDRESS ♦ 

♦ AND LENGTH OF ♦ 

♦ ENTRIES NHICH ♦ 

♦ MILL OVERLAY ♦ 

♦ DELBTED PUB ♦ 
***************** 



*****H4 ********** 
♦SYSHVC CH^ 
*-*-*-*-*-*-*-*-* 

* ROVE UP OTHER ♦ 

♦ ENTRIES TO ♦ 
♦DELETE THIS ONE^ 
***************** 



*****jil********** 

♦CHURTN DH* 

*-*-*-*_*-*.*-*-* 
♦CHANGE THE FOCL^ 
♦ TO ELIHINATE ♦ 
♦THE DELETED PUB^ 
***************** 



*****K4********** 
♦LUDRTN DJ + 

*.*-*_*_*.*-*-*..* 

♦NULL THE LUB'S ♦ 
♦NHICH POINT TO ♦ 
♦THE DELETED PUB* 
***************** 



.MONITOR 

X 
***** 
*CD * 
* A1* 
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Chart DE. SIPLRT3 - Build PUB Table Subroutine 
Refer to Chart 03. 



* ki * 

* * 
**** 



****A1 ********* 

* * 

* BLDPUB * 

* • 
*************** 



* GET CHANNEL * 

* NUHBER.FOCL * 

* POINTER AND * 

* PUB OBIGIN • 

***************** 



**** 

* * 

* B2 * 

* * 

• *** 

X 
*****B2********** 

* * 

* INCBBASE PUB * 
•SEARCH HEGISTEB* 

* TO NEXT * 

* ENTBY * 
***************** 



.* POSITION * 
.PAST CHANNEL 
*. END .* 



•****B3********** 

* * 

* CALCULATE * 

* CHANNEL END « 

* DESIBED * 

* POSITION * 
***************** 



.* THIS *. 

. PUB BNTBY . 
♦.AVAILABLE.* 



BCHBST .*. 

D1 *. 

.* ANY *. 
.♦DEVICES ON *. NO 
•.THIS CHANNEL .*... 



***** j) 2* ********* 

* CALCULATE * 

* DISPLACEMENT. * 
.X* STOBE CHANNEL * 

* PUB OBIGIN ♦ 

* IN FOCL ♦ 
***************** 



GET FOCL 
OF NEXT 
CHANNEL 

I***************! 



.♦SWITCHABLE 
DEVICE 
♦. *G2 



*****E2*********< 
* 

* DETERMINE 
X* LAST POB 

* ON CHANNEL 
* 

****************; 



**** 

* * 

* K1 ♦ 

* * 
• *** 



*G2 
BRANCH ADDRESS OF THIS 
INSTRUCTION HAS PLACED 
IN REGISTER 'PABBEG* 
IN ADD ROUTINE. 



*****03********** 

* * 

♦ GBT ADDRESS * 
» TO HOVE * 

♦ PUB ♦ 

* * 
***************** 



* HOVE PUBS TO * 

* HARE BOOH FOB * 
♦NEB PUB *B4* 
***************** 



*E<» 

ALL POB ENTBIES BEYOND, 
THE DESIBED LOCATION 
HUST BE BOVED UP ONE 
PUB LENGTH TO HAKE 
BOOH FOB THE NEW ENTBY 



*****Ut,********** 

* * 

* INITIALIZE * 
•AND GET ADUBESS* 

* OF LINE MODE * 

* TABLB * 
***************** 



*****£>)********* 



*****?5********** 

* * 

* CALCULATE • 

* ADDBESS OF * 
•FBBE LINE HODE * 

* TABLE ENTBY * 
***************** 



*****Q5********** 

« HOVE HODE * 
• FBOM • 
•TEHPOBARY ABEA * 



.* NEXT *. YES 






*. .* 
*. .* 
*. .* 
* NO 

t'. 


CHFIN 

*****J2*< 
* 

* GET LA 

* ON CHI 

* FBOH 
* 
********* 




SCHSCH X 

*****J1********** 

* * 

* DETEBHINE * 

* LAST PUB * 

* ON CHANNEL • 

* * 
***************** 

**** * 

* • . 

* K1 *.X. 

* * .X 


( 
********* 

* 
5T PUB • 
LNNEL * 
FOCL * 

* 
********* 


**** 
ENFND X 

*****K1 ********** 

* * 

• GET DESIRED * 

* POSITION * 

• FOR NEW PUB • 







********** 



• STOBE PUB * 

* ORIGIN AND * 

• DISPLACEHBNT * 

* * 
***************** 



****K5»***»»*** 

* * 

* RETURN * 

* * 
*************** 



**** 

* * 

• A3 • 
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Chart DF, SIPLRT3 - Device Type Conversion Subroutine (Part 1 of 2) 
fiefer to Chart 03- 



**** 

* * 

* A2 * 

* * 
**** 



*****A3********** 



****A1********* 




.* *. 


* 


* 




* * 




.» TAPE *. NO 


* DISPLAY * 




* FNDTYP * 




*. SUPPORT IN .*..... 


...X* MESSAGE 0I72A *. 




* * 




*. SUPVR .* 


• * 




*************** 




*. TAPE 


* * 








♦. .* 


***************** 


X 






* YES 




***** 










♦CK ♦ 
♦ CI* 

* * 

* ■■ 






X 




ILLCD1 


FMDTYP X 




.*. 






*****B1 ********** 




B2 *. 


*****B3********** 




* GET START AND * 




.* *. 


* * 




* END ADDRESSES * 




.* 8809 *. NO 


* SET HODE AS * 




♦OF DBVICE TABLE* 




*. TAPE .* 


...X*BEQUIRBD FOR 7 * 




* AND GET * 




*. . * 


♦OR 9 TRACK TAPE* 




* SCAN LBNGTH * 




*. .* 


• * 




***************** 




*. .* 


***************** 




xl 




* YES 








X 
.SCHLOP .*. 




X 








C1 *. 




*****C2********** 








.* *. 




* * 








.* END ♦. YES 


* INSERT 8809 * 








*. OF TABLE .*. 




* DEFAULT NODE * 








♦. .* 




* * 








*. .* 




* * 








*. .* 


X 


***************** 








* NO 


***** 
♦CK * 
* B1* 

* * 










* X 
.*. 

D1 *. 


* 
ILLCD 


Ix.. ......... . 


















X 






.* *. 




****D2********* 






. NO .* DESIRED *. 




* * 






....*. DEVICE TYPE .* 




* RETURN * 






*. .♦ 




* * 






*. .* 




*******BCI1***** 









*****£ 1********** 

♦ * 

♦SET DEVICE TYPE^ 

♦ AND CHANNEL ♦ 

♦ SCHEDULER ♦ 

♦ FLAGS ♦ 

***************** 



♦LOAD ADDRESS OP+ 

♦ REQUIRED ♦ 
♦DEVICE ROUTINE ♦ 

* * 
***************** 



.♦ IS DEVICE ♦. 
. TO BE ADDED . 
♦. A TAPE .♦ 



***** 

*DG ♦ 

* B2^ 

* * 
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Chart DG. $IPLRT3 - Device Type Conversion Subroutine (Part 2 of 2) 
Refer to Chart 03 



DEVICE 

SIo8 DO 



•****C1********** 


C2 *. 


C3 *. 


* • 


.* *. 


.* *. 


* HOVE * 


YES .* 3800 *. 


.* D1S0 *. NO 


* PUB MODE *X.. 


*. SUPPORTED .* 


*. DEVICE .* 


* BYTE * 


*. .* 


*. .* 


* • 


*. .* 


*. ■* 


***************** 


*. .* 


*. .* 






• NO 


• YES 






* * '. 


• 






* D2 *.X. 


. 






* * 








•*** 


CHCKFBA X 
CRBCK3330 .*. 








X 


**»**Q2********** 


D3 *. 


****D 1********* 


* GET ADDR OP * 

* HSG 0I72A * 


.* *. 


* * 


NO .'SUPPORT FOB*. 


* RETURN * 


* 'NO SUPPORT •!•• 

* FOR DEVICE IN • 


*.THAT DASD IB .* 

'SUPERVISOR.* 


* * 




* SUPERVISOR * 


*. .* 




****•**•*•*«•••** 


*. •* 
* YES 




X 


• 




***** 






*CK * 


X 






* CI* 


.*. 



E3 

.* * 
3330. 

. "SS*o 6 " 



**P3******* 



*********** 



.* DEVICE *. YES 


.* mot *. no 


X*. TO BE ADDED .* 


..X*. SUPPORTED .*.... 


*. HICR .* 


*. .* 


*. .* 


*. .* 


*. .* 


*. .* X 


* NO 


* YES *♦** 




* * 




* D2* 




. * * 


. 


**** 



****K 3**«****** 

* •* 

* RETURN *X. 

* * 
*************** 



.* TP *. 


NO 


. SUPPORTED - 


*••• . 


*. .* 


* 


*. .* 


X 


* YES 


***** 




*CK * 




• B1* 




* * 




* 


X 


ILLCD 


.*. 




P«» ♦. 




.* *. 




.♦DEVICE 2703*. 


MO 


•ON CHANNEL . 


*......... • 



* *. 


****G5********* 


LINE RODE *. NO 


•' « 


TABLE .*..... 


...X* RETURN 


PRESENT .* 


* i 


*. .* 


****.*****«***** 



*****Hl|********** 

* * 

* INDICATE BSC * 

* OR START/STOP * 

* ICA LIVE * 

* * 
***************** 



•****jtt********** 



***************** 



.* IS *. 

.•THESE SPXCB*. 
. IN THE LINE . 
•HODB TABLE.* 



****«K5********** 

* * 

* GET * 
.X* ADDRESS OF * 

* MESSAGE 0I60A * 

* * 
***************** 
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Chart DH- SIPLRT3 - Conversion and Update FOCt Subroutines 
Refer to Chart 03., 



****a«********* 

* * 

* CBDRTN * 

* • 
*•••*•****•**** 



****B1********* 

* * 

* HBXRTN * 

* • 
*************** 



HBXRTN 

*****d********** 

* 6BT NUBBER * 

* OP CHARACTERS * 

* TO COIWBBT * 

* AMD GET ADDRESS* 
OOP BID OP FIELD* 
***************** 



* BYTE TO BB 

* CONVBBTBD 

* *D2 

*******••****•**< 



*D2 
STARTING IITH 
ERO ADDRESS 
MINUS 1, BACH 
BITE IN THE PIELO 
IS CHECKED IN 
THIS LOOP. 



CHUBTN X 

*****B«********** 
•NOLL POCL LIST,* 

• ZEBO POB NO.. * 

• AND GET START * 

• ADDRESS OF * 



*****cu********** 

* DECREASE * 

* POB NUMBER * 

* BI 1 TO * 

* FORCE BRANCH * 

* ■ : * 
***************** 



* D« *.X. 

* ■ • ■ . 
*#** . 

CHBXT ' X 

*****ni|********** 

* ADD ORE TO * 

* POB ROBBER * 
AND UPDATE 

— *er~" 

***************** 

*••* I 

* * 

* e« *.x. 

* * 
**** x 

CHOLOP .*. 



*D5 
FIRST TIHB 
THROUGH. PUB 
NORBBR IS 
RESTORED TO ZERO. 



X 

***** 
*CK * 
* B1* 
* *ILLCD 



****P3********* 

• * 

• RETURN * 

• * 
*************** 



*****G1********** 

* • 

* PACK FIELD * 



* HEXADECIMAL * 

* * 
***************** 



****H 1********* 

* * 

* RETURN * 

* * 
*************** 



F« *. 
.* COHP *. 
.* CHAN. NO. *. LO 
. TO SEARCH .*... 
*. CHAN. .* 



.*SHITCHABLB**. NO 
.X*. DBVICB .*... 



****************! 

..u 



****************l 



*****Q5****«****t 

* ■ ' 

* DECREASE 

* CHANNEL 

* NOHBER 

* BX 1 
****************< 



.* PUB *. 
.* CHANNEL *. NO 
*. EQUALS SEARCH.*.. 
*. CHANNEL .* 



*•** 

* * 

* B« * 



CHSLOP 

' *****j5********** 

* STORE POCL * 

* ENTRI AND * 

* ADD 1 TO * 
♦CHANNEL NUMBER * 

* TO RBST08E * 
***************** 
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Chart DJ. SIPLRT3 - Update LOBs 
Refer to Chart 03.. 



•♦••A2********* 

* * 

* LUDBTN • 

* * 
*************** 



*****B1********** 
GET ADDRESS * 
OF UPDATE * 
LUB BOUTINS * 



LUDBTM X 

*****02********** 

* GET ADDBBSS * 

* OF DOB BOATS « 

* LUB BOUTIBB * 

* *D0LUB* • 

* * 
•***«*••****•***« 



•****C 1********** 



***************** 



*****D1********** 



***************** 

**•* 

* * 

* E1 *.X. 



*D2 
LUB HILL NOT 
BE UPDATED 
IF IN H07B 
ABBA. 



XTBS .* IS PUB * 
,*.IN HOVE ABBA 
*. *D2 .* 



* UPDATE * 
OB DOHNDATE 

*. LUB .* 



F2 

* IS 

.* THIS PUB 



*****G2**«******* 

* UNASSIGN * 

* JIB IN * 

* THIS PUB * 

* • 
***************** 



INCBBASB * 
THE PUB * 
POINTER * 

**************** 



*****H2********** 

* * 

* BEDUCB THE • 

* LUB POINTEB * 

* BX ONE * 

* • 
***************** 



* STOBE 

* THE PUB 

* POINTEB 

* 
***************** 



>lf »*Bj. 



LBLPED 


K1 * 




* 


BO .* 

X 

**** 


END 
OF LUB 
TABLE 
*. 

*. .* 

* 


* 




El * 

* 




**** 





.x» 



*J3********** 
ADVANCE * 
TO 1ST LUB * 
OF NBXT « 
PABTITION * 
* IN SUPEBVISOB * 
***************** 



*«**K2********* 

* * 

* BBTUBN * 

* • 
****•*•*•****•* 
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Chart BA. $IP&RT4 - SET Statement Processor 
Refer to Chart 03- 



**** 

* Aft ♦ 



* '* 

* SIPLRT4 * 

*************** 



SBTBTN X 

**C1******* 

* RESET 
* SET SWITCH 

* 
* * 

. ■ *********** 



*****D1********** 



* LOOP TO LOOP 

* THBBB TIHBS * 

* * 

***************** 



X 

***** 
♦BB * 
• '«* 
* * 
* 
PA SSI 



NO .* LOOPEO 

...*. THREE 

♦. TIHBS 



.* BOTH ♦. IBS 
.X*. OATS ANO .*.... 

♦. CLOCK .♦ 



X 
***** 
*CK * 
* B1* 



♦ . END OP CARD •*• 



***** 
*CL * 
* B1* 

* * 



*****£<l********** 

•OATIREBT EP* 

*.*.*.*. *.*_*.*..* 

* PROCESS * 
♦DATE AND CLOCK * 

* * 
***************** 



•****pt ******••** 

♦FDSRTN CJ* 

*.*.*.*. *..*..*„*.* 

* GET * 

* NEXT OPERAND * 

* * 
********•*•**«***' 



G1 * 

* 

DATE 



.X* 



*****G2********** 

* * 
SAVE * 
DATE ♦ . 

* SPECIFICATION * 

* * 
************** *«* 



J1 ♦ 

* 

ZONE 



***** 

*CL * 

* 81* 

* * 



*****H2*«*«****** 



* SPECIFICATION * 

* * 

***************** 



*****j2********** 

• • * 

* VALIDATE AND * 



**G3******* 

* * 
SET 

DATE BIT IN 
SET SNITCH 

* * 
*********** 



**H3******* 



*********** 



******** ********* 



*****pit********** 
*flSGBTN CK* 

*-*^*-*-*-* w *-*-* 



***************** 



SBTCLOCK 

*****G4********** 

* SET CLOCK * 
•(OPERATOR HOST * 

* SET TOD CLOCK * 

* SNITCH TO * 

* 'ENABLE SBTM * 
***************** 



* HOVE DATE OP * 

* SET COHHAND * 

* INTO C0HRB6 * 

* * 
***************** 



*****j3********** 






Jk *. 


• SET ZONE IN * 






.* *. 


*POHHUNICATIONS * 
* REGION AND ♦, 






.* HORB *. 


.X 




*• OPERANDS 


* COHREG * 






' *. .* 


* EXTENSIONS * 

***************** 






*. .* 


X 


*. .* 




**** 


* NO 




* * 






* Ait * 






* * 






**** 


X 

«***K<t********* 

* ILLCD 
♦RETURN TO ROOT 

* JHONITOR) 

*************** 













X 

***** 
♦CK * 
♦ B1* 
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Chart EB- SIPLRT4 - Complete SV Tables, 
Refer to Chart 03. 



Calculate Addresses of Dynamic SV Areas 



**** 
* * 

* A2 * 

* * 

**** 



* A3 

* 
**** 



• ***A 1********* 

* * 

* PASS1 • 

* * 
*************** 



1ST TIME 
THRU THIS 
. CODB 



*BA * 

♦ B1* 

***** 



*****gi********** 

* UPDATE LUBS * 

* FOB SYSLOG. * 
*SYSRES. SYSUSE * 

* IM lOPLO * 

* * 
***************** 



CYLDP X 

*****D1********** 
•CHSHHTN BT* 



***************** 



*****g-| ********** 

♦BHPXRTN BR* 
*_*.*,.*-*_*_*.*-* 

*CHK WHETH. BURST* 
*DEV.*HICR IS OH* 
* SANE CHNL. * 

***************** 



*****p i********** 
♦OPNRTN BD* 

*.*.*.*.*.*.*,*-* 

♦UNASSIGN SYSTEM* 

* IHPUT AMD * 

* OUTPUT LUBS * 

***************** 



*****Q 1********** 

*DSDRTN ED* 

*_*.*.*. *_*_*,*-* 

* CHECK DASD * 
♦PILE PROTECTION* 

* * 
***************** 



*****H 1 ********** 

♦FPRTN EJ* 

*_«.*.*•*.*. *_*-* 

♦CHECK FLOATING * 

* POIHT FEATURE * 

* * 
***************** 



***** j 1* ********* 

♦BLDP2T00 EK* 

«_*-*_*-*_*-*.*-* 

* HANDLE PUB2 * 

* TABLE SIZE * 

* * 
***************** 



*«***£ 1 ********** 

* • 

* DISABLE * 

* 10 AND EXT. * 

* INTERRUPTS * 

* * 
***************** 



***«*I2********** 

* • 

* SHIFT PUBS, • 

* LUBS FROM * 

* IOFLD INTO SV * 

* * 
***************** 



*****B2********** 
*CLDRTN BB* 

*.*-*.*«.*.*.*.*-* 

INITIALIZE CHAN* 
* QUEUE * 



****** 



********** 



*****£ 2** ******** 
♦BLDTABL BH* 

*-*-*-*-*-*-*-*-* 

* BUILD PUBSCAN * 

* TABLES * 

* * 
***************** 



*****Q2********** 

♦DVCDNOO BB* 

*-*-*-*-*-*-*-*-* 
* TEST FOR * 



*****B2********** 

* * 

* DISABLE * 

* 10 AND EXT. * 

* INTERRUPTS * 

* * 
***************** 



AND CALCULATE 

* BG BEGIN * 

* (IJBPPBEG1 * 

***************** 



*****G2********** 

* CALCULATE AND * 
♦STORE ADDRESSES* 

* OF DYNAMIC * 

* SV AREAS * 

* *FU * 
***************** 



* ENABLE * 

* 10 AND EXT. * 

* INTERRUPTS * 

* * 
***************** 



* SCAN PRINTERS * 

* AND PERFORM * 

* BUFFER LOAD * 

***************** 



*****B3********** 
•CRKOOC EN* 

*-*-*-*-*-*-*-*-* 
•FIND OUT BHETH.* 
•MATR. PRINTER IS* 
* ATT. TO 125D * 

***************** 



***jm********* 

DVCDNOO * 

* 
************** 



**BU******* 

* * 

* SET BLOCK * 
* MULTIPLEX BIT • 

* IN CONTROL * 

* REGO * 
*********** 

**** 



**************** 



•*C5********* 



*****l)3********** 
•MODBRTN BO* 

*-*-*-*-*-*-*-*-* 

* CHECK * 

* ICA MODES * 

* * 
***************** 



*****£)********** 

♦T125CH EP* 

*-*-*-*-*-*-*-*-* 

* PROCESS * 
*125 RAS SUPPORT* 
RTN 



******** 



COM LOG 

YES .*' 



;******** 



*.DASD DBVICBS .* X* 



DASD *. 


MO 


.* END OF *. NO 


OPERATIONAL . 


*. . . . 


*. PUB TABLE .*.... 


.* 




*. .* 


*. .* 




*. .* ■ 


♦ . .* 


X 


*. .* X 


* NO 


*♦•* 


* X£S **** 




* * 


* * 




* B5 * 


* cu* 




* * 


* * 




**** 


•*•* 


X 







SVA 

CHD READ 

ALRBADY 



♦.2311 OR 2314 .*., 



**pti******* 
•TEMPORARILY* 

* SET OFF BLK * 
MULTIPLEX BIT * 

* IN CONTROL * 
* REGO * 

*********** 



1ST TIME 
THRU THIS 
. CODB 



-*_*_*.*_ 



***************** 



****G3********* 
•BBTURB TO ROOT * 
* (SET0K2) • 

*************** 



* SET * 
.X* STORAGE KEY * 

* FOR BG * 

* * 
***************** 



*****J3********«. 
* 

* UPDATE 

* A(BG BEGIN) 

* IN PIB 
* 

****************! 



****K3********* 
♦RETURN TO ROOT * 
* (SETOKJ) * 



**•* 

* * 

* B5 * 

* * 
**** 



**{]i|******* 

* RESET * 

* BLOCK * 
MULTIPLEX BIT 

• IN CONTROL * 

* BBGO * 
*********** 



***************** 



*****Kit********** 



***************** 



*****£*>*****•***• 

* * 

* CALCULATE AND * 
•SAVE LENGTH OF * 

* AVB TABLE ♦ 

* * 
***************** 



****P5********* 

* * 

* BETUMN * 



****3 5********* 

* * 

* CLDRTN * 

* * 
*************** 



*****M5********** 

* * 

* STORE SKStttS * 

* PUB ADDK INTO * 

* SYSCOM * 

* • 
***************** 



***** J £**•****•** 

* * 

* STOBB 1ST PUB * 
*0N CHANNEL INTO* 
« CHANNEL QUEUE * 



**** K «,**«****** 

* * 

* RETURN • 

* • 
*************** 



**** 

* * 

* A3 * 



**** 

* * 

* B5 * 

* * 

**** 
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Chart ED, 



SIPLRT4 - I/O and Check Device Type Subroutines 
Refer to Chart 03- 



****A<1********* 

* DSDRTN * 

* * 

*************** 



* * 

* OPNHTH * 

* » 
*************** 



* GET A DDK OF * 

* LUB AND PUB * 

♦ TABLES FOR BG * 

♦ * 
***************** 



♦♦♦♦ 
♦ C2 ♦ 



* GET SXSRDB * 

* LUB ADDRESS * 

* FOB FG • 

* * 
***************** 



.♦ OASD • 

.FILE PROTECT 
♦.OPTION .* 



****$$********* 

* * 

* RETURN * 

* * 
*************** 



DSDP1 X 

*****QH********** 

* INCREASE * 

* PUB ADDRESS * 

* TO REIT * 

* PUB ENTRY * 

* * 
***************** 



.* THERE A *. NO 
.PUB FOR THIS .♦... 
*. LUB .* 



*****£ 1 ********** 

* * 

* CALC PUB ADDR * 

* FROH PUB PTR * 

* IN LUB * 

* • 
***************** 



. » m x*rs, 

*. DISK OR 

♦.DISKETTE 



* UNASSIGN LUB ♦ 

* * 

* * 
***************** 



NO ,♦ ♦. 

,..♦. ALL 4 LUBS . 
♦. HANDLED .♦ 



*+**D2**+****** 

♦ ■ ' * 

♦ RETURN ♦ 

♦ ♦ 
*************** 



*****y3********** 

♦ ♦ 

♦ SET ON ♦ 
♦TEMPORARY INPUT* 

♦ FROM CONSOLE ♦ 

♦ * 
***************** 



X 

***** 
♦CD ♦ 
♦ £*♦ 



DSDP3 X 

*****pil********** 

♦ GET CHANNEL ♦ 
♦NUMBER. CHANNEL? 
♦MASK ADDRESS, A^ 

♦ ND CHANNEL ♦ 

♦ SUPPORT FLAG ♦ 
***************** 



.♦DEVICE ♦. 
♦ SUPPORTED ♦ 

ON THIS 
♦. CHANNEL .♦ 



ER1121 

*****H <|********** 

♦HSGRTN CK* 

*-*-*_*-*-*-*-*-* 

♦ ISSUE BSG 012 31*." 

* «DASD CUU ON ♦ 
♦NON F.P. CHNL' ♦ 

***************** 



.* ALL 
. PARTITIONS 
♦. HANDLED . 
*. .♦ 


♦ . 
*" 


NO 
♦ . .. . 


♦ . .♦ 
♦ TES 






X 

♦ ♦•* 

* * 

* C2 ♦ 

* * 

**** 


X 

****K 1********4 

RETURN 

TO CALLER 


♦ 
* 





*************** 
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Chart EE- $IPLRT4 - Find PUB and I/O Subroutines 
Refer to Chart 03, 



SXSRBS LOB POINTER 
TINES 8 PLUS THE PUB 
TABLE ADDBBSS. 



****K2********* 

* * 

* COHCHK » 

mm******* ****** 



*****32********** 

* * 

* LOAD REGISTER * 

* WITH LENGTH * 

* OF EITRY OH * 

* DEVICE LIST * 
***************** 



**** 
* 
♦ B3 



***«C3********» 

* NOBHAL RETURN 

* VIA LINK 

* REGISTBB+4 

*************** 



****[) )*+*+***** 

* * 

* PBPBTN ♦ 

* * 
*************** 



* CALCULATE * 

* PUB ADDBESS * 

* FROH LUB PUB * 

* POINTER * 
***************** 



INCREMENT * 

TO NEXT * 

PUB TABLE * 

ENTRY * 

" ' I******** 



****E2********* 

* ERROR RETURN * 

* VIA LINK * 

* REGISTER * 
*************** 



CLDLP2 

*****P3********** 

* STORE ADDRESS * 
♦OF AN EXISTENT 

* PUB INTO 
•CHANNEL BUCKET 

* * 
***************** 



*X. 



****&4****** 
* 

* CLDRTN 
* 

************ 



* CALC ADDR OF * 
♦PUB TABLE ENTRY* 

* FOR SYSRES * 

* *A1 * 

***************** 



*****C4 ******** 

* STORE 

* PUB ADDRESS 
» FOR SYSRES 

* IN SYSCOH 

****************: 



*****D<1 ********** 

* * 

* GET FOCL AND * 
♦CHANNEL BUCKET * 

* ADDRESSES ♦ 

* * 
***************** 



♦CLDNK4 TO NEXT * 
* CHAN BUCKET * 
***************** 



NO .* ANY 
...*. DEVICES ON 
*. CHANNEL . 



SYSTEM PUB 

*. SAME AS . 

*. IPL .♦ 



LAST 

PUB IN 

TABLE 



****j f ********* 

* RETURN TO * 

* LINK ADDRESS * 

* <ERRORI * 
*************** 



VALID 
DEVICE 
TYPE 



****j2********* 

* RETURN TO * 

* LINK ADDRESS * 

* PLUS 4 * 

*************** 



.X* 



CALCULATE 
PUB NUMBER 

* AND TRUE 

♦ ADDRBSS 
**************** 



*****QH* ********* 

* * 

* CALCULATE * 

* ADDRESS OF ♦ 

* FIRST PUB ON ♦ 

* THIS CHANNEL * 
***************** 



*****f]ll********** 

♦ * 

♦ STORB ADDRESS * 
♦OF FIRST PUB ON* 

♦ CHANNEL IN ♦ 
♦CHANNEL BUCKET ♦ 



****J3********* 

♦ RETURN TO ♦ 

♦ LINK ADDRESS ♦ 

♦ PLUS 8 ♦ 

*************** 



LAST 
FOCL 
ENTRY 



****K4********* 

* * 

♦ RETURN ♦ 
*************** 
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Chart EF- $IPLRT4 - Date and Time Subroutines 
Refer to Chart 03,. 



**** A 1 ********* 

* * 

* DATIHERT * 

* * 
*************** 



.♦DATE FIELD *. 
*. 13 BYTES 
*. LONG .* 



CI ♦ . 
.♦ IS ♦. 

.* YEAR * 
♦.GREATER THAN 
♦ . 99 .* 



****A3********* 

* * 
» ADREST * 

* * 
*************** 



****ii»********* 

* * 

* TIHERT * 

* * 
*************** 



***** 
*CK * 
* B1* 



*****Q1 ********** 

* * 

* SET OP TO * 

* CHECK MONTH * 

* FIRST * 

* * 
***************** 



♦GET MONTH FIELD* 

* ADDRESS AND * 

* LENGTH * 

***************** 



*****p 1********** 

♦DBCRTN CJ* 

*-*-*-*-*-*-*-*-* 

* CONVERT * 

* MONTH FIELD * 

* TO DECIMAL * 

***************** 



***** 
♦CK * 
* B1* 



* SET INITIAL * 

* VALUE OF 28 * 

* FOR FEBRUARY * 

* * 
***************** 



C2 *. 

.* *. 

LEAP IEAR 



*****D2********** 

* * 

* SET VALUE * 

* OF FEBRUARY * 

* TO 29 * 

* * 
***************** 



* IS DAY * 

OUTSIDE THE 
*. MONTH .* 



*****P2** ******** 

* ACCUMULATE * 
♦NUMBER OF DAYS/* 

* MONTHS TO GET * 

* SYSTEM DATE * 

***************** 



♦CALCULATE TOTAL* 
♦NUMBER OF DAIS * 

* SINCE 1900 * 

* * 
***************** 



*****H2********** 

* * 

* CONVERT DAYS * 

* TO * 

* SECONDS * 

* * 
***************** 



*****C3********** 

* * 

* CALCULATE * 

* ADDRESS OF ♦ 

* SECOND FIELD ♦ 

* * 
***************** 



SKPINC 

*****D3********** 

♦CALCULATB FIRST* 

♦ FIELD ADDRESS ♦ 

♦ AND GET ♦ 

♦ SUBFIELD ♦ 

♦ LENGTH ♦ 
***************** 



****£3********* 

* * 

* RETURN ♦ 

* * 
*************** 



* TIME 
FIELD IS 

♦ .14 BYTES 



*****Qll ********** 

* * 

* GET HOUR * 

* FIELD ADDRESS ♦ 

* AND LENGTH ♦ 

* * 
***************** 



*****DU********** 
♦DECRTN CJ* 

*.*-*-*.*-*-*.*-* 

* CONVERT * 

* HOUR FIELD * 

* TO DECIMAL * 
***************** 



* tit> * 

* * 
**** 



* GET SECONDS * 

* FIELD ADDRESS ♦ 

* AND LENGTH * 

* * 
***************** 



.*.*.«.*-*-* 

♦ CONVERT * 

♦ SECONDS ♦ 

♦ TO DECIMAL * 

***************** 



***** 
*CK * 
* B1* 



*****£5********** 

* * 

* ADD SECONDS * 

* TO TOTAL * 

* IN TIHREG * 

* * 
***************** 



*****?<(********** 

♦ CONVERT HOURS ♦ 

♦ TO SECONDS ♦ 

♦ AND STORE ♦ 

♦ IN TIHREG ♦ 



******** 



****** 



• ****Q|| ********** 

* * 

♦ GET MINUTE ♦ 

♦ FIELD ADDRESS ♦ 

♦ AND LENGTH ♦ 

* * 
***************** 



* CONVERT 

* MINUTE FIELD 

* TO DECIMAL 

*************** 



*****£«)********** 

* * 

♦ TRANSFORM * 
♦TIME (SECONDS) * 

* uufi TO ZONE ♦ 

♦ VALUE ♦ 

***************** 



*****H5********** 

* * 

* CONVERT TIME * 

* TO OBTAIN * 

* TIMER UNITS * 

* * 
***************** 



* B2 * 

* * 
**** 



****j<j********* 

* * 

♦ RETURN ♦ 



***** 
*CK ♦ 
* B1* 



*****KU********** 

* CONVERT * 

* MINUTES TO * 

* SECONDS AND * 

* ADD TO TOTAL * 

* IN TIHREG * 
***************** 



**** 

* * 

* B5 * 
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Chart EOL $IPLRT4 - Reorder MPX Channel LUBs and PUBs 
Refer to Chart 03, 



•***ai********* 

* * 

* FPHfH * 



NO .* FLOATING *. 
..*. POINT 

*. FEATURE . * 



*****C 1********** 

* * 

* TUBN OFP * 

* FLOATING * 

* POINT SWITCH * 

* * 
***************** 



**D1******* 



*********** 



**E1******* 

* IF PF * 

* INSTB OK. 

* SET FLOATING 

* BITE ON IN 

♦ CONREG * 
*********** 



» BETORN 

* 
*********** 
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Chart -EK- $IPLRT4 - Build-PUB2-Table Subroutine 
Refer to Chart 03. 



* M * 

* * 
**** 



.♦UNSUPPORTED*. YES 
*. DEVICE .*.... 
*. CODE .* 



****B 1 ********* 

* * 

* BLDP2T00 * 

* * 

*************** 



*****D1 ********** 



*********** 



RHSR 

~"ATBD 

5/125 .* 



*****pl ********** 

* * 

* POINT TO * 

* FIRST P0B2 * 

* ENTRY * 

* * 
***************** 



*****G 1********** 

* GET LENGTH * 

* OF TOTAL * 

* AREA AND * 

* ADDRESS OF * 

* 1ST PUB * 
***************** 

**** 



POINT TO 

DEVICE CODE 

TABLE 

*************** 
**** 



.* DEV *. 

-TYPE HATCHES .* 
*. CODE .* 



* POINT TO 

* P0B2 DEV 

* INFORMATION 

**************** 



***** B il********** 

* * 

* POINT TO NEXT * 
JC* DEV CODE * 

* IN TABLE * 

* * 
***************** 



* YES 
• *** 

* * 

* DU *.X. 

* * 

**** 

X 

*****Q||********** 

* * 

* BUILD * 

* MINIMUM * 

* PUB2 * 

* * 

***************** 



**F3******* 



*********** 



* ABNCHK 

NAME PIBLD 
*. USED 



i***(j3********* 



*************** 



**********: 



***** 

*CK * 
* j 3* 



*****j i********* 
* 

* COPY 

* ADDRESS OF 

* THIS PUB2 

**************** 



*****j3********** 

* ALLOW * 

* UC RECORDING * 

* FOR 5U25 * 

* ON 115/125 * 

* * 
***************** 



***** K 2********** 

* UPDATE TO * 
*NEXT PUB ENTRY * 

* AND GO CHECK *X 

* THIS PUB * 

* * 
***************** 



* POINT TO 
.* NEXT PUB2 

* ENTRY 

* 

**************! 
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Chart $l>* f JPMW - T$st it psyiqes m« QperatiojUA 
Rsffcj: to Chart Q3. 



• DVCPKOO • 









ovpeino 



.•*■■«■ 












WC8B2S. 



SIMS i|' 









: il ! 






LSBHti 



,Ih 



J. 



.•18 OBV. S 
♦ .^OPEMTIQIUl^ 




**, -..• t 








t 


! •* J 




«r ■ • 


", 


**ff 


X 


D 


j* *■* 




»i ■ • ♦» 




.:; oHU];: 


.!?;,'■■■ 



,:;;>%i";::.*j 









A 






fft» 



i It I 



0*«G2*#«Mft«*t 

t • 



. f • 

• * 

* ■ » 
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Chart EM- $IPLRT4 - Build PUB Scan Tables 
Refer to Chart 03.. 



*»«*A !*«*♦♦♦*** 



#***«»*»******• . 



•»!»•„•{. 



«B1********** 



POBSCAB1 

*™!»J r «59 



BiDHOOT I 

»»*• *b 3**«»#««>*«» 
*SAF * A&BHI ^ 



A**************** 

* * * 

* • 

■:# ♦ 

ft**************** 



• .41 



*. *SAF R ADD HISSES * 

■1 *. IBS • OF PDBSCAS T. * 

I§» -* . • Xi PUBSCAI1 • 

• » • * BI ZERO * 



••#* 



_ -JBSCABV 



* C3 *•!• 



gt****c2********** 

: "ISt? 1 * : 
* POBSCAB1 * 



* 



j. 



op i 



* * 

• B3 * 



•«***02«***«***** 

iisdiii&ill*!,: 



i 

03 *. 



..........X* BBTDM ♦ 



X 
.** BMTfir "». IBS 



.$.. 



X 
»*. 
B3 *. 
.* IS *. 
.* PUB FOB *. BO 
*. S4ITCHABLB ,*.... 
*. DBf •• • 



* BO 






* ' TBS ••** 

Z * C3 * 

* ♦ 



: SM as 08 # : 

♦PQRSCABI TABU * 
***************** 



.1. 



# * 

* 62 ♦ 



s "" 3 ,»- ... 



-S*«TV 



*****G2********** 

* XBSBBT FOB t * 

* IBTO ♦ 

* POBSCAB3 * 
***************** 



* COPI * 
•P0BSCAM3 BBTBT • 
•IBTO BBTBI FOB • 

* BUT HIGHER • 

* CBABBBL * 
it**************** 



BBB0B87 X 

*****£«•***«••**« 

* SET OPP BIT * 

• •SHITCtt DBV.» * 

* ISSOE * 

• BBSSACB 0I97I * 



* • 

• CI ♦ 



**» 



* C3 * 

* « 



• C3 * 

• * 
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Chart EN.- $IPLRT4 - Subroutines 
Refer to Chart 03- 



****ci ********* 

* * 

* CHCKDOC * 

*************** 



• ***&<!********* 

* * 

* BLDAVBT * 

4> * 

*************** 



BLDAVBT X 

*****BH********** 

♦ PUT ZBBOS * 

♦ INTO AVR TABLE.* 

• IMIT PUB-PTB. * 

* IMIt COUNTER * 
•FOB AVR ENTRIES* 
***************** 



*****QH******** 

♦ LOAD PHASE 

♦ fAVRINIT 

* BEHIND END 

* OF JSIPLRTU 

* 
****************> 



.♦ IS *. NO 
♦.CRTTAB (DOC) .*... 
♦.GENERATED.* 



**** 
LOOK DOC X 

*****£ J********* 



**************** 



*****%n********** 

* CALL SAVBINIT * 

* TO INIT AR * 

* AVB ENTBY * 
♦FOB CUBBENT PUB* 

* * 
***************** 



* * 

* BBTURR * 

* • 
*************** 



****************, 



* 125D 

DOC DEWICB 
*. FOUND . 



^H1 •. 

3277 

SCRBEN 



IS IT 
CONSOLE 
PBINTEB 



.* MATRIX 
PBINTEB 
♦.ATTACHED 



*****U2********* 

* 

♦ SET 

♦ PRINTSB 

♦ BIT ON 

* 
****************, 



.♦ END 


* 




so 


OF PUBS 








*. 


,* 






♦ . .♦ 








♦• .♦ 






X 


♦ XES 






♦*** 

* * 

* D«» ♦ 

* * 


X 








****HI4****** 


*** 








* 




RETORN 




* 
* 




************ 


*** 





*****K ^********** 

* PUT POBINDEX * 
♦INTO PBINTCCB. ♦ 

♦ SET BITS IN ♦. 

♦ •FLAGS' ♦ 

* * 
***************** 



*****£ 2* ********> 



**************** 



**** 

* * 

♦ El ♦ 



Program Organization 131 



Chart EP- $IPLRT4 - Subroutines 
Refer to Chart 03- 



****C1********* 

* * 

* T12SCH * 

* * 
*************** 



.* BBS ■ YES *. 

. IN SUPVR 
*. HACRO .* 



B1 *. 

* 

VH/370 



PI 



.:* i???!!is •:.". 

*. .* , 

*. .♦ 

*. .* X 

* HO •**♦ 



* A3 • 

* * 
**** 



*»*♦ ' 


♦*** 




• * 


*. » . 




* A3 * 


* A« * 




* .. ■ * 


* * 




*•** 


*•** 




T125SCA .»."" 
A3 •. 


T125RT X 

*****Ait********** 




■ •■-.* *. 


* * 




.* R8SR ♦. 


MO * POINT TO « 




*. GENERATED .4 


* NEXT ♦ 




*. .* 


♦ PUB ENTRY * 




■ *. .* 


* * 




*. •• 


. ***************** 




* YES 


I. ..*. .....X. 




X 


T125NOR .*. 




*****B3********** 


B« ». 




* * 


.* *. 


****B5********* 


* CALCULATE * 


.* END OF *. YES 


• 


* PUB2 ADDR * 


*. PUBTAB .* 


..X* RETURN 


* * 


*. .* 


* 4 


* * 


». .* 


*************** 


***•**••***••**«« 


*. .* 




■ . 


* NO 




•*»* 






* * 






* C3 «.X. 






* * 






**** x 


X 




T125BG .*. 


.*. 




C3 *. 


c»» *. 




.♦ *. 


.* *. 




YES • * BED OF *. 


.* fAPB *. YES 




...*. PUBTAB .* 


*. DEVICE .*.... 




*• .* 


*. .* . 





•**• 

* H V * 

* * 
• •*• 



63' 



*. 
*. 

**** 

* * 

* H1 *.X 

* * 
**** 

. X 
*****H 1********** 



***************** 



T125HW 

****J i********* 

* « 

* HARD WAIT * 

* * 
*************** 



****G2********* 

• ■ * 

• RETURN * 

• * 
*************** 



F3 *. 

.* *. 
.* DBV ADDR * 
.^X«»0 - X FF 



T125NOC X 

*****G3********** 

• SET P0B2 FLAG * 

• TO * 

• HO RECORDING * 

• NODE * 

• • 
***************** 



.* DEVICE 
ADDR 
*. LT X»0 



*. 



NO 



i * A« * 

X * * 

**** **** 

* *' 

* H1 * 

* * 



****************i 



• TABLE ENTRY 

» 
****************i 



* C3 * 

* • * 
■ **** 
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Chart EQ. $IPLRT4 - Subroutines 
Refer to Chart 03. 



ISSUE < 
SET LIMB NODB 
I/O OPERA!. * 



********** 



.* 
.* 
IBS 



**C1******* 
* SET FLAG * 

* TO INDICATE * 
UNRECOVERABLE 

* I/O BBROR * 

*********** 



***************** 



•TABLE P8E- 
.SENT .* 
*. .* 

♦ IBS 



*****C2********** 

* * 

* HOVE HODE * 
♦TABLE COONTEBS * 

* TO HODE TABLE * 

* * . 
***************** 



•****D2********** 

* * 

* SET OP • 

* FOB ISSUING * 

* SET LINE MODE * 

* * 
***************** 



IS 
POB ON 
CHANO 



***•*******•****; 



.*. 




F3 *. 




.* DID *. 
UNBECOVBBABLE. BO 


****pil********* 


* < 


EBBOB •* 


...I* BBTUBN 


*. OCCUR .* 


* 


*. .* 


*************** 



G2 *. 

.♦ADDRESS*. 

NO .* BETNEEN *• 

...*. X*20* AND . 

♦. X»40» .* 

*. .* 

*. .* 



*****H2********* 



************; 



*****J2*******»** 



***************** 



*****Q3********** 



***************** 



•***H3********* 

* HARD HAIT * 

* • 
*************** 



S/S *. NO 
OB BSC .*... 

LINE .* 



*****K3********** 

* SET ICACCH * 

* COUNT TO 1 * 
X* AND UPDATE * 

* CCH ADDRESS * 

* * 
***************** 



**** 

* * 

* A1 • 
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Chart Eft.' $IPLRT4 - Subroutines 
Refer to Chart 03- 



* BMPXRTN * 

* * 
*************** 



* as * 
**** 



* GET ADDRESS * 

* or * 

* CHANNEL TABLE * 

* * 
***************** 



**** 

* * 

* C3 * 

* * 
**** 



.* BYTE * 

.*. multiplexor 

*. CHANNEL .* 



**D1******* 

SET HICR 
SUPPORT 
SWITCH 

* * 

*********** 



*****£ 1********** 

* # 

* .INITIALIZE * 

* REGISTERS FOR * 
♦CHANNEL NUMBER** 
•CHAHNBL ADDRESS* 

***************** 



F1*** 



♦ZERO SWITCHES* 

* 'HICR POUND' * 

♦•BURST POUND'* 



BHPXNXT 

**G1******* 
♦SET SWITCH ♦ 

* FOR BURST ♦ 
♦ CHECK. RESET 

* SWITCH FOR * 
♦MPX CHANNEL* 

*********** 



*****ti 1********** 

* * 

* INCREMENT ♦ 

* CHANNEL * 

* NUMBER * 

* ♦ . 
***************** 



*****C3********** 



***************** 



♦ . LOAD * 
♦CHANNEL NUMBER ♦ 

♦ PICK UP * 

♦ POCL ENTRY ♦ 

***************** 



*****p 3*** ******* 

♦ * 

♦ GET PIRST PUB ♦ 

♦ IN CHANNEL * 

♦ DISPLACEMENT ♦ 

♦ * 
***************** 



*****C5 L ********** 

* * 
♦COPX BURST MODE* 

* SWITCH INTO * 

* CHANNEL TABLE * 

* * 
***************** 



* BURST * 

SUPPORT FOR 
*. CHANNEL .* 



**** 

* ♦ X 

* F1 ♦X. 

* * 
**** 



**P5******* 



*********** 



REFERENCES **** 
TO ERG3: * * 
ESF5. ESG2 * * 



PXLP 

***> 



****Q 3*********: 

INCREMENT 

PUB 

ADDRESS 

***************: 



LAST ♦. 
CHANNEL 
CHECKED .♦ 



****K1****** 

* 

♦ RETURN 

* 
************ 



.* PUB ON ♦ 


NO 


♦. CHANNEL 


*. . .. 


♦ . .♦ 




♦ . . ♦ 




*. .* 


X 


* YES 


**** 




* * 




* B5 * 




♦ * 




**** 


X 




XSW1 .*. 




33 *. 




.* *. 




.* BITE * 


YES 


♦. MULTIPLEXOR 


*. . . . 


♦4 CHANNEL .♦ 




*. .* 




*. .* 


X 


* NO 


***** 




*ES * 




* A2* 




* * 




* 




BMPXCHK 


X 




**K3******* 




* * 




* RESET 


► ' 


* BURST MODE 


* 


* FLAG 


► 



*********** 
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Chart ES. 



$IPLRT4 - Subroutines 
Refer to Chart 03- 



***** 

*EH * 
* J 3* 

* * 





B2 


*. 








.* 


* 








.* DEV.TfPB 


*, 


XBS 


* 


. > 3340 

*. 

*. 


H/0 


*" 


*.... 




*. 


.* 




X 




* 


NO 




***• 
* 
• BS 



YES .* TAPE < 
...*. CABTRIDGE 
*. BEADBR .' 



**E3******* 

* * 

* SET SWITCH 
* FOB 

* BUBST BODE 

* * 
*********** 



**P2******* 

* * 
* SET SWITCH * 

* • BUBST POUND* * 
•SAVE CHANNEL/* 

* UHIT * 
*********** 



HICR 
DEVICE 
FOUND 



• *** 

* * 

* B«» • 

* • 
*•** 



BICR DBVICB .* 



••Bi******* 

* ■ ■ * 

* set Switch * 

♦ »bicb found 1 * 

•savb channel/* 

* UNIT » 



3 .* BUBST 

X...*. DEVICE 
*. FOUND 

. *. .- 

X ** .* 

***** * ]{£, 

*ER • 

* G'i* 



***** 
*BB • 
* Gi* 



BHPXLP 

HSGHICB a 

***«*H2********** 
♦GET ADDRESS OF ♦ 
*HESSA6B 0I34D: * 

* X'CUO* BURST * 
•BODE AND X'CUU** 

* BICB CONPLICT • 
***************** 



***** 
*CK * 
* J3* 

* * 
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Chart ET. $I1?L»*4 -Subroutines 
Refer t* Qhktt ti3* 



* ; i * 

• CHSHITM J 






C " •«S**A3<»*«»*****« 



x«c*miiT • 






CHSHRtH V,*^ 



•••»« B 2*»«»«««««* 



..A. 






t." J**:- 






^^Mii^-f?.: 






J.. 



Cusmut 



J *»*** tt;..w !:?*:* jiffs'*. > 



* no 






.1'*'.. 






4» __ u ** 






1«: 



* IBS 



*.{.* 



• • : ■ # * . * 






l&lfiLIP* •*.***• 



.....4... ..I. 









i 

♦ ■ • * 



. ••4**i)2*I*«»»«»*« 



••4**42*3*. 

|4fttth.|. 

•**••*•*«*«#*•«*• 



-•«*• 



M'*^ 



. •••••^••••••••••« 



•<«3te> ! 



»•*•••*••*••••••• 



C i«$*ji*$**«***** 

it**************** 
••** t 

«****lj*$*****»*« 

•«****••***«*••** 



i 

*••« 

•••• 



•****JS********** 
•**••#•••••«*•*•* 



■.**** 



*K 



*••• 
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Chart EU. SIPLRT6 - Process SVA Command 
Refer to Chart 04- 



****A1 ********* 

* * 

* *IPLHT6 * 

* • 
********* 41***** 



IJBIPL6 

*****B1 ********* 

INITIALIZE 

PARAMETER 

VALUES 

FOR SVC in 

(ALLOC) 

**************** 



****C1 ********** 

* 

ANALYZE * 

SVA COMMAND * 

*C2 * 

* 

**************** 



*****Dl ********** 

* ♦ 
♦SET PARAMETERS * 

* FOR SVC 83 * 

* (ALLOC) * 

***************** 



*****£) ********** 

* LOAD PHASE * 

* $$A$SVA * 
♦WHICH CONTAINS * 

* THE LOADLIST * 
♦NAMES *E2 * 
***************** 



* F1 *.X 

* * 
**** X 



.* LAST 
. LOAD LIST 
♦.PROCESSED.' 



♦ C2 
MESSAGES 0I86A 
0I87A 
0I88A 



*****B3**** ****** 

* * 
•PHEPARE SDL AND* 

* HSIZE VALUE * 

* FOR SVC 83 * 

* * 
***************** 



*****C 3 ********** 
•SORT SDL BNTRS.* 

* BY ASCENDING * 

* PHASE NAMES. * 
*REPLACB DUPLIC* 

* BY X»FFPP...« * 
***************** 



*****03********** 

* CALCULATE * 

* SVA SPACE FOR * 
♦TXT OF PHASES. ♦ 

* UPDATE PARAM. * 

* FOR SVC 83 * 
***************** 



*** 23 *********** 
COMPLETE 
♦MESSAGE 0I85A. ♦ 
ISSUE MESSAGES 
* 0I84A AND 0I91I 

IF NECESSARY 
**************** 



*****G1 ********** 

* * 
♦LOAD NEXT (1ST)* 
♦LOADLIST NAMED * 

* IN $SA$SVA * 

* * 
***************** 



* LAST *. 

PHASENAME . 

♦.PROCESSED.* 



*****jf ********** 



OF LOADLIST 



***************** 



*****£ J********** 

* LOAD AND KEEP * 

* DIR. ENTRY OF * 
.*PHASE *K2. UPD.* 

* COUNTER FOR # * 
♦OF SDL-ENTRIES * 
***************** 
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Chart EV- $IPLRT7 - Load SVA and Final IPL Processing 
Refer to Chart 04- 



PUBSCAN 

*****£ V********** 

§CAN_ 



***************** 



CPKSLB 

*****B1********** 

» COP* CONTENTS * 

* OF SOME 36 * 

* SYSTEM LUBS * 

* INTO FG LOBS * 

* * 

***************** 



**C1********** 

* * 

* , SET * 

* PUB OWNERSHIP * 

* BITS * 

* * 
******** ********* 



*****() t*********« 

* READ INFO ON, * 
•PROC. LIB* AND * 

* LABEL AREA TO * 
♦SAVE IT IN GBT-» 
•VIS AREA LATER * 
***************** 



BOVINFO 4 „ 

*****£ 1 ********** 

•SAVE SOME CONST* 
* OP SVIPL AREA • 



****A2*******»* 

* * 

* SIPLRT? * 

* • 
*************** 



*****B2********** 

* * 
» SET CLOCK * 

.•COMPARATOR POH • 

* IT SOPPORT * 

* * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 



SWVIRT1 X 

*****B3********** 

* UPDATE ^ • 

* PT AND PPT * 

* FOR RUNNING * 
•IPL IN VIRT. BG» 

* * 

***************** 

**** 

* * 

* C3 *.X 

* * 
**•* 

SMVIRT2^ , 1.^ 

*****C3********** 

* • 

* UPDATE SOBB * 
•ADDRESS CONST. ♦ 

* IN IPL CODE * 

* * 
***************** 



****«D3********** 
• SWITCH PROR * 
REAL TO 
~^UAL STA. 
LOADING 
NEW PSR * 
***************** 



• C» 
MESSAGES 0I81I 
0I93I 



Pt*l 



:******** 

SVC B3 • 

(ALLOC VIRT.) • 

♦ E2 • 

* 
**************** 



SWITCHING X 

*****Gl ********** 

* SET ON TRAM * 

* IN PlB. * 

* DISABLE 10 * * 
•EXT. INTERRUPTS* 

* FOR 370 * 
***************** 



H1 *. 
* * 

B-HODE 

*. .* 
*. «* 
t NO 



N0WVIRT1 X 

*****23********** 

* INITIALIZE * 

* HEADER OF * 

* SXSTEH SVA • 

* * 
***************** 



*****P3********«* 

* SHIFT • 

• sdl entries * 

* prob u6 into • 
•The sxsieb sva * 

• * 
***************** 



LOAD AND CALL 
• SBAINDIR/ • 
•SHAINDIP 6 HAVE* 



• ENTRY PTS * 
•OP SOHE PHASES • 

• INTO SV • 

• *H<i * 

***************** 



*****C5***»****** 

* * 

* SVC BJ • 

* (ALLOC REAL) • 

* *C4 * 

* * 
a**************** 



****D s********** 

ISSUE • 

IPL-COMPLBTK * 



**•*£&•**•••••• 

• SVC 1» * 

* (EOJ) • 

***«*****•**•** 



DASD PILE ** 
PROTECTION . 
* SUPPORT .• 



.5.. 



• INTO ?IRT. BG * 

• AND SWITCH TO • 

• VIRT. STATE * 



***************** 



**K3********** 



AND EXTENT 

•BLOCKS IN S¥ST.* 

• GBTVIS AREA ♦ 

***************** 



**** 

* * 

* Ci • 
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Chart FA. $IPLRT5 - DEF and DPD Processors 
Refer to Chart 04. 



****B2* ******** 

* *IPLRT!> * 

* * 
*************** 



FORHR - TYPE 

URITR - UNIT 

BXTB - CYL/BLK 

VOLIDB - VOLID 

SYSB - SXSCAT/SYSREC 

SBE CHARTS FB-FF 



***** 
*CL * 
* A4* 



*****C3********* 



************** 



***** 
*CD * 
• Al* 



*****j)2********** 
♦FDSRTN CJ* 

*.*-*-*.*-*_*-*-* 

* FIND NEXT * 

* OPERAND * 

* * 
***************** 



E3 *. 

* * 

BLK/CYL 

IN CUD 



*****P2* 



***** 
*CL * 
* Al* 



***** 
*CL * 
* A«* 



******** 
PE-PF* 
*-*-*-*-*-*-*-*-* 
.* SYNTAX CHECK * 

* OF OPERAND * 

* * 
***************** 



*****F3********** 
♦GETVC FG* 
*.*.*.*.*.*.*.*.* 

* CHECK * 

* AND ASSIGN * 

* ROUTINE * 
***************** 



*****G<4********** 



*. fALID DASD 



***** 
*CK * 
* C1* 



************** 



*****j3********** 

♦FORMAT FD* 
*-*-*-*-*-*-*-*-* 

* FORMAT * 

* PDS * 

* * 
********** 



*****K3********** 

•BDITL FD* 

*-*-*-*-*-*-*-*-* 

* EDIT * 

* PDS EXTENT * 

* * 

***************** 
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Chart FB. $IPLRT5 - DPD Processor, OPEN and Overlay Check 
Refer to Chart 04., 



****A 1 *** ****** 

* * 

* OVTOC * 

* * 
*************** 



OPEN VTOC * 
OP PDS * 
DEVICE * 

i** ************* 



***** 
*FC * 
* C3* 



*. PDS ON FBA 



****g1 ********** 



**************** 



***** 
*PC * 
* C3* 



**************** 



****AS****** 
* 
* CVTOC 

************ 



CLOSE VTOC 
OP PDS 
DEVICE 



****cs********* 

* * 

* RETUHN * 

* * 

*************** 



***** * 
*FC * WRITE 
* C3* 
* * 



Bb *. 

.* *. 
. * 
. X*. PUS ON FbA 



***************** 



. FORMATTING .*.... 

*. WANTED .* 

*. . *~ 




*. .* X 
* NO **** 




* * 




* H3 * 

* * 




**** 




X 
.*. 




G3 *. 

.* *. 


*****Qlt* ********* 
* * 


.* COMMON *. YES 

EXTENT .* 

*. .* 


* INDICATE * 
X* PARTIAL * 

* FORMATTING * 

* * 


*. .* 


***************** 



******** 



* * REFERENCES 

* * TO FBH3; 

* ** FCC2. PCG1 
***** 



****«&***** **** 

* RETUHN * 

* I'O FORMAT * 

* * 
*************** 



****H5********* 

* RETURN * 

* CO EDITL * 

* * 
*************** 



*****j i********** 
*CVTOC PB* 

*.*-*.*-*-*-*.*.* 

* CLOSE * 

* VTOC * 

* * 
***************** 



***** 

*FG * 

* C5* 

* * 



*****J2********** 
*CVTOC FB* 

*-*-*-*-*-*-*-*-* 

* CLOSE * 

* VTOC * 

* * 
***************** 



* * 

* 

CHKCXL30 



ANY *. 
SCRATCH 
PROBLEM .* 



***** 
*FC * 
* C3* 
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Chart FC. $IPLRT5 - OPEN and Overlay Check 
Refer to Chart 04. 



REFBfiBRCES ***** 

TO FCM:* * 
FBCM. FBjJ • ** 



****************: 



.X*. PDS ON FBI 



****B2********+ 

* RETURN * 

* tO FORMAT * 

* * 
*************** 



****A3********* 

* RBIURM * 
.X* TO BDITL * 

• * 
*•****•*•****•* 



RBPBRBMCBS *****, 
TO FCC3: * * 
FBC1, PBC« * ** 
FBF1, FBJ3 * * 



.* OVERLAP *. N 
♦ .ON UNEXPIRED .*. 
*. FILB .* 



*****D1********** 

*HSGRTN CK* 

*.*..*.*..*.*.*.*.* 

* MESSAGE 01 371 * 

* OVERLAP ON * 
♦UNEXPIRED PILE • 
***************** 



.* OVERLAP * 
.X*.MITH EXPIRED 
*. FILB .* 



***** 
*FB * 
* H3* 



CVHRC X 

*****C3********** 
*C?TOC PB* 
*-*.*-*-•.*_*.*.* 

...X* CLOSE ♦. 
* VTOC * 



* 


I/O ERROR 

READING 

fOLI 


* 


YES 






* 


* 








*. .* 








*. .* 








* NO 







*****B5********** 

* RBSSAGB OI/bA * 

♦I/O BRRORRBADIN* 

X* GVOL1 LABBL *. 



.X» 



*****C5********** 
* HESSAGB 01 11 A * 

I/O ERROR ♦ 
RBADIMG *. 

TUB VTOC * 



.X* 



*****DS********** 

* MESSAGE 0I51A • 

* RO MORE * 
LABEL SPACE *..X 

IM VTOC • 



* READ 
OPERATOR 
* RESPONSE > 

***************** 



ANSI 


IBR 


* 


IBS 


DEL !TB 


.*.... 






* 




*. 


.* 






*. 






X 




► NO 




***** 
*PB * 
* H3* 

* * 

* 

SCRTCH 


H1 


*. 






.* 


* 










*. NO 


ANSHE1 


I DPD 




* 



*****H2********** 
•HSGRTN CK* 

*.*_*_*.*.*_*-*.* 

X* MESSAGE 0I39A *. 

* INVALID * 

* RESPONSE * 

***************** 



OVERLAP *. XES 



BRLAP . - 
.ON UNEXPIRED .*. 
. SECURED .♦ 
•.PILE .* 



*****g5********** 

* MESSAGE 0I99A * 

* OVERLAP ON • 
UNEXPIRED *..X 
—.LB * 



* SECURBb'PIL 



.* CVH WORK 
. AREA TOO 
*. SHALL 



*****F5********** 

* * 

* MESSAGE OIJttA • 
X* OVERLAP *. 

* ON VTOC * 

* ■ * 
***************** 



*****q5********** 

* * 

* MESSAGE 0I7BA * 
.X* CVH HORK AREA *. 

* TOO SMALL • 

* * 
***************** 



*****{I5********** 

* ' * 

* MESSAGE OIUbA * 
.X* NO CORRECT *. 

* IH DSCB * 

* * 
***************** 



***************** 



VOL1 
LABEL NOT 
. POUND . 



*****j5********** 

* * 

* MESSAGE 0I11A * 



***************** 



***** 

*cB * 

* D1* 



:»**' 



*****KII********** 

* * 

* MESSAGE 0I79A * 

* UNEXPECTED * 

* CVH RC * 

* * 
***************** 



ILLCD1.X.... 

X 

***** 

*CK * 

* C1* 
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Chart FD* IIPLRT5 - DPD Processing- Formatting 
Refer to Chart 04- 



* FORMAT * 

* * 

*************** 



****A3********* 

• * 

• EDITL * 

• * 
*************** 



****gt********** 

* * 

* PPOBMAT * 

* * 
*************** 



MO .* PARTIAL 
,..*. PORHATTING 
*.AT START . 



*****Dl********** 

* * 

* SET MEW * 

* EXT^LIMITS * 

* FOR START * 

* * 
***************** 



*****£ 1 ********** 

*PPORMAT PD* 

*-*-*4.*.»*-*-.*.**** 

* * 

* PORHATTING * 

* * 
***************** 



*****B3********** 

•HSGHTN CK* 

*-*-*-*-*-*-***-* 

* EDIT LIMITS * 

* MESSAGE 0I52I * 



PPOBMAT .*. 



*** 



************ 



****C2********** 

* 

SET LOWER * 

AND UPPER * 

LIMIT * 

* 
**************** 



•PFOfiMAT PD* 
*.***.*. *-*-*.*.« 

* * 

* FORMATTING * 

* * 

***************** 



****22********* 

* * 

* RBTORN * 

* * 
*************** 



****C3********* 

* * 

* RETOBN * 

* * 
*************** 



*****tt5********** 

* * 

* INIT FOB * 
X* a RBC/TBK *. 

* * 

* * 
***************** 



*****C!)******«*** 



***************** 



*****04********** 

* * 

* INIT FOR * 

* 3 BEC/TRK * 

* * 
***************** 

**** I 

* * 

* EU *.X. 

* * .X 

**** 

X 

***EI|* *********** 

* WRITE * 
RECORDS 

* * 

***************** 



* PARTIAL 

FORMATTING 
*. AT END . 



*****q i********** 

* * 

* SET MEM * 

* EXT LIMITS * 

.* POR END * 

* * 

***************** 



*****H1 ********** 
♦PFORMAT PD* 

*«*.*.*.*-*.*.*_« 

* * 

* FORMATTING * 

* * 

***************** 



.* *. NO 

*. PORHATflNG .*... 
♦.COMPLETE .* 



****H 4 ********* 

* * 

* RBTORN * 

* * 

*************** 



*****P5********** 



***************** 



*****^5********** 

* * 

* UPDATE * 
X* CO, NUHBUR *. 

* AND T8K COUNT * 

* * 
***************** 



* £4* 

* * 
**** 



****j )********* 

* * 

* RETURN * 

* * 
*************** 
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Chart FE, $IPLRT5 - DEF and DPD Operand Processing (Part 1 of 2) 
Refer to Chart 04- 



****A1********« 

* * 

* PORHR * 



••**AJ********* 

* * 

* UHira * 

* * 

*************** 



•***A5****« 
* 
* VOUDB 



* YES 




***** 
*CL * 
* A1* 

* * 
* 


X 




INVKEYH 


.*. 






D1 *. 






* * 






OPERAND 


*. 


YES 


ALREADY 




*. ... 


AfAILABLR 


*" 




*. .• 






*. .* 




X 


* NO 




***** 
*CL ♦ 
* A3* 

* * 
• 


X 




DUPKEYH 


.*. 






El *. 






* * 








*. 


NO 


CORRECT 




*. .. . 


SPEC 


*" 


. 



.* OPERAND *. 

ALREADY 

*. AVAILABLE.* 



X 

***** 
*CL * 
* A1* 

• * 

* 

INVKEYH 



X 

***** 
*CL * 
* A3* 



VALID 


*. NO 




KEYMORD 


* 




*. .*" 






*. .* 






* YES 


*•*< 


'* 




*CL * 




* A1* 




' *. * 




* 


X 


IMVKBYR 


.*. 




D5 *. 




* *, 




OPERAND 


*. YES 


ALREADY 


.*..«. 


AVAILABLE. 


* 


*. .* 




*. .* ' 


X 


* NO 


***** 




*CL * 


. 


* A3* 



***** 
*CL * 
* A2* 

* * 



PI *. 

* 

TYPE»P 



*****Q|*********i 

* 

* INDICATE 

* PORBATTING 

* WANTED 

* 
**************** 



***** 
*CL * 
* A2* 

* * 



***** 
*CL * 
* A2* 



X 
***** 
*CL * 
♦ A2* 



*****f 3********** 

* SAVE OPERAND. * 

* INDICATE * 
*. OPERAND * 

* AVAILABLE * 

* * 
***************** 



****G3********* 

* * 

* RETURN * 

* * 
*************** 



****p<j********** 

tRANSLATB * 

BACK TO BCD * 

INDICATE * 

OPERAND • 

AVAILABLE * 

**************** 



****ss********* 

* ■ • 

* RETURN * 

* * 
*************** 



****H1*********i 

INDICATE 
OPERAND 
AVAILABLE 

i*************** 



****J1********* 

* * 

* RETURN * 

* * 
*************** 
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Chart FF. $IPLRT5 - DEF and DPD Operand Processing (Part 2 of 2) 
Refer to Chart 04.. 



***** 1 ********* 

* •* 

* BXTR » 

* * 

*************** 



****jL3********* 

* * 

* sisa * 

* * 
*************** 



.* OPERAND *. MO 
*. EQUAL BLK .*..X 



*****£ 1 ********** 

* * . 
*' INDICATE * 

* BLK OPBBAND * 

* AVAILABLE * 

* * 
***************** 



X 
.*. 



.* OPBBAND *. 

ALREADY 

*. AVAILABLE.* 



***** 
*CL * 
♦ AI* 



X 

***** 
*CL * 
* AJ* 



*****g3********** 

* INDICATE * 

* OPBBAND * 

* AVAILABLE. * 
♦SET LOB POIMTER* 

* * 
***************** 



.* OPBBAND *. 
. ALREADY 
•.AVAILABLE.* 



***** 
*CL * 
» Ai* 

* * 



* 


COBBECT 


.* 


... 




*. SPEC .* 








*. .* 








*. .* 




X 




* XES 




***** 
*CL * 
* A2* 

* * 
* 






INVSPBC 


*****H 1********** 




* 


SAVE OPBBAND. 


* 




* 


INDICATE 


* 




* 


OPEBAND 


* 




* 


AVAILABLE 


* 





***************** 



****J1********* 

* * 

* RETURN * 

* * 
*************** 



*****Gil ********** 



***************** 



****Hll********* 

* * 

* BBTORM * 

* * 
*************** 



***** ' 
*CL *. 
* A2* 

* * 



*****J3********** 
♦GBTVC PC* 

*-*-*-*-*-*-*-*-* 

* CHECK IHD * 
♦ASSIGN ROUTINE * 

* . * 
***************** 



****K2********* 

* ■ * 

* RBTUBN * 

* * 
*************** 



****Ki»********* 
* ERROR * 
.X* RETURN * 
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Chart FG. $IPLRT5 - DBF and DPD Check and Assign Routines 
Refer to Chart 04. 



•***A1********* 

• Gbtvc * 



•**• 

* * 

* at * 

* • 
***• 



bRbo 

BBTUR 



***• 

• * 

• G« • 



BJ •. •• 

.« *. * 

.* . ORB ♦.TBS * 

*. PARTXflOR .*.... *...!• 

*. ;* I • 

*. .♦ . • 

*. .* . *« 
* RO 


CONVftRT 
CYL tO BEL 
TRK FOR CKD 

X 


* 
* 
• 
* 
* 


•FB • 
• Jl* 

* * 
• 


X 

*****C3********** 

• UPDATE • 

• LOAD LBysLER • 

• constants * 


*I 


.*. 

c«» ♦. 

.» *. 

* LOLIB • 

or DRV 

*. LIBITS .• 

*. .* 

♦ . .♦ 

• MO 


. YES 


CHKCXL2U X 

* MESSAGE 0142A * 




* CYL/8LK • * 




***« 

•FB ♦ 

• J2 *... 



X 
.*. 

D1 *. ♦•♦♦• 2********* 

.* *. * 

.* DEVICE *« MO * MESSAGE Olfik 

READY .*.. X* EBAOY DEVICE 

• . .* • 

*. .• • 

*. . * **#«*♦*»♦*»»*•*» 

• XES 



OPLIH 

at oev 
limits 



***** 

•CK • 
* C1* 



BO «• VOLXD * 
....*. IM SV OR 

*. CRD .* 

*. .* 

*. .* 

• XES 

1 .*. 

Gl •. 

. .* *. 

.• VOLlD * 

*. MATCHING 

*. .* 

*. .* 

• • .• 

* YES 


I* 

. NO 
.*• .. .. 

• 
* 
* 
* 
* 






• 
* 

• 
• 


MESSAGE OldttA • 

VOLXD DOBS • 

HOT HATCH • 

• 




'. 


* GET 

• DESCRIPTION 

* 


X 

***** 
•CK • 
• CI* 

* * 

ILLCD1 



* SAVE 

* LOLIN * UP Lid 

* XR DFDTAB 

* 
*****•*********< 

• *** 

* n 

* gh *.x; 

* r 
•*** 



• 8 EC /USE /CAT * 



• SET 

• IB 

• FOB 



SET POIMTBB 

*- LUB TO 
OF UNIT 



*$*• 

* * 

* Bi • 

* • 
• *** 



***************** 



* RETURN * 

* * 
*************** 
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Chart FHV $$BUFLDR - OCB Loading for 3203, 3800/ PRT1, 1403U, and 5203 Printers 
Refer to Chart 05. 



•»»*A I********* 

* SB BOPLDR * 

• * 
••****•******** 



* SET SfSUSE 

* LOB TO 

* PR1BTBB 
• 
***************** 



IBlSBfBB 1 

•.aBQOXB; 



• LOAD BASE BEG • 

• RELOCATE • 

• ADCONS • 

• * 
*«**•****•**•**** 



*****C1********** 

• • * 

• SATB • 

• SISOSB * 

• LUB • 

• « 
***************** 



**** *g 3**** ****** 

• ISSOB • 

• BB->SAGE OI28D « 

• AiD BAIDLB * 

• ABSRBB * 

• * 
**•• ***••*•*•**** 



*****£5**«* ****** 



Sf c « 

LOAD 

OCB PHASE 



•*** 

• * 

• C2 • 



**************** 



.X. 

x 



SETLOB 

IBS ••*' 



D1 »* 

** 
.* BBD 
•. OF BOB 
*. TABLB 



*****B i********** 

* RESBT * 

* PCB AMD OCB * 

•*«****•***••*•*• 



*****R2********** 



***•**•*******•*• 



D3 *, 



*****B3********** 

* OHP1CX AID * 

* *BAMSLAT8 • 

• SB MSB BXTB TO • 

• GET PBASBBABB * 



•****D«** *•*••*•* 

• * 

• CBAIB * 

• ADDXTXOBAL * 

• CCI * 

• * 
*•*«•*******•**•* 



X 


# 


r,*.. 


' X 


• • • « 


•••*F2** ******* 


.* PRT1 *. fBS 
♦. OB 3800 FOB ...... 


» SfC 11 * 


* RBTOBB TO * 

* SXPLBT7 • 


*. BBTBI ** 


*. .* 


*************** 


•. •• X 




* BO •♦*• 




* * * 




. * A2 » 




• * • 




X 




ei" "•. • ' 


****«32********** 


.* *. 


* . • 


.* 5203 ♦- fBS 


« SBT OF • 


•. FOB BBTBI .......... 


X* SSBFCBS «... 


*■. .♦ 


• PBASB BABE * 



• Ctf JACTBB OF 
—ABB XBTO 



***************** 



••**•****•*•**•** 



14030 

*. •* 
• BO 



**•* 
•FE • 

• PS ».X. 



*****C5********** 
•LOGBlTB ^PR* 

* PRXAT * 

* BBSS AGE 0I26I * 

* OB SXSLOG * 

•** ****** ******** 



•*** 

• • 

♦ F5 * 



LOAJ* 
CC« ADDA 
PO* 3B00 



**•* 

* * . 

• 61 *.X. 



Ml ♦. 

-• ». 

52030 • 
POB EM TBI 



*****){ 2********** 



BB0CB5 
SSBPCB5 



J1 ». 
-• *. 

3203 *. IBS 
PUB BMTRI .*.... 



***************** 



*****J2********** 

• SBT OP • 

* SSBPCB3 ♦ * 
$*BPCB3 *..X 

PBASB BARBS * 



.X* 



***************** 



*****K2********** 



.* 
* MO 



• C2 * 

• ' * 
**** 



* STOiB • 

* ?flASE«ASB • 

* In BSG ABBA * 

* * 
•*•* ************* 



• LOAD • 

* FCB • 

* FBASB * 

• * 
*****•**••****•** 



♦ 3B00 PMXMTBB • 

* * 
***************** 



****U********** 

* GO TO • 

* BBB0PLD1 • 

* * 
**•••**•**•*••* 



» F5 * 

* • 

**•• 



• • 0*11 ♦. 

CttCCR .' 

*. ON 3*00 .* 



BR3800 X 

*****J4********** 
*LOGRXTB PB* 



• FBXMT 

* BBSSAGB 0X7OX 
OM SISLOG 



*****j<>********** 
*L06B1T£ PA* 

*-*-*-+_*-*_*-*-« 

• PRlJlT * 

• BBSSAGB 0X261 * 

• OH SXSLUG ♦ 
**••***•***•****• 



.5** 

• B« * 

* • 
**** 



***************** 



i 

**** 

* ■ • 

* A2 * 

* * 
**** 



146 DOS/VS IPL and Job Control Logic 



Chart FK. $$BUFLDR - Print Messages on SYSLOG, FCB Loading, and Error Recovery 
Refer to Chart 05. 



* LOGBITB * 

*************** 



LOG RITE X 

•****B1*********« 

* HAKE PHIHTBB * 

* OBV AODB • 

* PRINTABLE. * 

* SET POR PRINT • 

* ON SYSLOG * 



**C1******* 

* * 

* DISABLE • 
• DISASTBH TEST * 

* AT »TBST» • 

# « 
*********** 



B3 * 

* 

3211 



****C2********* 

* * 

* EXCP * 



BEAD PCAR 
* AND PCB * 
PBON 3211 
***************** 



• POINT TO CCB * 

• * 

• ■ * 
***************** 



****02*««****** 

♦ STABTIO * 

* * 
**********••«** 



TBSTBIT X 
SHIFT .*. 

D3 •. 
.* ». 
.* PCAB A *. YES) 
*. POSITION 1 .*... 


*D1 
0I27I UCB 
LOAD FAILU 


I 



STABTIO 

*****£ I********** 

* * * * 

* * * * 

* * SVC * ♦ 

* » * * 

* * * • 
***************** 



.* * 
* I/O 
COHPLBTB 



*****j?2*********i 



****************! 



«***ui**«****** 

* SVC 4 LOAD * 

* SSBUFLD2 AND * 

* PASS CONTROL * 

*************** 



****H2********* 

* RETURN * 

* TO CALLBB * 

* * 
**«•*****•***•* 



NBXTPCB X 

*****£3********** 

* DBIBRHINB * 

* NUHBEB OF * 
♦SPACES TO BEACH* 

* CBANNBL 1 * 

* • 
***************** 



KLBER X 

*****P3********«* 

* CLBAB FCB. * 

* CREATE SHOBT * 

* FCB LOAD SET * 

* FOR 8 LINES * 

* PBB INCB * 
***************** 



SHOBTFCB X 

***G3************ 
BXCP FK 
•-*-*-*-*-*-•-*-* 
DO SHORT 
* FCB LOAD * 

***************** 



***H3************ 

STABTIO FK 

*•*.$.*_*.*.*.«.« 

SKIP TO 
* CHANNEL 1 * 

**«******••*****« 



* »»BUFLD2 • 

* • 
*********•***•• 



*«*05************ 
LOGBITB FK 

*-*-*•*-*-* •>*•>•>• 
PB1NI . 
NESSAGtt 0I27I* 
*D4 



*****j(S********** 

* SUBSTITUTE * 

* DASHES FOR * 

* UCB OB FCB * 

* IN 0I26I * 

* * 
***************** 



***** 
*FH * 
♦ C5* 

* * 



♦••♦a**** 

* BBTUBN 

* TO CALLER 

* 
************* 



****J3********* 

* SVC « • 

* LOAD SSBPCBXX * 

* *J4 * 

*************** 



*J<* 

XX* FOB 3211 

3 FOR 3203 

S FOB 5203 

80 FOR 3203-4 

FOB 3203-5 
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Chart FM. SYSBUFLD - Read Statement and Print on SYSLOG and SYSLST 
Refer to Chart 06* 



**** 
* »•» * 



***** 1********* 

* * 

* SYSBUFLD * 

* * 
*************** 



LOAD 

BASE 

REGISTER 

*************** 



NOTPBNf X 

***A2************ 
UNITPUB PB 

*-*-*-*-*-*-*-*-* 
GET ADDRESS 
* OF SYSLOG PUB* 

***************** 



**C2******* 
• SET UP TO » 

* CANCEL IB • 

ISSUNSG 

* BOUTINS • 
» *C3 * 

*****«**•*« 



**** -• 
*PO * 
* Kb *.X 



*C3 

hodifie: 

FROB BAI 
CANCEL 



CP 

bllklli 111 IF 

LOG RESPONSE 
REQUIRED. 



INSTRUCTION 
BXCP TO 
" BAL. 
IS 



**Bi|******* 

* SET * 
* HBKBG2 TO * 

• UCB LOAD ADDB * 
•FOB UCB LOAD * 

* "' u * 
, *********** ■ 



CO 


*. 








* 


* 


* 


NO 




UCB 


LOAD 


* 


*.. 


• 


*. 


> :' .♦ 








* 


.* 






X 




* YES 




***** 



* GET DEVICE 

* TYPE ZONE 

* OF SYSIPT 

* 

************•***: 



*****£ 1********** 

* IP SYSIPT * 

* ON HOPPER 2 * 
•OF CARD READER** 

* CHANGE CC • 

* IN CCH * 
***************** 



**** 
READlN X 

***D2************ 
READIPT FP 

***..«..*. *.***.*.* 

READ 
• A CARD * 

***************** 



EOF 
**. .** 



***Di|*********** 

AGAIN FQ 
«-*-*-*.*.*.*.*_« 



****gj********* 

* SVC 14 • 
..X* BOJ • 

* * 
*************** 



.* ARE t • . N 

•.piasr 3 chars.*. 

♦ . »SYS« .» 

*. ' .*' 



X 

***** 
*Fq * 
• gj* 



.* SYSIPT 
. ON, DISK OR 
•.DISKETTE . 



*****£ 1********** 

• * 

• ^ SET PTR • 

• TO PERTINENT * 

• CCW • 

• * 

*•**•*****•*••*** 



** LOG *. MO 
COBBAND .*... 
*. ACTIVE .* 



***G2«**********> 
TYPBXCP FQ 

*•«.*•* ,*-*.*..*_* 

PBINT A CARD 
ON SYSLST * 

*************** 



NODASDIP X 

***Hf ************ 

UNITPUB FH 

*-*-*-*-*-***-*-* 
GET ADDRESS 
* OF SYSLST PUB* 

***************** 



.* 
.* 

YES 



**Ki******« 
♦SET CONFIG * 

* SN BIT 6 ON 
SHOWS SYSLST 

• A PRINTER 

* ' * 

*********** 



* IS * 
SYSLST 
A LINE 
PRINTER 



X 
.*• 

J2 *. 
* 
OPTION 
LOG IN 
EFFECT 



***K2*»********»* 
EXCP FU 

*.*.*.*.*-*.*-*_« 

PRINT CARD 
ON SYSLST • 

*********** 



**H3******* 

* • 
ZERO CONFIG * 

SB EXCEPT * 
FOR BIT 5 * 

• * 
*********** 



***J3****«******* 
AGAIN FQ 

•-*-*-*-*-*-*-*-* 
POINT TO 
* OPBBATION FIELD 
ON CARD 
***************** 



uNir 

SYSOQO Tl 
SXS2H0 



• ***HS********* 

* . « 

* UNITPUB • 

* * 

*************** 



*FQ • 



*PQ • 
* 32 *. 



• A2 * 

• ' * 
**** 



***• ■ 
TYPRTURN 

**K3******* 

• SET * 

• HRKRG2 TO *' 
* FETCH TO A DDR 
♦FOR FCB LOAD * 

* * 
*********** 



**** 

* , ■' * 

* A4 * 



***** <>********« 
« RETURN 
* TO CALLK8 
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Chart FN* SYSBOFLD - Check for Valid Device and Command 
Refer to Chart 06.. 



♦pa * 

* H4* 

* * 



**** 

* * 

* m * 

* * 
**** 



CHKTYPE X 

*****Al ********** 
♦UNITPUB FH* 

*-*-*-*_*_*-*-*-* 

* GET 1D0B OP * 

* PUB POH UNIT * 

* SPECIFIED * 

***************** 



A2 + 
PB11 



PHASE 
NAHE > d 
. BYTES 



**** . 


. 


* * • 




♦ C1 *.x. 


. 


* * 




**** 


X 


TYP2BTRN X 


.*. 


**ci******* 


C2 * 


* * 


.* 


* SET HBKBG2 * 


IBS .* 


* TO FETCH PCB * 


....*. 5203U 


* LOAD RTN * 


. *. 


* * 


*. 


*********** 


*. .* 



**C3******* 

* * 

* SET DP * 
* EBBOB HBSSAGB * 

• 1B01I * 

* « 
*********** 



*PU * 
* D2* 



*. PCB LOAD 



*. YES XYE 



**E1******* 

* * 

* SET UP * 
* ERROR MESSAGE * 

* 1B01A » 

* * 
*********** 



***F1* 
PRIMTNSG PQ 

*.*.*.*.*.*.*.*.* 

PBINT 
* ERROB HBSSAGB* 

***************** 



****Q I*********: 

SAVE N£H 

OPBBATION 

TIPS 

*************** 



14030 

.** 

*. .* 

* YES 



*P2*********< 



*************** 



**G2******* 

* * 
♦SET OP ERROR * 

* MESSAGE 1B10I 
* FOB 14030 * 

* * 
*********** 



**B3******* 

* * 

* SET OP * 
.X* EBBOB HBSSAGB 

* 1B11D • 

* * 
*********** 



***P3************ 

PBIMTHSG PQ 
*-*.*.*.*_*.*.*.* 
PBINT 
* BBBOB BESSAGB* 

***************** 



.* IS 

BEPLY 
*. IGNORE 



*PQ * 
* C2* 



SAVE 

PHASE 

NAME 

***************: 



♦ FQ * 

* C2* 



• *C<»******* 
♦SET CON PIG * 

* SW BITS ' 
2*7 FOB CARD 

* LOAD AMD 

* NO HSS * 
*********** 



***** 
*PP * 
* A1* 



**gll********* 
BBAMCH * 
VIA * 
HBKBG2 * 

************* 



***** 

♦ PQ * 

* D2* 



****H3*********< 

SAVE 

NBH SYSTEM 

UHIT 

*************** 
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Chart FO. SYSBUFLD - Load UCB 
Refer to Chart 06. 



****A1********* 

* * 

* UCBLO&D * 

* * 
*************** 



**** 
*FP * 
* A2 **X 



**** 
UCBLOAD 

**B1******* 
* SET UCB * 

* OP CODB 
* SET CC« TO 

* PROCESS 
♦DATA CHECK * 

*********** 



*****Bi»********** 



***************** 



CI *. 

.* * 

BLOCKING 



**C2******* 

* * 

* ALLOH 
.X* BLOCK DATA 

* CHECKS 

* * 
*********** 



*****Cl|********** 



***************** 



D1 ♦ 

* 

PHT1 



* BESET * 
.X* FOLD COMHAND * 

* TO HOOP * 

* * 
***•***•*•**•***« 



**£3******* 

* * 
* CHANGE COM 

.X* COLOAD UCB 
•HITH FOLDING 

• * 
*********** 



*•** 

* * 

* HI * 

* * 
**•* 



PRT1F 

*****; 1********** 

* NOP UCSGATE * 

* CCH BODE * 

* UNFOLD * 
♦OP CODE IN CCH * 

* • 
***************** 



X 
.*. 

G1 *. »*G2******* 

.* *. * * 

.* FOLD *. YBS * ALLOH 

*. REQUIRED .* X* FOLDING 

*. .* * 

*. .* * * 

*. .* *********** 

* NO 
**** 

* * . 

* HI *.X. 

* * .X 

**** x 

CKHSG .*. 

HI *. **H2******* 

.* *. * • 

.* HBSSAGE *. NO • INITIALIZE 

*. SUPPRESSED .* X* CCH TO WRITE 

*. .♦ * HESSAGB 

*. .* * • 

*. .* ******•**•« 

* YBS 

!x ". 

x 

***• 

* * 

* B« * 

* * 
**** 



*****D it********** 

• * * * 

* * SVC «» * * 

♦ * LOAD UCB * * 

* * PHASE • * 

• * * * 
***************** 



*****gil********** 

* * 

* GET * 

* END ADDR OF * 

* LOADED PHASE * 

* * 
***************** 



**pit******* 

* SET * 
512 BYTES 

H1NINUH 
LENGTH 

* * 
*********** 



PRT1 

.** 

*. .• 
* YES 



•*3i******» 

* SET * 
^^^0 BYTES 

HiNinua 

LENGTH 

* * 
*********** 



**U5******* 

* HOVE • 
VERIFY HSU 

TO OUTPUT 
LINE 

* * 
*********** 



***** 
*PQ * 
* C2« 
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Chart FP- SYSBUFLD - Check Optional Operands 
Refer to Chart 06- 



REFERENCES 
TO FPA1: 
PMB5, FND4 



* MRK8G2 * 

POINTING TO 
♦.•FETCH2' .* 



***** 
*FO » 
* B1* 



****A3********* 

* * 
« BEADIPT * 

* * 

*************** 






FOLD, 
NOCHK, OR 
. MULHSG . 



IBS XIES .* 



*****Q1********** 

* * 

♦SET APPROPRIATE* 

* BIT IN * 

* CONFIGURATION * 

* * 
***************** 



*****£ 1********** 



***************** 



F1 *. 

.* * 

FCB LOAD 

**. .* 

*. .* 
* NO 



*****g2********** 

* * 

* POINT TO * 

* NEXT OPBRAND * 

* FOR NESSAGB * 

* * 
***************** 



* SET OP * 
.X*INVALID OPBRAND* 

* HESSAGE * 

* * 
***************** 



*****Q2********«* 

•PRIHTBSG FQ* 

«-*-*.*-*.*_*.*.* 

* PRINT * 

* ERROR HESSAGE * 

* • 
***************** 



.X.X.. 

X 
**** 



**** 

* 
' D5 * 



*****g3********* 
* 

* UPDATE 

* RECORD 

* ADDRESS 
• 
**************** 



*****g(l*********i 



****************i 



• **• 

* * 

* OS • 

* * 



***************** 



****B5********* 

* * 

* RBTUBN * 

* * 
*************** 



***Q3*********** 

* * 

SVC 

* * 

***************** 



***GU************ 

* * 

SVC 103 

***************** 



*****H3********** 



***************** 



****j3********* 

* * 

* RETURN * 

* * 
*************** 
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Chart FQ- SYSBUFLD - Subroutines 
Refer to Chart 06. 



****&1 ********* 

* * 

* ISSUHSG * 

* * 
*************** 



****A3********* 

* PRINTHSG * 

* BXCP * 

* *hH * 
*************** 



SUBROUTINES PRINTHSG 
AMD BXCP HAVB BBBN 
DOCUHBNTED ONCE, 
BECAUSE THEY HAVE 
IDENTICAL LOGIC. 



•***&;>********* 

* * 

* typexcp * 

* * 
*************** 



ISSUHSG X 

***B1 ************ 

PRINTHSG PQ 

*.*.*.*.*.*.*.*.* 

PRINT 
* ERROR MESSAGE* 

***************** 



RDRESP X 

*****C 1********** 

* BLANK READIN * 

* AREA, SET CCM * 

* CODE TO READ * 

* FROM SYSLOG * 
« * 
***************** 



REFERENCES 
TO FQC2: 
FNA5, FNB<I 
FOJ», FRR2 



NOPMSE X 

**C2******* 
* SET UP * 

* FOR INVALID * 
* PHASE HBSSASB 

* 1B03I * 



**** . 

* * . 

* B3 *.X. 

* * 
PRINTHSG 
EXCP X 

*****B3********** 

* * * * 

* * SVC * * 

* * EXECUTE * * 

* * I/O * * 

* * * * 
***************** 



*********** 



REFERENCES **** 

TO 

FNC3, 



***************** 



**** 
PRINTBR X 

***D2************ 
PRINTHSG FQ 

*-*-*-*-*-*-*-*-* 

PRINT 
• ERROR HESSAGE* 

***************** 



****«[)3********** 

* * * * 

* * SVC 7 * • 
.* * NAIT FOR * * 

* *COHPLBTION * * 

* * * * 
***************** 



****B<»********* 

* * 

* AGAIN * 
*************** 

**** 



**** 
AGAIN X 

*****C<* ********** 

* * 

* INCREMENT * 

* TO NEXT * 

* CARD COLUHN * 

* * 
***************** 



TYPEXCP X 

***B5************ 
BBtfEBSB FQ 

*.*-*.*.*.*.*.*.* 

SBT DATA LENGTH 
* IN CC« FOR * 
PRINTING 

***************** 



* SET UP * 

* TO PRINT * 

* ON SISLOG * 

* * 
***************** 



****£2********* 

* SVC 6 * 

* CANCEL * 

* * 
*************** 



****S3********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



TRTDO 

*****£«******** 

SCAN FOR 

NON-BLANK 

CHARACTER 

(THT) 

*********«*****! 



♦SET UP INVALID * 

* CONTROL CARD *. 

* HESSAGE * 



•****H )*********< 
* 

* CHANGE CCH 

* TO NRITE 

* COHHAND 
* 
**************** 



.* IS 

REPLX 
*. CANCEL 



****K1********* 

* RETURN * 

* TO CALLER * 

* • 

*************** 



***** 
*FH * 
* c»* 



NOTYPB X 

**G2******* 

* SET UP * 

* FOB INVALID 
* TYPE HBSSAGS 

* 1B01A 

* * 
*********** 



*****B2********** 
♦ISSUHSG FQ* 

*-*-*-*-*-*-*-*-* 

* PRINT HBSSASB * 

* AND READ * 

* ANSWER * 
***************** 



****J2********** 



>**********•***** 



***** 
*FH * 
* K3* 



REFERENCES ***** 
TO FQG3: * * 
FHEM. FHHU * ** 



**G3******* 

* SET UP * 
FOR INVALID 

SYSUNIT 
HESSAGE 

* 1B02A * 
*********** 



*****H 3********** 
•ISSUHSG FQ* 

*-*-*-*-*-*-*-*2* 

* PRINT HESSAGE * 

* AND READ * 

* ANSNBR * 
***************** 



*****J3********** 



***************** 



.* *. 








****P5***** 


.* ANT 
. NON-BLANK 
*. SCANNED . 

*. .* 


* 
* 


. NO 
.*..«. 


* REVERSE 

* 
*********** 


*. .* 
* YES 






X 

***• 

* * 

* C4 * 

* * 
**** 






X 

****G<l******x 
RETURN 
TO CALLER 




* 
* 
* 


REVERSE X 

*****Q5***** 

*ConPUTE LBN 

* OF DATA 

* ON CAttD 



*************** 



****HU********* 


* * 


* FETCH2 * 


* * 


******** 


******** 


**** 




*FP * 




* A2 *.X. 




* * 




**** 




CH2 X 


*****jil********** 


* * * * 


* * SVC 4 * * 


* * LOLD * * 


* * SYSBI 


IFF1 * * 



***** 


*FH * 


* B<t* 


• * 


* 


SYSRTURN 



***************** 



****K«********** 

* EXIT TO * 

* SYSBUFF1 * 

* * 
*************** 



STORERJ X 

**H5******* 

* HOVE DATA * 

* LENGTH INTO 
* CCM FOH LOG 

* PRINTING 

* * 
*********** 



**** J !>********* 
RETURN * 
TO CALLEB * 

* 
*************** 
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Chart FR* SYSBCJFF1 - Load FCB (Part 1 of 2) 
Refer to Chart 06.. 



*•«« 

• * 

♦ A2 * 

• • 
**«• 



♦••• 

* • 

* AJ * 



* * 
« A* • 

* * 



* At) • 

* * 



ni lt 



• mm 

* « 
•••* 



.*• 
• 4 

top 

OUHD 

• .* 
• NO 



J. 

82 *. 



: "eHIb :• 

•.EXCEEDED^.. 



NO .* 
* ♦. 32 ° 3 



**B3»**«»«* 

* r.3'U ' 

« 192 



• 


E2 • 




# 






* 


• 










«•«* 
















X 












4*. 












C2 *. 












• * 










« 


END 
OP CARD 


♦ , 


MO 




• 






*.... 


« 


» 


• 


*. • * 
** ** 
• t£S 


• 


-i.. 



**„. •• • 

*. .* X 

* *** m 

I • H2 • ! • A2 * 

'. * * ,. * * 

. *#•• . * *••• 

•••01****»*«»*««* ••••• & 2**«****»*« 

•I!*?*.*.*-*-*.*-* * poiMT TO * 

READ X * BgttllMIKG OF * 

* A CABD • • TBXf CABD * 



X 

El *. 



• £2 • 



***£2******* ***** 
PilMTBSG ' PQ 



<?'s?*Ij5».>" ? «. khu-us. 



* • 

* SET *, 
♦ EUPPEfi LENGTH* 

• * ISO * 

• * 



X 

4*. 

CI *. 

::*»S!«,.*;: 

**. .** 
*» .* 
• *B* 

*«H1******* 



Hi 



**»9#P£ft > *f£Ni 
• * 25S 



if" 8 ™.* 



* * 

* H2 • 

* * 



Lo *srs^Hi*i..*..*.* 



*HJ 

CO 



tB « B ; Mf" 



»*»•••*****•#*•* 



•***«j2********** 



MOP 
PBINI 

CC» 



• POBHS * 

» LIMBS PBB 
*. INCtt .* 



• SET FOB 


• 


* tt LIMBS 


• 


* PKB INCH IN 


* 


•SHORT PCS LOAD 


• 


* , ■ 


• 



.*. 


SHONTFCB X 


CO *i 




**cs******* 


.* *. 




*. • 


.* DOBS * 


TBS 


• SBT COM * 
* tO 00 PCM * 


•. YOWER SPOOL 


*.... 


*. PRINTER .* 

*. .* 

♦ . .* 


• 


* LOAD • 
*********** 


X 


• NO 


* • 

* G5 * 

* * 
•*•* 




X 






**. 




A 


D* *. 




***DS************ 


.* *. 




BXCP PQ 


.* P8T1 * 


IBS 


*-•-*-•-*-*-*-*-• 


*. PBIMTBB 


*••• • 


LOAD 


*. .* 




* SMOBV PCM • 


*. '■' '** 






*. .* 


X 




* MO 


**** 
• * 








* OS * 








• • 








••*• 


X 

• ' • 

• SET CC« * 
* TO ^KIP tO * 

* CHANNEL 1 • 



* INITIALIZE ' 
• CCMS TO BEAD 
•PCAB AND PCM < 

• ■ * 

•*•***•**»« 



•**64************ 
BXCP PQ 



**•••*•«#*«****** 



*«***uit********** 



********** 



***FS************ 

BXCP Ptt 

*.«**..•. ***,.•«*.* 

SKIP tO 

* CHANNEL 1 * 

**•**«******•**•*. 

' *•»• * 

* * • 

****■' ♦. 



DErEBfl 
THE *' 

op th: 



m : 



***************** 



• 5201 •• MO 

# OB 52Q3U # »*... 


* * SVC N * • 

* * LOAD PCS * • 

* * PHASE * • 










.* PCAB ^. 

*. AT POSITION .* 

♦V 1 .♦ 


*» • ■■ i* 


* • • ♦ 










*. .* 


*• .* 


**»•*»«•******••* 










• . ' . * 


* YES 


•*** * 

* ' ' ' * . 

* K2 *.X. 

* * ; 
*#*• x 










* MO 














**Kt****«*« 


.*. 

K2 *. 




SOLJB 


*»*K3**»***»*«* 


N8XTPCB X, 


* " • 


k* *. 




• 




• 


* DBCBBNIMB * 

. . . . **SPACES TO BEACH* 

• CHANNEL 1 * 


n*if3|MM% 


• * *• 

*. *H3 .* 

*. .* 


to 


* 
* 
• 


"WiB" 


*X«. 

* 


• ■ ■> ■ \ • 


*. .* 




• 




* 


* » 


' 4 


* TBS ••••* 










!x.. ........ 


«!•« 


* C2* 

* 




X 

*•** 






*§** 




• * 


* • 






• » 






• 13 • 


* A» * 






* A5 * 






* * 


• * 






* > # 






• ••* 


*«*« 






•♦♦• 







• BBSTOBB 
.X* CCMS POB 

* FCB LOAD 



**JS******* 



*•«*****«*# 



♦ PS * 

* k\* 
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Chart FS, SYSBUFFil - Load FCB (Part 2 of 2) 
Refer to Chart 06. 



***** 

*PH * 
* J5* 



11 *. 

* 


2245 


». .* 

* IBS 



***B1************ 
BXCP ¥Q 

♦-♦-»-♦ - ♦ - » ■■ ♦ - » - ♦ 
DO FCB 
LOAD OBLI * 



* A2 * 

PBT1 



**B2******* 

* * 
CHAXB 

ALXGMMBMT 
CCWS 

* * 
*********** 



************ ***** 



**0|******* 

* • 
SET CCB 

TO OUTPUT 
TO SISLST 

* • 
*********** 



IKS .* SISLST ♦. 


.* DOBS * 


...*. A PB1MTEB .* 


*. POWER SPOOL 
*. PBIBTBB .* 


*. .* 



**F1******* 

* SBT CCB * 

AMD CCB 

TO OOTPOT 

TO SISLOG > 



POT PHUT 

CCB ADDBBSS 

IB CCB 

* * 

*********** 



*****P2********** 

* * 

* PBEPABB * 

* MESSAGE TO * 

* OPERATOR * 

* * 
***************** 



**G2******* 

* * 
CflAIB 

BEAD BBPLI 
CCBS 

* * 
*********** 



***B 1************ 
BXCP - FQ 



***************** 



*****J1********** 

* * * * 

* * S»C 4 * * 

* * LOAD * * 

* * SXSBOPLD * * 

* * * * 
***************** 



****K 1********* 

* EXIT TO * 

* SXSBOPU) * 

* * 
*************** 



***jj2************ 
PfilBTHSG ^ FQ 



***************** 



*****H 3* ********* 

♦ PBBPABB • 

* PBIBTIIG OF * 
.X* TEBXFICATXOB * 

♦ MESSAGE « 

* * 
**** ************* 



***J3************ 

BXCP FQ 

*.* -*-*.*-*-*-*-* 

SPACE 2 
PMIBT MESSAGE* 
-IF BBSIBED 



*****K2********** 

• * 

* PBEPARB • 
.* MESSAGE TO • 

• OPBBATOB * 

* * 
***************** 
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Chart SA- $JOBCTLA - Initialization (Part 1 of 2) 
Refer to Charts 07 and 08. 



»***m********* 

XJOBCtLA * 

* 
*************** 



JOBCTL X 

*****B1 ********** 

" INITIALIZE * 

BASE • 

REGISTERS • 

•H5 * 

* 
**************** 



***«*C1 *•*****•«* 
♦MTNCNT x GU* 

*.*-*.*•*.*.*.*.« 

* SEIZE • 

* THE SYSTEM * 

* « 
***************** 



****Dl*****«**«* 

5ESET • 
NAME * 

• 

* 

**************** 



• ♦**' 

* * 

* A2 * 



*****42* ***»*» *♦* 
•MOVE PICL FROM * 
•PIB.TBL FOR ALL* 

* PARTITIONS * 

* TO LOC. FICLS * 

* *K1 * 
***************** 



•••*B2*»* ••*•**' 

SET 

SYSTEM 

FICLS 



**• 



*****C2********** 

* ' • 

* SKT NUMBER • 

• Or PARTITIONS * 

• INTO NUHPARt * 



* ****D2******<**** 

* INSERT PUB- * 

* OHNER BIT FOR * 

* CURRENT PART. * 

* INTO OCflASC ♦ 

* * 
******** ********* 



*****B2********** 

• SET SYSLOG- ♦ 
♦IDENTIFIER FOR * 

* CURRENT PART. * 

• INTO PIB * 

* ■ * 
. ***************** 



* BJ • 

* * 
**•* 



LDBNT X 

*****(} 3********** 

•LOGCHK GL* 
*-•-»-*-*-»-*-•-* 

* SET SfSLOG * 

* ASSIGNBBNT * 

* SNITCH * 
**•**•***•*•***** 



yes .* is a ^ .< 

...*, PROCEDURE 
•^EXECUTED .' 



D3 *. 

.* *• 

.• IS A * 

JOB IN 

*. PROCESS .* 



**£3******* 



********* 



• AH • 




♦ Kb • 




* * 




* * 




**«* 




*••* 
X 




NOSVAIPL X 




• •. 




*****AI|********** 


kb •. 




* 


• 


.» *• 




• SAVE ALL 


* 


. • *JOBACCT * 


. NO 


• JOB CONTROL * 


*. CANCELED 


.*.... 


• REGISTERS 




•• . * 




• 


• 


•» . • 




************** 


•*• 


*. •• 


X 


• 




* YES 


• •**• 

• GB • 

• A1* 

* * 
* 


. 




ACCTIGN9 


X 




X 




«****Q| t ********** 


*«***B5********** 


♦llTNCNT 


GU* 




* 


*-*-.*-*-*-♦«.*. 


*-• 


* LOAU POINlER 


• 


• RELEASE 


• ' 


* TO SJOBCTLN 

• INTO POINT 1 


* 


• SYSTEM 


* 


* 


• 


* 


* 

X 

***** 
•GU • 


• 


X 




* BJ* 






*****Di|********** 
•MTNCNT GU* 

*•*.*.*.*.*.*•*.* 

• SEIZE * 

• THE SYSTEM * 

• ■ ' * 
***************** 



*****Et4********** 

* * 

* RESTORE ALL * 

* JOB CONTROL * 

* REGISTERS * 

* • 
***************** 



.-• IS 
.» SYSCLB 
BEING 
*». OPENED 



*****61 ********** 

* RESET SXSCLB * 

* OPEN FLAG* • 
•RESET JIB 6 PUB* 

* POINTERS FOR * 

* SXSCLB * 
***************** 



PICNIC X 

*****H1********** 

♦Move nicl froH * 
•pib tbl for all* 

* partitions • 

* to loc nicls * 

* , *K1 . * 

***************** 



• X2 * 

* * 

*♦** ■ 



THE FORMAT FOR LOCS NICLS ♦FICLS 

ETC.... 

NICLS "" " " "~ ~~ " 

FICLS 



*****P2*********« 

* INSERT * 

* REVERSE * 

* OF OCHASR • 

* INTO NCMASK * 

* * 
**•*•••*****•***« 



*****(j2********* 

* SET OCHASK 

* • AND 
« NCRASK 

* • 
* 
**************** 



•***H2*»«*»*»*» 

RESET 
COM REG 
FIELDS 

•***♦*******•*• 



*****P3********** 

•DSKIRT GP* 

*.*.*.*.*.*.*.{.* 

* INITIATE * 

* DISK SUPPORT * 

* * 
***************** 



.* JOB *. 
.•ACCOUNTING *. NO 
. INTERFACE .*.., 
*. SUPPORT .* 



**6«******* 



SET BRANCH 

rCCTBRI* T^ 

PROCESS 



•ACCTBR1* TO • 



• A«» * 

* • 
**** 



****HI|*********' 

ISSUE 
MACRO 
GET J A 

****«**********i 



X 
.». 

J«» *. 



IPL 

SNITCH 

ON 



AS * 

* 
***• 



IF NOT ALL 



***«*Kii*********' 



* TABLE ' 
**************** 



ACCTIGN9.X. 



BASHG1 - SET TO THE 
JOB CONTROL ORIGIN 
-BASVCT-. THIS REG 
ALSO USED AS A COMMON 
BRANCH REG TO THE 
CONXKOL STATEMENT 
READ BOUT IRK* 

BASRG^ - POINTS TO 
BEGINNING ADDRESS 
OF OVBRLAf AREA 
-OVRWCT-.NTHIS IS ^ 
AREA WHERENJOB CONTROL 
PHASES *JOBCTLD t 
♦JOBCTLG, AND SJOBCTLJ 



ARE LOADED. 



•GB * 



Program Organization 155 



Chart SB. $JOBCTLA - Initialization (Part 2 of 2) 
Refer to Charts 67 and 08. 



BBPBBBNCES ***** 
TO GBA1: * * 
GAA5, GAtth *« •• 



TSTPAUSB .*. 
01 
.* IS 
YBS .* PAUSE SH„ 

Bit 

**. .** ' 
* NO 

'.1... 



81 



*. 



HAS 

.•LAST IHPUT *. HO 
. OH SYS LOG .*. .. 
*.COBBBG*S6.* 
*.BIf 2** 



* YES 



F1 *. 

.* BATCH *. 
* COHBANO * 

JOST ISSUED 
8B6*§9.« 



***** 
*GC * 
* B2* 



COHTBOL 

JOBCTLb 

**»2******* 



*.C0HBB6 
♦.BIT 



* HO 



BESET 

BATCH IHIT 

FLAG 

* * 

*********** ' 



* SBT 

* PAUSE SWITCH 

* OFF 

* * 

*********** 



*****H1********** 
^INITIALIZE * 
i-LOAD * 



I/O 

DEES 



*****j i********** 
•EXCPBG GP* 
*.*-*_*..*_*.*..*.* 

* DISPLAY HSG * 

* MIOOA READ* * 

* FOB COMB.* ♦ 

***************** 



***** 
*GC * 
* A1* 



. * JOB *. 
NO .*ACCOUHTING *. 

,..*. IHTEBFACB . 
•.SUPPOHTBD.* 



PABTITIOHS 
*. ACTIVE .' 

*. .* 



*****J2********** 



•JLH COHflON TABLE* 

• * 

***************** 



ACCTLVl fc 

**H3******* 
* TOBH OFF • 



. .X. COUTH OL 
X 

***** 
♦GC * 



*********** 
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Chart GC. SJOBCTLA - Read Control Statement 
Refer to Charts 07 and 08.. 



* TO 
** GBJ1 
• GTH3 
GBB2 



GCA1: 
\ GNH3 



ACTBSP I 

**1 j******* 

• SET IB PUT • 

* FBOB SXSLOG * 
• SB OB-CQBBBG 

* IMP 56 * 

* BIT2 OPP * 
*********** 



* B2 * 

* * 
**** 



GBE1, GBK2 • * 
GDB3, GBK3 * * 

**** 
COBTROL 



•ATBCUU Gf* 

•-*-*-♦-*-*-*-*-* 



.X*.BXCEPTIOB FOB.* X'lRFQRR OP 



TOB* 



**•* 

• * 

* B2 * 



•****D j********** 

•USEREXIT G8* 

*-*-*.*.*„*_*.*.* 

* GIVE COBTBOL *X. 

* TO EXIT • 

* • 
***************** 



aCLODB 
T BEAD 



.*. 

02 *. 
.* *. 
BO .♦ IBPOT *. 
...*. PBOR SYSLOG .* 



FORE OPERA' 
ABOUT OBIT 

* EXCEPTION * 

***************** 

**•* 

* * 

* C3 *... 

* ♦ 
**•* 

COBT3 X 

*****C3********** 

*PTBST GB* 

*-*-*_*.*.*..*„*.* 

* TBST FOB BOJ. • 

* BOP. CANCEL t • 

* SYSBDB * 



.* IS 
*. COBDITIOB 
•BOP OB BOJ. 1 



♦*** 

* * 

* B5 * 

* * 
•**• 



IS *. 
STATEMENT .* 
. BLANK .* 



*********** 



••*•• 
•GO * 

vr 






****************i 



*****05***»****** 
♦SCAHEM GB* 

*-***.*.*.*.*.*.* 

•GET 1ST OPBBABD* 
•POST COiD CODE * 
* POB STO * 

**•**•***••*«••** 



™M, 



BRAR 

• COBTBOL IB 

• SJOBCTLJ 

•**••***•*****• 



**B2********* 



************** **: 



.•COBDITIOB IBDB. 
*. OB CNCL .* 
*. .* 



*****Bl| ********** 

* SBT POINTBB * 
TO BBBOB • 
GB • 



BBSSAL. 
1C10* 

-***i"-~ 



***************** 



X 
«•••* 
•Gf ♦ 
* F3* 



**f2******* 






F3 # **. 




• * 


* * 






.* *. 




• 


•SBT FLAGS FOB* 
•LIST LOG OUTPUT * 
• IB JBCSNB • 


. BO .* INSERT *. 
i...*. OB OfRBQ. .* 
*. POSTED •* 




OEBRTN 






* * 




*. .* 






*****•*•*•* 




X *. .* 

**•* * IBS 

* ♦ 






• 




♦ B3 * 

* * 






i 
.♦. 




**•* 








X 






G2 *. 




•••**Q3********** 






.* *. 




*BBADOV GB* 

rss *-*•*-*-«.*-*-*-* 






.* HODIFIEi *. 

*. STATBBBBT . 

•. PBBOIBG .* 


1 






*. 


* READ * 

* OfBRBRITB * 

* STATBBBNT • 

I ***************** 






• • .* 








*. .* 








• BO 




♦*** 










* * *•**' 

* J3 * * * . 

* * * B3 *.X. 






• 




**** * * 
*•** 






X 




COBT1 X 






*****B2********** 


*****B3********** 
♦BLIiDT GB* 






• 


• 






• CLEAR 


• 


*-*-*.*.*.*.*.*.* 






* BUFFER AREA 


* 


...X* BEAD * 






* 


* 




* . STATBBBBT * 






* 


* 




* • 






***«***»***••**•* 




***************** 






- 

* 






■ **** " 

* * 












* J3 *.X. 












* * . 






X 






**•* 






.*. 






COBTS X 




.*. 


J2 *. 






**J3******* 




J» *. 


.* *. 






* * 




.* PROC. *. 


.* IBPUT *. 


SXSLOG * RESET * 


BO 


* STATBBBMT 

IB SPITE OF 
*. CANCEL . 


• FROB SXSLOG OB. 
*. SYSRDR .* 


*. 




* STBT-PBBDIBG * 
* FLAG * 


...*, 




*. .* 




* • 




*. .* 


*. .* 




*********** 


X 


• • .* 


•SXSBDR 




• 


••*• 

* * 

* B2 * 


* XB$ 


X 






* * 




**•* 






*•** 




* * 




X 




X 


* C3 * 




.*. 


TSTTXPB .*. 


• * 




K3 *. 




Ktt *. 


♦*** 




.* *. 




.* *. 






YES •* DELETE *. 
...*. FLAG SBT IN .* 
*. JBCSW6 .* 


BO . 


• VALID 
FORBAT FOB 






...*. 








*. STBT . 






*. .* 




*. .* 






X *. .* 


XCHKCBL ♦ . .* 






***•* • NO 


***** 


* YES 






*GD * 


•GB • 








* F1*TSTL0G . 


♦ 82* 








• * x 


* * 


X 






* **** 


* 


***** 






* * 




• GD • 






* B5 • 




* C1* 






* * 




* * 








**** 




* 



*****f 5*********1 

* GET SYNTAX 

* bits FOB 

* FURTHER 

* SYNTACTICAL 

* CHECK 



X 

***** 
*GN * 
* D2* 



PIBD VBBB 

IN COBBABD 

TABLE 



*****JS********** 

♦USBRBXIT GE* 

*.*_«.*„*-*.*.*.* 

* GIVE CONTROL * 

* TO EXIT * 

* * 
***************** 



K5 *. 

.* INPUT *. 

.♦FROB SXSRDR*. 

. AND CANCEL .* 

*, POSTED .* 
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Chart GO- $jobctla - Read Control Statement and Phase Vector Tabie J-op^up 
Refer to Charts 07 and 08.. 



TABLE A BOOT PHASE (A) 

♦sthnt" ''ipdHir ** chart * 



***** 
*GC * 

* Ka* 



IS 

OPERAND 

UCS 



REFERENCES 
TO SOB 3: 
GAB5, GQD3 


***** 

* , * 

* ** 
* * 




■ • . . ' 


x 

EXIT .*. 

B3 *, 

. * . *. 


TBS .* 
.. »*. 


DELETE* *. 
POSTED .♦ 


I **. .** 


X 

***** 


*. .*. 
• NO 


*GC * 
• B2* 

• * 




' * 
CONTBOL 


* 


*****C3********** 



♦**♦*. 

• LA ♦ 

• G3* 



**8«********** 



***************** 



. /♦ . CONTROL 

.. ** . CONTBOL 

IGNORE. IGNORE 

OVEND • OVEND 



THE SCAUR 2 SUBBTNi TO GET 
THE NEXT OPERAND. SCANB2 
EXITS BY BBfNCHING LIN" 1 
WHICH CONTAINS TUB . 
ADDRESS OF CONTBOL (GC81) 



Y$S 



*****D1********** 

* * 

* SUPPRESS • 

* OUTPUT OH * 

* SYSLST * 

* ■ • 
***************** 



♦HOVE BB. TABLE * 
♦DISPLACEMENT TO* 

• REG -POIHT2- * 

* * 
***************** 



****P2********* 




.* IS < 


* BBANCH TO * 


IBS 


.* BOUTINS 


•PROPER ROUTINE **.. 
* (TABLE A[ * 
****>********** 




, IN BOUT 




*. PHASE 




*. 



.♦TO BE LOG- *. LOG 
.GED OR LISTED.*.... 
*. OB SUP- .* 
♦PRESSED* 



.* REQUIRED 
*. PHASE 

*. LOADED 



FT *. 

* • 

TO BE 
BITTEN ON 
SYS LOG 

*.. .* 
*. •■*■ 
* NO 



.UNCLOG 

*****P2********** 

♦LOGOUT GJ* 

X *.**.*- *•*•*.*.*.* 

....X* LOG STATEMENT * 

* ON SXSLOG * 

* * 
***************** 



* TO BE 

WRITTEN ON 
*. SYSLST . 



*****H 1*«******** 
♦LSTOOT GJ* 

*-*-*.*.*_ «.*.*.* 

♦LIST STATEMENT * 

• ON SYSLST * 

* . * 
***************** 



..X. 

X 

**** 

* * 

* 83 * 

* * 
**** 



*****G3********** 
*LBLOUTF QN* 

*„*.*.*,.«„*..*.*'.* 

* PUT OUT * 
♦VARIABLE LENGTH* 

* LABEL INFO * 
•***•*•**•***•*** 



.X. 

X 

**** 



* . JOB CONTBOL STITBHENT TABLE 
" *HHNT" , IH*s6lHOU , HNBjCHABTr 

*****Ctt********** *. ACTION ", ' * J * * * ACTION * " *PD* * .* 

* SAVE BEGIN * 

•ADDS. OF ROOT * .ALLOC -J .ALLOC . PQ . 

* PHASE-ADDR * . . . . . . , 

♦OF LOil CONTROL * .ALLOCR . J .ALLOCS . PB . 

* * 

***************** .tSSGN . D .ASSGN . JA . 

' IcANC|LT"G"icANtH*""NF , "l 

" ICATALB*I Vt J ,1 'ICATAL"*rpN'**, 

. * close* *.''d'*.cl&se**.*js"**. 
x ....................... 

**«**DU********** .DATA . J .DATA , BH . 

* BTNCNf GU* 

,.*_*„*.*.•-*-,..* .0mB . K .DLAB a QF . 

* RELEASE * ............................. 

* THE SYSTBR ♦ . DLBL . K .DLBL . OJB . 

***************** ' ovCDN * * * " i' * 1 6yCDN " " * ' HH " * * 

* .D»cop , *r'*F** , D5cup ,,, *HL* , r 

I *EHtHY"****J***ASTi6/N**"pD*** 

* .$6.r/&**'*G*"*E6j*"*V # "ND , *r 
*****E«»********** 786b*/*-""**G*'"pBNd"****Ns""* 

* * * * 

* * SVC 4 * * .BXBC ♦ B »EX«C . LA . 
** LOAD **.....,..,.,... ............... 

* * HE'JUIRED * * .EXEC PROC E .CALL . LP • 

* * PHASE * * ,.*......",. .,..,.., 

***************** .RXTBNT . K .EXTENf . QJ • 

* *H6LD** , . # *j' , lH9Li>** , "**r f • 

. IiNciup|! , *a**.iNCLuwB"p5 , '^! 

* *j6*r"***/*G**.JOB**"*r*lA***f 

•**«*fii********** . Lbltyp* . * *r* * .l&Lty*?* *.* «a* * . 

* ntncnt gu* 

*.*_*.., -*.*-*-*..* ,listio . f .listio . ha . 

* SEIZE * ........ t 

* THE SYSTEH * .LOG . J .LOG .PL . 

***************** i i%y * ' ' I ' * f * ' ' HA £* " * 1 ' NK " * .* 

i inic""yy f *kic""yH" m . 

........x. 

. .NOLO G . J .NOLOU . PK . 

I ,6pTI6N** ,, G** , 6 ,, H6N*^NG**. , 

X ,pAUSE* , ^ , " 1 JI* , *pjluSB*"^'PL** , 

****Qlt********* 

* EXIT * .PHASE . J .ACTION .PO . 

* PER TABLB * 

* * .BESET . F .BESET . HP . 
*************** 

.ROD . H ,BOD . RC . 

* BSTRT* * ',' ' *' ' .BSTRT* * ." QQ* " " 
.*SET** V *I , *J*"IsET , * ,, rpG'* . 

!siiE*'**"3**,siiE** t .*H*". 
. stop* * " . " * j * ' ! stop" * * . " P?|' * . 
. Hbl* " * I* * k * * ' HblV" * >* qb* * *. 

lTPiAB**. # *K" ? IfHAB"."QA**. 
" UCS* *"." j * ** UCS* * **. * PB* * *. 
.UNBATCH***F* , ,6eHcH*yHi**'. 

'. h»hi' ' '" ! " *a* * . «&si* ■* '* .* W "•■ 
,*w6i*****"*K**.v6i"*".*OA*". 

I XTENf * * . * * K* * I XTBNT* * r QG* * . 

* iONE* '■' * " * * J* ' *Z&f<8* * "*.' >H* " ;/ 
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Chart GE.. $JOBCTLA - PTEST and USEREXIT Routines 
Refer to Charts 07 and 08. 



•*** 
• * 

* A2 * 



**** 

• * 

* A« * 



•*** 

* * 

* Mb * 

* * 
**** 



***** |********* 

* • 

* PTEST * 

* * 
*************** 



PTEST X 

*****B1********** 

* * POST * * 

* * AJBBAPER) * * 

* * AS BRABCH * * 

* * ADDRESS * * 



* * 



***************** 



* BO 
**** 

* * 

* B2 *.X. 

* * - 
**** 

*****B2********** 

* * 

* BBSST ERROR • 

* BORBBB TO * 

* ZERO * 

* * 
***************** 



•****C2* ********* 

* POST * 

* ACC0BT4) * 



*********** ****** 



* J2 * 

* * 
•**• 



•****g<|********** 

* * 

* HODiri cc * 

* IF BBADBB IS * 

* RFCH/BFCO * 

***************** 



* * a*bxii* 

* * AS BBAKB * * 

* * ADDBBSS * * 



*****6 1********** 

* * 

* SBT OFFSBT TO * 
*/A BBTBI IB TBB* 

* COBHARD TABLE * 

* * 
***************** 



****E2********* 

* BBTURB * 

* TO CALL EH * 

* * 
*************** 



**P2******* 

* SBT PLA6 * 

* TO IBD1CATB 
.X* TBST IS 

* CALLED 

* * 
*********** 



*****62********** 

*6I?B COBTBOLTO * 

* EXIT * 

* • 
***************** 



**B2******* 



*********** 

**** 1 



•**«A3********* 

* * 

* JSBBBIIT * 

* * 
*** ************ 



*. 



***************** 

•BTBCBT GO* 

*_*_*_*_*_*_*_*_* 

* SBIZE * 

* TAB SXSTBB * 

* * 
*•***•*•*•***•*•* 



.* IS *. BO 
*. £SBB EXIT .*.... 
*. PBBSBBT .* 
*. -* 

*. .* X 

* IBS ***• 

* * 

* J5 * 

* * 
**•• 



*****C3********** 



***************** 



*****C4** ******** 

* • 

* SBT BBTOMB * 

* ADOBESS • 

* TO COBTROL • 



**** «DJ********** 
*RTBdllT_ # _*_*"5[*" 

* BBLEASB • 

* TitB SISTBH • 

* * 
**** ************* 



*.fc»AILABLB.* 



DSEBPTST X 
*****04***i 

•BSGOOT 



***************** 



* LIST THE * 

* STATEBBBT * 

* OB SI SLOG * 
**** ************* 



**P4* ****** 

• * 

IBDICATE 

OSEB EXIT 

AfAILABLB 



***************** 



*****63********** 

• * * * 

• * PASS * * 

• *CtflTROL TO * * 

• * JOBBIIT * * 

• * * * 
**** ************* 



*****B3********** 



**** ************* 



•****BS** ******** 

* * SfC 4 SET * * 

* * ADDBBSS * * 

* *OP BJOBEXIT* * 

* * IB S»A * * 

* * * * 



**C5******* 

* * 
•SAFE ADDBBSS 

• OP OSEB 
*EXII BOOIIBE 

* * 
*********** 



YES .* 800 TIME 
....*. AVAILABLE 
*. IN SWA . 



USBRBOXT X 

•*£5******* 

* IBDICATE * 

* BO USEE 
* Efc&Ott 

* PEBSEBT 

* • 
*********** 



**** 
USEBSKIP X 

•* ****<>* * ******** 



***************** 



OSBRSBIZ I 

*****e3********** 

•BTBCBT GO* 

*-*-*-*<-*-*-*-*-* 

* SEI&E • 

* THE SXaTEB * 

* * 
***************** 



* Bf» *.*. 



***************** 



*****J 1********** 

* SBT OPFSBT * 
♦TO /♦ BBTBI IB * 

* TUB COBBABD * 

* TABLE * 

* * 
***************** 



**J2******* 

* * 
POST 

COBDITIOB 
CODE 3 

* * 
*********** 



****J5********* 

* fiETUEM TO * 

* CALLEfi * 

* * 
*************** 



**** 

* * 

* P5 * 

* * 
***• 



.* 0?BBBBITB *. IBS 



PRIOR TO 


.*.... 


*. '* .*"* 






**. .*" 

* BO 


*!** 




* * 




* B2 * 


I 


* * 


**** 


**** 


* * 




* A2 * 




* * 




**** 





****K2********* 

* RBTORR TO * 

* CALLEB * 

*************** 



**** «g 3* *** *** ** * 

* • 

* BBSTOBB * 

* tiBGISTBBS * 

* • 

* * 
**** ************* 

X 

**** 

* • 

* A4 * 

* • 
**** 
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Chart GF« SJOBCTLA - DSKINT Subroutine 
Refer to Charts 07 and 08, 



♦•♦# 
* ' * 

* A2 * 

* " ■• 



* * 
« DSKINT * 

* . * 
*************** 



***»*|tU»**»****i 



*•*•**•****•**•* 



.* SYSPCH 
. ASSIGNED 
*. *B2 

*. .* 
♦ . .* 



J* 



* SXSLST ♦ 
_ ASSIGNED 



•CHKCiT GJ* 

•check available*. 
♦ bbcob5 coujt - 



ON 






***************** 



*#«*D 1*********i 

SAVE 
REGISTERS 

***************i 



***************** 



•***Fl*****«***i 



«*•**•*•**•**•*< 



*. PBQCESSING 



*****ni********** 

♦PRCIHIT GG* 

♦_#_»_*_«_»_♦_♦_» 



***************** 



TO A OASU D! 
EH TIHE ARE 
ID DURING IP! 



THE* RUST BE REASSIGN8D 
USING JOB CONTROL ASSGM 
STATBHBNTS. 



Jl 

* 
.* DASD, 

~ SXSTEH r~ 
•.SUPPOR 



:-8|iI|a8*5SWS : 

•- ... •' " * '• 
***************** 



***** 

:S8*S!J,..*,*J<!*' 

:****»!,§!§:£;*••: 



,.,...>.4i.X^ *^. 

NODSXS ■'■; X - - 

:. L IM*» , ."» 



:"i&tti%l* : 

* »G«I * 
*********••*••**• 



1: 



PRBVIQUS CHAIN FLAG 
HAS BBBN SAVED AT 
CHKJIB. ■■- 
ZERO THE 1ST 3 BXT8S. 

KI'iM'MSI 1 ' 

HOVE BRXT AVAILABLE 
JIB POINTER FROH PAVP 

IREBT JIB. 

FAVP BITH 



CRKJJ 



. *••***•******•*•• 



J, 

o«s 



m> 



*****pii********** 

j.jjjS, 



ftswn 



m 



^ *§***p5********** 

ifflW 






•««••*•.#.*«««•«* 



rxtjib . .: u , 

.* DOES *. 
.* COBBENT *. 

*-l l . B PHI T V 



■o 



.* HAS * 
.* LAST PBOG 
. LOB BEEN 
*. CHECKED 



.•RECORDS OB*' 
*. SXSLST 08 



**♦• 

• . « 

• * 
•♦** 






TO 



lis \ul\lr 




NOP 



**J %****«** 
• SET PAUSE * 

•***•**••** 



18 



EOUAL TO THJ 
F fHB 9XB 



*l 



»:« 



FOR Tl 
THAN I 
VALUE 



**** 

* * 

* A2 * 



****U3**«**#**# 

t "Bmjp :■ 

* SEQUBHCB * 

*****?***«**••« 



•**•** 
*6C * 

VI* 

ACTRSP 
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Chart GG. SJOBCTLA - Initialization of Procedure Processing 
Refer to Charts 07 and 08- 



****B2********* 

* • 

* PRCINIT * 

*************** 



* GBT SYSRDR * 

* LUB ADDRESS * 

* AND SAVE IT * 

* * 
***************** 



D2 *. 
.•IS JIB *. 

.* ENTRY 
. CHAINED TO 
♦.THIS LOB . 

*. .* 



*****g2********** 

* * 

* GET ADDRESS * 

* OF THIS * 

* JIB ENTRY * 

* * 
***************** 



.•JIB USED BY*. 
*. THE 

•.PROCEDURE.* 



***** 
*GW ♦ 
* B5* 



*****(; 2********** 

* * 

* SAVE STANDARD * 
•LUB FOR FURTHER* 

* PROCESSING * 

* * 
***************** 



•* OVER- 
WRITE 
•PROCESSING. 



OVERWRITE 

REQUEST 

. POSTED . 



**** 

* * 

* E3 * 

* * 

**** 



OVERWRITE *. YES 
REQUEST .*... 
. POSTED .* 

*. .* 



*****f j********** 



***************** 



*****Q3********** 

* ISSUE HACRO * 

* LABEL WITH * 

* FUNCTION * 

* GBTOV * 

* * 
***************** 



****H3********** 



>*************** 
X 



****J3********* 

* RETURN * 

* TO CALLER * 

* • 

*************** 
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Chart GJ- $JOBCTLA - Message Subroutines 
Refer to Charts 07 and 08. 



****f)1********* 

* * 

* LOGOUT * 

* * 
*************** 



****A2********* 

* * 

* MSGOUT * 

* * 
*************** 

**** * 

* * 

* B2 ♦ .X. 



nSGOUT X 

*****B2********** 

* SBT BITS OFF * 

* IN JBCSWU * 
....♦TO ALLOW OUTPUT* 

* ON SYSLST AND * 

* SYSLOG * 
***************** 

**** 



.♦SYSLOG ♦. 

♦ OUTPUT ♦ 

SUPPRESSED 



**D1******* 

♦ SUPHESS ♦ 
SYSLOG 

OUTPUT-SET 
BIT 2 IN 

♦ JBCSW4 ♦ 
*********** 



*****£ J ********** 

♦CHKASG GU* 

*.*.*.*-*.*.*.*.* 

♦ CHECK SYSLOG ♦ 

♦ ASSIGNMENT ♦ 

♦ ♦ 
***************** 



SYSLOG 

EQUAL 

SYSLST 



**** 

• ♦ 

* B3 ♦ 

♦ • 
**•* 



♦♦D2"""* 

♦ SET CHAIN ♦ 

♦ BIT IN CCH ♦ 
♦ IF TINE 

♦ LOGGING ♦ 

* * 
*********** 



♦ HOVE MESSAGE ♦ 

♦ TO PRINTOUT ♦ 

♦ AREA ♦ 

♦ ♦ 
***************** 



*****F2********** 

♦ MODIFY SYSLOG ♦ 

♦ CCW BYTE CNT ♦ 
♦TO DISPLAY OHLX* 

♦ SIGNIFICANT ♦ 
♦CHAHACTBRS ♦HU ♦ 
***************** 



*****G2********** 
♦EXCPBG GP^ 

*.*.*•*.*.*.*.*.* 

♦ OUTPUT * 

♦ STATEMENT ♦ 

♦ ON SYSL ♦ 

***************** 



****j l 3********* 

♦ ♦ 

♦ LSTOUT ♦ 

♦ ♦ 
*************** 

**♦* 

♦ ♦ 

♦ B3 *.X 



B3 ♦. 
.♦SYSLST *. 
♦ OUTPUT 
SUPPBBSSED 



**C3******* 

♦ SUPPRESS ♦ 
♦SYSLST OUTPUT^ 

♦ SET BIT 1 ON ♦ 
♦ IN JBCSBO ♦ 

♦ ♦ 
*********** 



*****03********** 
♦CHKASG GD^ 
*-*-*-*-*-*-*-*-* 

♦ CHECK SYSLST ♦ 

♦ ASSIGNMENT ♦ 

♦ • 
***************** 



*****H 1 ********** 
♦MTNCNT GU^ 

*.*.*_*.*.*.*.*.* 

♦ RELEASE ♦ 

♦ THE SYSTEM ♦ 

♦ ♦ 

***************** 



♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ * 
*************** 



J1 ♦. 
.♦ ♦ 
.♦ PBEVIOOS 

'♦.COMPLETE 
♦. .♦ 
*. .♦ 
♦ NO 



*****K1 ********** 



***************** 



IS 

SYSLST 

.ASSIGNED 



♦ CURRENT 

LINE COUNT 

♦. MINUS 1 . 

♦ .EO .♦ 



*****G3********** 

♦ RESET LINE ♦ 

♦ COUNT VALUE ♦ 

♦ TO VALUE FROM ♦ 

♦ COMREG+78 ♦ 

♦ * 
***************** 



*****H3********** 

♦ SET SKIP TO 1 * 
♦FLAG IN BYTE ♦ 

♦ OF PRINT LINE ♦ 

♦ -BUFFER LESS ♦ 

♦ 1 BYTE- ♦ 
***************** 



*****j3********** 

♦ STORE NEW ♦ 

♦ LINE COUNT ♦ 



****&<!********* 

* * 






♦ CHKCNT ♦ 






* * 






*************** 










♦B5 
1. 


POINT 1 IS DIB 
ADDRESS FOR DESIRED 


CHKCNT X 




SYS UNIT. 


*****Btl********** 






♦COMPUTE NUMBER ♦ 




FOR CKD: 


♦ OF RECORDS ♦ 


2. 


END ADDRESS CC. LESS 
CURBENT ADDRESS CC, 


♦ AVAILABLE FOR ♦ 




♦ THIS PILE ♦ 




IS REMAINING CC. 


♦ ♦BS ♦ 


i. 


REMAINING CC. TIMES 
TRACKS/CXLINDER, PLUS 


***************** 





*****Ctl********* 

* 

♦ CONVERT TO 

♦ BCD AND 

♦ UNPACK 

* 

**************** 



♦ REPLACE HIGH ♦ 

♦ ORDER ZEROS ♦ 

♦ WITH BLANKS ♦ 

♦ * 
***************** 



FULL CYLINDER, IS 
REMAINING TRACKS, 
REMAINING TRACKS, 
TIMES RECORD/TRACK, 
PLUS RECORDS QN 
PRESENT TRACK. IS 
REMAINING RECORDS. 

FOR FBA: 

REMAINING BXTES ON 
CURRENT CONTROL 
INTERVAL DIVIDED 
BY RECORD LENGTH 
PLUS NO OF REMAINING 
CI*S MULTIPLIED BY 
NO OF RECORDS PER CI 
IS REMAINING RECORDS. 



E* ♦. 


*»g5******* 


.♦NUMBER ♦. 


♦SET SNITCH ♦ 


.♦ AVAILABLE ♦. NO 


♦ CTRLSW TO 


. RECORDS GT .♦ 


...X^NOP IN CALLING 


♦. RC OF .♦ 


♦ SEQ. 
♦ ♦GU ♦ 


♦. DIB .♦ 



****ptt********* 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQ. ♦ 
*************** 



PAUSE SWITCH TO BE SBT 
OFF AND A CONTROL 
STATEMENT TO BE READ. 



♦ H« 
REVERSE SCAN THE 
BUFFER AREA UNTIL 
THE FIRST NONBLANK 
CHARACTER IS SCANNED. 
IN CASE OF OVERWRITE 



*****F5********** 

♦ MOVE ERROR ♦ 

♦ MESSAGE ♦ 

♦ 1C/0D TO ♦ 

♦ BUFFER ♦ 

♦ ♦«& ♦ 
***************** 



♦ B2 ♦ 

* * 
**** 



WARNING MESSAGE 
1C70D 00000 
RECORDS REMAIMINl 
ON SXSPCH/SXSLST 



STATEMENTS, THE NAME 

FIELD ICOr.:73-79) 

THE ACTION CODE (COL. BO) 



***************** 

X 

**** 

* * 

* C2 * 

* * 
**** 



***************** 



ARE ALSO LOGGED. 



*.*.*.*.*_*.*.: 

I* OUTPUT 

♦ STATEMENT 

♦ ON SYSL 

************** 



****K4********* 

♦ RETURN TO ♦ 

♦ CALLING SEU * 

*************** 
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Chart GK* $JOBCTLA - Operand Scan Subroutines 
Refer to Charts 07 and 08. 



SCAUR 2 X 

•****B1 ********** 
•*B4 INITIALIZE* 

* REGISTERS * 

* POINT! AND * 

* POZMT2 FOR * 

* CURRENT SCAN * 
***************** 



* SCANR1 * 

* * 
••*»•******•*** 



****A 3********* 

* * 

* SCAN 83 * 



**•* 

* * 

* C1 * 



* INIT PA RAH * 
•LENGTH TO ZERO * 

* AND STOP CHAR • 

* TO A BLANK * 

* *C4 * 
***************** 



.* IS *. NO 
•.CURRENT CHAR .*... 
*. A BLANK .* 



SCANR3 

*****B3********** 
•*B« INITIALIZE* 

* REGISTERS * 

* POINT1 AND * 

* POINT2 POR • 

* CURRENT SCAN * 
***************** 



•****C3*********' 

* ZERO PARAH 
•LENGTH COUNTER 

• -POINT 3- 



.*IS CURRENT •. NO 
.X*. CHARACTER .*... 



*****£ ■) ********** 

* * 

* INCR POINT1 • 

* POR THE • 

* NEXT CHAR • 

* • 
***************** 



*B« 
THE POINTER TO THE PIRST COL 
TO BE SCANNED AND NUMBER OP 
COL REMAINING ARE STORED IN POINT 1 
AND 2 RESPECTIVELY PROB SAVB 
AREA THPAR1. 



*C«I 
PARAB LENGTH IS BAINTAINED IN 
REGISTER P0INT3, 
STOP CHAR IS MAINTAINED IN 
CORE LOCATION SCNSTP. 



SCANRL3 

*****B3********** 

* STORE CURRENT * 

* CHAR IN 
...t* SCNSTP 



*X. 



***************** 



*****G i*********< 

INITIALIZE 
POR NEXT SCAN 



*****H 1********** 

♦SET INFORMATION* 

* POR CALLING * 

* SEQUENCE * 

* *H« * 
***************** 



****j I********* 

* RETURN TO * 

* CALLING SBQ * 

* * 
*************** 



*****p 2********** 
•LOG I NO GH* 
♦-*-*-*-*-»-*-*-* 

* READ * 

* CONTINUATION * 



.* STATEMENT * 
.TO BE LOGGED 
*.ON SYSLST.* 



*****H2*«******** 
*LSTOUT GJ* 

*-*-*-*-*-*-*-*-* 

* NRITB * 

* ON SYSLST * 

* * 
***************** 

It 



*****J2*********» 

* * 

* SET REGISTERS * 

* AND POINTERS * 

* * 

* * 
***************** 

X 

**•* 

* * 

* C1 * 

* * 

**** 



G3 *. 

.* IS *. 

THIS CHAR 

A BLANK 



H3 *. 

.* IS *. 

THIS CHAR *. 

AN EQUAL .* 
. SIGN .* 



*****J3********** 

* INCR PARAH * 
•LENGTH COUNTBR,* 

* POINTJ, * 

* BY 1 * 

* * 
***************** 



*G« 
1. 
2. 



LEFT TO BE SCANNED. 

SAVE IN SAME AREA, TMPAR1 AND 

THPARl PLUS « RESPECTIVELY. 



THE LENGTH OP THB PARAMETER 
MINUS 1 BYTE IS IN REGISTER 
POINT3. 

UPDATE THE OPERAND NUMBER 
IN OPNUMH. IP IT EXCEEDS 
THB DIGITS 0-9 SET IT TO 
THB LETTERS A-I OR J-R. 
TEST THE SCAR STOP CHARACTER 
AND SET THE CONDITION CODE. 

0, EQUAL. IS A COMMA 

1, LOH, fS A BLANK 

2, HIGH, IS AN EQUALS SIGN 
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Chart GL- $JOBCTLA - Subroutines 

Refer to Charts 07 and 08- 



****A1********* 

* • 

* INCLUDE * 

* * 
*************** 



-HBQUEST * 

AND EHROH * 
* FLAGS * 
*********** 



CI *. 

.* *. 

.* *. 

.CANCEL POSTED.* 



**** 

* * 

* K3 * 

* * 
•*** 



.OVEBWRITB END.* 



*•** 

* * 

* H3 * 

* * 
••** 



**** 

* * 

* K3 * 

* * 
***• 



**B2******* 

* INDICATE * 
OVEBHRITE 

PBIOB TO /♦ 

* * 
*********** 



****A<1********* 

* * 

* LOGCHK * 

* * 
*************** 



LOGCHK 

*****B4********** 

* SET LOG ID OF * 

* CURRENT * 

* PARTITION IN * 

* PIB TABLE * 

* *H5 * 
***************** 



***«*&5********** 
♦CHKASG GO* 

*.*.*•*_*.*.*•*.* 

* CHECK SXSLST • 

* ASSIGNMENT * 

* * 
***************** 



*****C4********** 

* BBSBT SYSLOG * 
•BITS IN CORBEG * 

* +56. BITS 6 * 
♦AND 7 SET TO * 

* * 
***************** 



Cb *. 

.♦SYSLOG *. 

.•AND SXSLST ' 



*****QI4********** 
♦CHKASG GO* 

*.*.*.*.*_*.*.*.* 

* CHECK SYSLOG * 

* ASSIGNMENT • 

* * 
***************** 



BIT ON- 

COHRBG+bb 

* BIT 7 * 

*********** 



.* /♦ * 
.STATEMENT ON 
*. PBOCLIB .* 



F1 *. 
.* PROC *. 
,*C 0?ERHRITB*. IBS 
•STATEMENT NAMES*.... 
*. EQUAL .* 



G1 *. 
.♦OVSTHT *. 
.•NAME BQ TO 
. SAVED STMT 
*. NAME 



.* DVCOOB EQ *. IBS * 
*. »A» (INSERT .*....X» J3 

*. AFTER) .* * 
*. .* **** 



.* OVCODE EQ 



**** 

* * 

* J3 * 

* * 
**** 



*. »B' (INSERT .*. 
*. BEFORE) .* 



**Q2******* 

* * 
SET Of- 

RBGUEST FLAG 
IN P-SWITCH 

* * 
*********** 



**H1******* 

* * 

* SET OV- 
RBQOBST FLAG 

* IN P-SWITCH 

* * 
*********** 



YES .* OVCODE BQ *. 
...*. «A» (INSERT .* 
*. AFTER) .• 



**K1******* 

* * 
SET 

ERROR FLAG 
IN JBCSH6 

* * 
*********** 



**•* 

* * . 

* G3 *.X. 

* * . 
**** 

INCL15 X 

**63******* 

* * 

* SBT INSBRT • 

* REQUEST FLAG * 

• IN P-SWITCH * 

* * 
*********** 

**** * 

* * . 

* H3 *.X. 

* ■ * „■■■.-■ 
**** 

INCL20 X 

*****B3********** 



.* 
.* 
YES 



**J2******* 

* * 
SET DBLBT 

FLAG IN 
JBCSW6 

* * 
*********** 



*****K2*********> 



****************! 



***************** 

**•* * 

* * . 

* J3 *.X. 

* * • 
**** 

INCL25 X 

*****j3********** 

* SAVE OVBB- * 
•WRITE STATEMENT* 

..X* NAME IN * 

* SAVE AREA * 

* * 
***************** 

*•** * 

* * . 

* K3 *.X. 

* * . 
**** 



****K3********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



.* SYSLOG ♦ 
.CONSOLE PRTB 
*. KEYED .* 



LOGPRT X 

**H4******* 
•SET SYSLOG * 

• EQ PRINTER 
* BIT ON 

• COMBBG*56 

* BIT 6 * 
*********** 



*****jl|********** 

* * 

* SAVE SYSLOG • 

* PUB POINTBB * 

* IN BEGISTBB * 

* * 
********** 



**** 

* * 

* A5 * 



****G5********* 

* HBTUBN TO • 

* CALLING SEQ * 

* * 
*************** 



.X. 

X 

**** 

* * 

* 63 * 

* * 
**** 
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Chart GM. $JOBCTLA - Read Control Statement from SYSLOG or SYSRDR 
Refer to Charts 07 and 08. 



•*** 

• A3 ♦ 



* RBSBT 
•OPERAND NUMBER ■ 

* TO ZERO 



****A2********* 

* • 

* RLINDT * 



* GET 

* SYSRDR. DPB 

* ADDRESS 

* 

**************** 



RLINDT .*. 

CI *. 

.* INPUT *. 
.♦FROfl SYSLOC*. 



..X* A3 • 

* * 



****B2********* NEITHER 

• LOGIN * 

• « 
*************** 



LOGIN . - 

*****C2*********< 

* ♦ POST 

* *A (IGNORE) 
...X* *IN POINTI- 

* * BR 

* * EXIT 



****C3********* 

GET 

PROC. DPB 

ADDRESS 

*************** 



* A(RDSTHT) IN* * 

* *POINT2 - BR* * 

* * EXIT * * 

* * * * 
***************** 



****E1********* 

* * 

• LOGIN 1 * 



RDRIN3 X 

*«***D3********** 

*BXCPRG GP* 

*-*-*-.*-*,.*-*-**.* 



***************** 



B3 ,♦. 

.PROCEDURE. 

.*SOVBRHRITE *. 

. PROCESSING . 



***************** 



X.. 



RDRIN5 X 

*****£()********** 

•INCLUDE GL' 

*_*-*.*.*.*.*.*_! 

...X* INCLODE 
* SUBROUTINE 

* 
**************** 



****P3********* 



*****£ 2*********' 

* SUPPRESS 

* SYSLOG 

* OUTPUT VIA 

* JBCSMU 
• 
****************i 



* ****I4 2********** 
*BXCPRG GP* 

*-*-*-*-*-*.*-*-* 

* READ * 

* STATEMENT * 

* FROM SYSLOG * 

***************** 



****J1********* 

* RETURN VIA * 

* REG POINT2 * 

* * 
a************** 



**Q(|******* 



*********** 



*****!) l»********** 

* * 

* SBT POINTER * 

* TO ERROR HSG * 

* 1H20D * 

* * 
***************** 



X 

***** 
*GN * 
* D2* 



* LONER CASE 

* ALPHA TO 

* UPPER 

«***************! 



NO 

.*• 

K3 *. 

.* IS *. 

.♦ERROR FLAG *. 

SET IN 

*. JBCSU6 .* 



*****K ll*********i 
• 

* EXCHANGE 
X* BUFFER AND 

* OVBUFFER 
• 
**************** 
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Chart GN. $JOBCTLA - Subroutines for Cataloged Procedure Overwrite Handling 
Refer to Charts 07 and 08. 



**♦* 

* A3 * 

* . * 
**** 



**** A 1** 

* RBADOV * 

* * 
*************** 



READOV 

*****B1********** 

* HOVE OV. * 

* STATEHBRT * 

* FROH OVBUFFER * 

* IMTO BUFFER * 

* ■ . * 
***************** 



**C\ ******* 

* SET OV- * 
♦REQUEST FLAG * 

♦FOR SUPERVISOR * 
* IE P-SWITCH ♦ 

* * 
*********** 



****************: 

**** I 

* * 

* B1 ♦ .X. 

* * 
**** X 

OV04 .♦. 

B1 ♦. 
.♦ IS *. 
.* PROCEDURE *. TBS 
*. CALLED BY ...... 

♦.OPERATOR .♦ 



RDOV10 

*****B2********** 

♦ *POST RETURN* * 

♦ "ADDRESS FOR* ♦ 
...X* * BXITO IE ♦ *. 

♦ ♦L06IH1 SUB ♦ * 

♦ ♦ (RDOVBR) * ♦ 
w***************** 



RDOV08 X 

*****43********** 

♦TESTOV GN* 

*_*-*.*-.*_*-*.*.* 

* TEST OV-STHT ♦ 
♦POST CONDITION ♦ 

♦ FOR BLA ♦ 

***************** 



MAS ♦. 
BLANK 
POSTED .♦ 



**C3******* 

♦ RESET OF- • 

♦REQUEST PL AGS* 

♦ FOB JOB CTL ♦ 

♦ AND ♦ 

♦SUPERVISOR ♦ 

*********** 



•***D3********* 

♦ RETURN ♦ 

♦ TO ♦ 

♦ CALLER ♦ 

*************** 



*****23********** 

♦ ♦POST RETURN* ♦ 

♦ ♦ADDRESS FOB*' ♦ 
.X*EXIT1 IE LOGIN U 

♦ ♦SUBEOUTINB ♦ ♦ 



****in********* 

* * 

♦ RDOVRR ♦ 

*************** 



***BU********** 

♦ BOVE STHT ♦ 

♦ FROfl BUFFBR ♦ 

♦ TO ♦ 

♦ OVBUFFBR ♦ 

♦ * 
***************** 



♦ EBSSAGE 

♦ 1N00I 

♦ ♦PS 
* 
**************** 



D« ' 



• X, 



**** . 
RDOVBRI X 

*****0i|********** 
♦HSGOUT GJ* 

*-*-*-*_*-*-*-*-* 

♦ LOG EBSSAGE ♦ 

♦ * 

♦ . * 
***************** 



*****E»»********** 

♦ LSTOUT <iJ* 
*.*.*.*.*.*-*.*.* 

♦ PRINT EBSSAGE ♦ 

* • 

* * 
***************** 



****A5********* 

* * 

* TBSTOV ♦ 

* * 

*************** 



IS 

V BUFFER 

BLANK 



•«05******* . 



*********** 



****B §♦♦♦♦♦♦♦♦♦ 

♦ RETURN ♦ 

♦ TO CALLER ♦ 

♦ • 
*************** 



RDOV06 

*****G y********** 

♦ GET * 

♦ ORIGINAL ♦ 

♦ SYSRDR LUB TO ♦ 



*****H 1 ********** 

* * 

* GET ADDRESS ♦ 

* OF ♦ 

* OV-BDR-DFB ♦ 

* * 
***************** 



*****j 1********** 

*BXCPRG GP* 

*.*.*.*.*.*.*.*-* 

♦READ OVERWRITE ♦ 

♦ STATEMENT ♦ 

* * 
***************** 



*****K1 ********** 

* ALTER * 

* SYSRDB LUB ♦ 

* FOR PROCEDURE ♦ 

* PROCESSING ♦ 

* * 
***************** 



♦HOVE STATEBENT ♦ 
.X*FROB BUFFBR TO * 

♦ OVBUFFER * 

* * 

***************** 



****Q2*********> 
*************** 



*****P3********** 

♦ ♦POST ADDR. ♦ ♦ 

♦ ♦ OF OVER- ♦ ♦ 

♦ * ERITB ♦ ♦ 

♦ ♦ BUFFER IN ♦ ♦ 

♦ ♦ POINT 3 * ♦ 
***************** 



***************** 



*****f *********** 

♦ HOVE CONTENTS ♦ 

♦ OF OVBUFFER ♦ 

♦ INTO BUFFBR ♦ 
♦CLBAR OVBUFFBR ♦ 

♦ * 
***************** 



;****GU********** 
HOVE ♦ 
OVENO ♦ 
CONRAND ♦ 
INTO ♦ 
OVBUFFBR ♦ 
**************** 



*****H3********** 
♦LOGIN 1 GB* 


**** 
OVDBBB 

****«04********** 


♦ POINT TO ♦ 


•-*«*-*-*-*•*-*-* 


♦ EBSSAGE ♦ 
...♦ 1B3ND ♦ 


♦READ OVBBNRITE ♦ 

♦ STATBHBET ♦ 

♦ FROH S If SLOG ♦ 


. ♦ ♦Jtt ♦ 


♦ ♦ 


***************** 


x ***************** 




***** 




*GN * 


.. 


* D2* 



**J3******* 

* * 

* SET FLAG • 
STSLOG OUTPUT * 

* IN JBSCSN* * 

* , * 
*********** 

'. **** 

* * 
..X* A3 ♦ 

* *. 
**•* 

**K3******* 

♦ SET FLAG ♦ 

STHT ♦ 

♦ PENDING ♦ 

* * 
*********** 



♦J4 
1B3ND VALID ONLY 
DURING PROCESSING 



****K4********** 

CLEAR ♦ 
OVBUFFBR ♦X. 



**************** 



****G5********* 

* * 

* OVENO ♦ 

* * 

A************** 



.* PROCEDURE ♦. 
,AND OVERMRITB.^ 
♦PROCESSING. ♦ 



•*J5******* 

* * 
RESET ♦ 

OV-FLAG ♦ 
IN P-SHITCH ♦ 

* * 

*********** 



*****K&********** 

* PROVIDE ♦ 
« SAVED AND ♦ 

.♦ UNINTERPRETED ♦ 
♦STHT IN BUFFER ♦ 

* * 
***************** 



.CONTROL 
X 

***** 
*GC * 
*.B2* 

* * 
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Chart GP., $JOBCTLA - EXCP Subroutines 
Refer to Charts 07 and 08. 



****A I********* 

• EXCPBG * 

* * 
**•»***•*•#•**• 



•*•* 

• * 

• E3 ♦ 



* SAVE * 

* BBGISTBBS ♦ 

* *A2 • 

* • 
•**•*••********** 



•BTBCNT GO* 
• -•_*..*.•..*-*-*-« 

* BBABLB BOLTI- • 

* PROG ABO SEX * 
•SIS MASK X»FP» * 

•***•*******••**« 



••• 

D1 *, 
-• *. 
IS ' 
TBE PILB 
. OPBB 
*. .♦ 



*B2 

1. BBGISTBBS BBKHG3 
AMD WRKBG4 ABB 
SAVBD IB IOHGSA 

2. TUB UBK BBGISTBB, 
BASIALBEADXS SAVBD 

IB LIMRSA. 

3. BASK BBGISTBB 10 
IS SAVED IB 
SAIMG10 



•C2 
IP TUB FLAG BITE. 
DPB PLUS 17. BIT 7, 
IS I 1 TUB CCB 
BAS ALBEADI 
BBBM INITIALIZE!) 



.*. 

B3 •. 
• HIST CCB*. 



•****c3****»***** 

• BOVB THB CCU * 

• AiOIBSS TO • 

• vXB. -DPB • 

• PLOS b. • 

• DFBCBA- * 
**** ************* 



.* 



* BO 



*••**£ -| ********** 

•IBITIALIZB DPB * 

* DEVICE TTPB * 

* AMD FLAG BYTE • 

* *P2 * 

* • 
*•**•*****••••*«* 



*****pi********** 

* COBP0TB LOB • 

* POIBTBB IB • 

* BBKBG3 * 

* *G2 * 

* * 
***************** 



' B1* 



2. 



TOBB OPP BITS 0, 1. AID 
2 IB FLAG BYTB, DPftFLG, 
DPG PLOS 23. 



* CBBCK 

DEVICE 

•• TIPS 



I 

■»•••*. 



X 

••DBVTXPB*. 

PBA 

.< 
•- .* 
• . .* 
• BO 



*****l5********** 

* 

* LOAD 1MP0T 
I* CCB AUDB 

* IB 4BBBG2 



•****C»********** 

• LOAD ADDB • 

* OP PCB OB * 



**D5«* *•*** 

• • 

• TOBB OB • 
ACCEPT DATACK < 

* DPB ♦ *, * 

* X'O*' * 
*********** 



X 
***** 
«GB * 
• A»* 



i 

•*•* 

• • 

• B« • 

• * 



***************** 



*****G l**«******* 
•CBKASG GO* 

•-*-*«••-•«-*-♦<->#-* 

• CBBCK * 

ASSIGBBBBT 

~ — - FILu 

****** 



HI ♦. 
.• IS *.. 
TBIS PILB *. 
ASSIGBBD 



TBIS f ALOE IS TBE 
POIBTBB FOB TBE 
SXBBOLIC OBIT. 



.* 



***** 
*6T * 

• B«« 

• • 



*••* *63********** 

• BO #K THB DISK * 

• I/O CCB CBAIN * 

• AiABBSS TO • 
•CCB. -*FB PLOS * 

• 8. DFBC • 
••*• «********•**• 



•****H3* **•***••• 



*••* ************* 



.•IS ASA *. 
SCOBTBOLD «. 
ON TBIS .< 
. DBflCE -* 



*****U«** •** ***** 

• BOVE TBE ASA • 

• CCB ADDBESS • 

• TO TBE CCB • 

• -DPB PLOS 8. * 

• DFBCBA- • 
***************** 



***** 
•fe* * 

• a** 



****«ji •»***«•***** 

• ~ 

• SAX BEAD 
.X* FEIBE CUBBABD 

• AiJti CCU 



•****J 1********** 

• BBSTOBB DFB • 

• ADDBBSS IN • 

• BBKBG3 PBOB * 

• IOHGSA • 

• » 
********** ******* 



*****ji|** ******** 



SYSBBS* 


BVDO 


•SXSLNK 


• 


SET TBE CHAIN • 


...•- 


SYSBDB 


.*.... 


• 


BIT OFF IN * 


♦. 




• 


• 


ASA CC« • 




*. .•" 




• 


* 


X 


♦ . «• 


X 


«***•***••**•***• 


♦••*• 


♦OXdJSI 


***** 






•6B • 




*GU • 
• B2* 

• * 






• H2* 


X 




•X....... . 


• • 


X 


• 


***** 


• 




***** 


DSKIBD 


•GB * 
• A1» 

• • 


LXBKIBT 




•GB • 
• A1* 

• • 



• OBIT IBTO DFB * 

• PBOB POB *K2 • 

***************** 



DEVICE TYPE 
BOVBD TO DPBDVC* 
DPB PLOS 22, 
CBANNBL AND 
OBIT BOVBD TO 
DFBCDO, DPB PLOS 



20 ABD 21 



• B3 • 

* • 
•*** 
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chart GQ, SJOBCTLA - 3BXCP Subroutines 
Refer to Charts 07 and 08., 



***** 

♦GP • 
* 03* 



*GP * 

VI* 



2$1* <•<?!• 
3§«Ki XJOBJ 

3J5r'i 



V.IV. 

X'07» 



vr 



si *. 

• is *. 

ASA *. Ml 

S0PPOHTBD .*. 
OB THIS .* 
D|UCB.* 

• US 



*j>£ 



5****B2********** 
•SET APPLICABLE * 

* DISI LIOCS • 

* CODB IM BTFPB * 

* * 



;**B4»********** 



ijJista 



*****ci********** 

* MOfB THB ASA * 

* COB ADDRESS * 

* TO THB OCB • 

* *-DFB PLUS 8, * 

•***•**•** ******* 



•: s> ! 



•*** *c«********** 

: guns* : 



*********** 



•****D1 ********** 



****D2**»****0** 

SSBOPBB * 

OPBB IJSTSLM * 

-SISLMK- * 

***************** 



*•*• *D «*• *•****•• 

«***************l 



***** 

*6B * 

V 2* 

DSKIMD 



**** 

* * 

• F1 * 

\**. f 



*****B2********** 

* JJIT * 

* PfX TABUS * 
*PBOB TBI BTFPH-* 

* IJSISLB • 

* *K5 * 
***************** 



**•*•»%*••*•**•*«: 

* • 

*•••*••*****••*•• 



*****pi****** **** 



**•«*?«*•««**•*** 



***************** 



***** 

*GB • 

* * 



***** 

vr 



SUPPORTED .* 

'. . • -* 



*****U2********** 
* 
HODIFI BPS * 
CCB*S TO * 
TIC CCB-S * 
* 
**************** 



***** 
*GB » 
*H2+ 



SHI CBBB ADDfc 

is Ktirw 

SIT M>**K 51*44 UftXX 
SIT U*PA* tt*|U Unif 
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Chart GR- $JOBCTLA - EXCP Subroutines 
Refer to Charts 07 and 08. 



NjrBBBNCES fl 
GPD5, GPJS * ** 



GPJ», 6SG3 



REFERENCES 






.* TEST *. SROR .* RBQUEST *. NO 

LOGICAL .« X*.POR PloCBDURE.*. . . 

*. UNIT .• *.STATBRBNT.* 



* PBGC. * 

RITH SYSIPT 
*. DATA .* 



* GET OPFSBT 

: "jam 

* *j5 



D °'znu 



,* SYSPIL *. 

SUPPORT 

*. AVAILABLE.* 



*****C2********** 

* * 

* GET ADDR OP * 
*PROC. BIB ENTRY* 

* PBA OR CKD * 
» * 

" *•** 

. * * 
,.X* 81 * 

* * 
**** 



*D1********** 



***************** 



.„. 

*♦** 



GET OFFSET * 
OP SYSIN *X 
OIB ENTRY * 

>«*************** 



*****£2*********< 

* SAVE ADDR. 
X* OF DIB IN 

* DPI TABLE 

****************. 



••** 




* * 


X 


* B3 ♦ 


•••4* 


* * 


•6T * 


*•** 


* A1* 



.* IS *. 
. DEVICE TXPB .* 
*. DISK .• 



*****05*********i 
* SET MRKAGW 



•INIT DPI TABLE 



»****G I********** 



* INIT : 

* ADOBE: 

* CURB A 



SEARCH 

ESS AND 

DDBESS 



REQUEST 
• . • •" 



*****G2********** 
•INITDIB GX* 
*.*:*.*;*,.*„*-*2« 

* INITIALISE * 

* PROCEDURE * 

A**************** 



REFERENCES ***• 

TO GRH2: * ♦ 
GPP5, GMJ ♦ * *.X 
GQD1, GQF» * * 
GQH2 **** 

DSKjr' 



***************** 



C3 * 
IS 



*. 



«****D3*********i 



A************** 



,* HI *• YES 
.LIBIT RECORD .*... 
*. MO * 1 .* 



NPT01 

*****P3********** 

* SUBTRACT * 

* RECORD NO BY * 
.. T .*ONB FOR ACTUAL • 

* BOD J 

***************** 



*****G3********** 

* * 
•ADJUST CYL AND * 

.* RECORD TO *X. 

* ACTUAL EOD * 

* * 
«*•*****••*•**•*• 



.* 
♦ ". SXSRBS 



****D4*********i 

SAVB 
REGISTERS 



YES .* UPPER *. YES 
.... *. EXTENT .*.... 

*.8XCBBDBU .* 

*. '.* 

X *. .* X 

***** * MO ***** 

*GT * . *GT * 

* K1* . * J3* 



ISSUIO 

UPDHDN k 

•****Q5********** 

* UPDATE DISK * 

* SBARCH ADDR • 

* AND CURR * 
•29IL 

****** 



*****BU********** 



***************** 



i****pit ******* 

SUSHIS 

i***************i 



****Q||*********I 



***** 

*GX * 
* A1* 



YES 



*H2' 
81! 



********* 

_JSTORB 

TUP 

IORGSA 



BND ADDRESS 
UPP8R LIBIT 

ur— 



LOVER LIBIT 



>****H«*********' 



i***************i 





***,, ,***,*«**< 




**J2******* 
•SET SNITCH * 


* 




• 


* 


nODIFY RPS 
CCH'S TO 


• 


♦ON TO INDIC. * 


* 


* 


♦NON UNIT RECORD* 

♦DBVICB-OFBFLG* 

* BIT 2 * 


* 


TIC CCtMS 


* 


* 




* 








*********** 








!**•* • REFERENCES 
! * * »*TO GRK2: 
* * < *.X. GPD 3 # GQF1 




X 

***• 






* ' * 




*••• 




* B3 * 




FINDOPN X 




* * 




*****K2********** 




**** 




* FLIP-FLOP * 

* BIT AND I * 

* IN THE DBBFLG * 

* *K3 * 

* • 
***************** 

X 

***** 
*GS * 
* 01* 



***** 

♦GT * 
* A3* 



IS OPEN. 
BIT 2 IF ON 
INDICATES THE FILE IS 
NOT UNIT RECORD. 
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Chart GS* SJOBCTLA - EXCP Subroutines 
"Refer to Charts 07 and 08- 



*GR ♦ 
* K2* 



**** 

* ■■ * 

* 82 * 

* - * 
**** ■ 



***# ' 

* * 

* 83 * 

« * 
**** 



♦ , 3550 .* 



GRTVOl 



*♦♦• ' 


* VRS 




***** 


. '* 






*GH * 


81 * 






* A«* 


* 






* * 


**** 






■ *: 




X 
.*. 




excbxtp 




CI *. 








.*' . *, 






♦; 


::w. 


*" 


*!?? 




*. .* 








*. .* 




X 




* NO 




***** 
♦ J3» 



***82*** ******* 



* INITIALISE * 

* DTP * 

***************** 



X 

***** 
*GT * 
* J3* 
* * 
* 
EQPPRC 



***** 
*GT * 
* A2* 



it 
jnput 



*****C3 ********** 

* ' * 

* sir ihput * 

* IND IN DTP * 

* Sit PILE NAHR « 

* TO SXSIN * 
***************** 



::'kait»* 



El '"«, 

VIS .*' TRACK 
*..*, # 8XCIIDID 

• **. .*' 
*# '♦• 
* »Q 



*****;< i***«* ***** 

* UPDATE * 

* CURRENT * 

* BIC Br ONI * 

* * 

***************** 



**«**G1*f ******** 

* ■ * 

* ADD 1 TO CXI. ♦ 
,X* SET EEC NUN * 

* TO ONE ■• 

* *, 
***************** 



.X... 

***** 
*GT * 
* A1* 

*■ * 

NOTDSK 



EC 

SEfOUT X 

• TrrT *****p2********** 



***************** 



PEED ~ 

" *****E2******»** 

» TO PEEP 
* RESET CHAIN 



***P2************ 

* SVC * 
POR 
* PEED * 

***************** 



X 

G2** ? *. 



* B3 * 

• *' 
**** 



***** 
*6T * 
* A3* 

* * ' 



.RRROPP X 

' **C5****»** 

* TURN * 

* OPP SWITCH; * 
* TURN ON * 

* ACCEPT DATA * 

* CHECK • 
*********** 



DS •. 

« 
CCN OP 
CJDE^IS 



***** 
*GT * 

VI* 



**H2******* 

* TURN OH • 
* SCONT SN. * 

•RESTORE CCN TO * 
♦SEEK RESTORE * 

* CHAIN BIT * 
*********** 



*****j2********* : 



**** 

• * 

• P3 * 



HAS 
OPEN 
GOOD 



**G3******* 



*********** 



***** 
*GR * 
* Alt 



i 

**#* 



* 81 * 

* * 

•*** 



*****g5********** 

* RESTORE CCN * 

* OP CODE TO * 
*X*0b*j RESTORE * 
» CHAIN BIT * 

* * 
**«**«•*****«•**« 



if 

INPUT 



**G»******* 

* . * 

TURN OPP 

ACCEPT 

DATA CRICKS 

*********** 



CHANGE CCN * 
TO NRT P 8PC * 
PHOH BUPFER • 

**************** 



JBSL 

POR HEW 

** V ?I225** 



**K2******* 

* * 

* RESET '■'* 
♦ SCONT * 

* SNITCH * 

*********** 



J3 *. 

* . * 
MORE 
EXTENTS 



* DISKETTE VOL * 

* OPEN PAJIURB * 

. ***************** 



***************** 



**J4******* 

TURN ON 

ERROR 
SWITCH 

* * 

*********** 



*•** 

* * 

* 81 * 



***** 
*GT * 
* J3* 
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Chart GT- $JOBCTLA - EXCP Subroutines 
Refer to Charts 07 and 08 



REFERENCES J ** 




.*••% REFERENCES 1***1 




TO GTA1: I «* 
GRAU, GRD5 % * 




: * 2 : cShu 


gta3: i »» 

GSC« ** I 




GSG1' *** 




****** GSD5 

i 


GTHU * 
X 




MOTDSK X 




OVRLPI .♦. IOCOHPL .*. 




***** A 1*** ******* 


A2 *. 


A3 *. 




* RESTORE 


* 


.♦ *. 


.* *. 




* DFB ADDRESS 

• IN HRKRG3 


* 


.♦ I/O *. TBS 
..X*. COMPLETE .*.... 


.* SXSIPT 


*. MO 


* 


♦ . OB 


...... 


* FROH IORGSA 


* 


*. .* 


*. SXSRDR 


* 


* 


* 


*. .* . 
♦ . .* X 

• mo ***** 

*GS * 
♦ C4* 

* * 
* 


*. .* 

*. .* 
• IBS 




X 






i 




.*. 




X 


.♦. 




B1 *. 




**«**{t2*****4>**** 


B3 ♦. 




.♦ IS *. 
NO .* DRV U/R * 
....*. AND IS ASA 




• * S¥C 7 * * 


.♦ * 






* * BAIT * * HO .* 81 


*. I 


I* 


...* * FOR I/O * • 


.♦. BXTES 


.* 


♦.SUPPORTED.* 




* 'COMPLETION * * 




*. 


* 


*. .♦ 




* * * * 




*. .* 




*. .* 








*. .* 




* Y8S 








* XES 

Ix.... 





•****C3********** 

* * 

* SHIFT BOFFBR * 

* TO LOSE * 

* ASA CODE * 

* * 
********•*•«••*** 



D1 

,* 
• SK 
TO CH 



EXCPGO X 

*****03********** 

* SET UMIT * 

* EXCBPTIOM SB * 
♦OPP IN DFB FLAG* 

* -DFBFLG- * 
***************** 



*****£ J********** 



.* OMIT •. 



♦IN CCM, DFBCCB ♦ 

* * 

***************** 



***P1************ 



♦ CONTROL ♦ 

***************** 



G1 ♦. 

.♦ ♦. 

I/O 

COMPLETE 

*♦. .♦* 

♦. .♦ 
* YES 



Ml ♦. 

.* HAS ♦. 

.* SPACE 1 *. 

♦.LINE COMMAND . 

♦.SPECIFIED.* 

*. *J5 .♦ 

♦. .♦ 

* XES 



♦ SET UP * 
WRITE COMMAND 
♦ IN CCB, DFBCCB* 

***************** 



*****G2********** 

* * SVC 7 ♦ ♦ 

♦ ♦ BAIT ♦ ♦ 
.X^ * POR I/O ♦ ♦ 

♦ ♦COMPLETION ♦ ♦ 

• * * * 
***************** 

•*** * 

♦ ♦ . 

* Hi ♦.X. 



**** 
SETSKIP X 

*****H2********** 

♦ * 

♦ SET SKIP TO 1 ♦ 
. ..X* COMMAND IN ♦ 

♦ CCW, DFBCCM ♦ 



***************** 



*****j ?*****♦**** 

* * 

* MOVE A BLANK ♦ 

* TO ASAIND, ♦. 

* BUFFER-1 ♦ 

* * 
***************** 



.♦ ALSO ♦> 
.♦ EOF ON 
.♦. SXSRDB OR 
♦. SYSIPT . 



**** 

* * 

* G« * 

* * 
**** 



INPUT ♦. NO 


.♦ ATTN. 
♦. 80UTINE SB 


PBOH HFCH .♦ 

OB MFCO .* 


♦ . ON 


♦. .♦ 


♦ . .♦ 


♦ . . ♦ 


*. .* 


♦ XES 


♦ NO 




*•** 




♦GP * 


. 


♦ H1 ♦.X. 



*****65********** 
♦MTNCNT GU* 
••*-*•*»*»•-*-»-* 
.X* SEIZE 
- -"- -XST" 



• fHB SXSTEN 



♦ IBS 

**** 

♦ * . REFERENCES 

♦ ♦ ♦.X. TO GTJ3: 

♦ * . GRC5, GSB3 
*•♦♦ . GSC1, GSK3 

EOFPRC X 

*****J3********** 

♦ SET UNIT ♦ 

♦ EXCEPTION SB ♦ 
..X^ON IN DFB FLAG ♦ 

♦ -DFBFLG- ♦ 

♦ * 
***************** 



**** 
EXPBXT X 

*•***{(«********•* 
♦MTNCNT GU^ 

*.*•*.*.*.*.*.*.* 

. .!• SEIZE ♦ 

♦ THE SYSTEM * 

* * 
***************** 

**** 
. ^GT ♦ 
..X^ A3 ♦ 

* * 
**** 

;****J4********** 



;«*******•******* 



***************** 



***** 

♦GV ♦ 
♦ 81* 



•J5 
IF ASAIND. 8UFF8B HIM 
1-BXTE. If BLANK. THE 
SPACE 1 LINE COMMAND 
MAS SPECIFIED. 



**** 

* * 

* G* ♦ 

* * 

**** 



„ ***************** 
* 
• * 

♦ GR ♦ 

* C«» X 
***** **** 

* * 

* A2 ♦ 

* * 
**** 



****Kt4* ******** 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 

*************** 
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Chart GU- $JOBCTLA - Subroutines 

Refer to Charts 07 and 08* 



* BTBCBT * 

*************** 



***«A3********* 

♦ r . • 

♦ CSKASG • 



****A«********* 

* • 

* CB&isGi • 

* »a5 * 

»*♦•••»♦••***♦* 



*Ab 
1.ABBJL CBAASG.* OSBD 
IB $JOBCTU>. TBB 
SBTBI POliU Ik 
AJOBCTJUk AS CBJt*SG*<i 
JIM TBB i**A«Ctt 
fBCTOB TIALB). 



***B1********* 



°y|ii,a" : 



• # * ♦ 

• • svcju * ■• 

• * *C2 • * 

• * • * 

• * • • 



fO SEIZE SIS IS TO i 



TO BBtBlSB SIS IS *0 

El ABU aDLTI-PBOGBABHlMC 



• * 

* SA?£ * 

♦ LOB ♦ 

* DI**UCBBBBT * 



_. TBB 

LOB 40DBESS IS OBXBIBBD Bl 
ABDIBG TBK USB TABUS 
BBDBBSS TO BBKBG3. 



IB BITS QF TBB J.OB, !■?&• IBBICATB 
•A6H0BB* IBB A*PF* IMDICAXBS 1.UB IS 
DBASSIGBBD. IB a XT BUB CASE TBB 
COM DITIOII COBB IS SET TO I. 



•«**D1******««* 



CHEASGJ .♦. 

P3 • <. 

.*"* TBB ■.'*"••'« 
• IBS 



• COBPOTK PUB • 






BITB OP Ti 
CONTAINS X*l 

fit ffl HKPB&m 

PJ.OS TBB DISP2.ACBNBMT 
BOUALS TBB BOB ADBBBSS 
FOB TBIS OBIT. 



&BQ0BNCB 



•***••** 
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Chart GV. $JOBCTLA - Error Subroutines 
Refer to Charts 07 and 08- 



***** 

*GT * 
* GS* 



ATNCUU X 

*****B 1 ********** 

* SET (MIT ♦ 

* EXCEPTION * 

* SWITCH OFP * 

* IN DFB FLAG * 

* -DFBFLG- * 
***************** 



.MESSAGE . DESCRIPTION 



. 1C00A 



ATTN. CUO 

*PLBASE*issiGH*UisHDa^sisipKsisLNK) T 



.* IS 

UNIT 
*. SYSLNK 



.♦DBflCE TXPE*. 
.X*. DISK/ 

♦.DISKETTE .* 



*****£ 1 ********** 

* CLEAR OUTPUT * 

* BOFFEB AND * 

* INITIALIZE * 

* MESSAGE * 
♦1I50I *B<»* 
***************** 



**** 

*GH * 

* J«» *.X 



**** 
ATNCUU1 X 

*****f 1********** 

♦HSGOUT GJ* 

*-*.*-*-*.*-*-*-* 

* DISPLAY * 

* MESSAGE * 

* ON SYSLOG * 

***************** 



*****G 1********** 
•LSTOOT GJ* 

*-*-*-*-*-*-*-*-* 

* DISPLAY * 

* MESSAGE * 

* ON SYSLST * 
***************** 



*****E2********** 
♦CONVBHT CHANNEL* 

* AND UNIT TO * 

* EBCDIC FOR * 

* PRINTING * 

* * 
********* 



NOEEBT 

*****Q3********** 

* INITIALIZE * 

* MESSAGE 1C10A * 
...X* FOB COBBECT * 

* SYS-NUMBER * 

* * 
***************** 



*****£3********** 

* * 

* POINT TO * 
♦DESIRED MESSAGE* 

* -1C80D- * 

* *B« * 
***************** 



****D4********* 

* * 

* OERBTN * 

* * 
*************** 



*****P2* ********* 

* HOVE CHANNEL * 

* AND UNIT TO * 

* ATTENTION * 

* MESSAGE * 

* * 
***************** 



*****G2********** 

* * 

* POINT TO * 

* DESIRED HSG *. 

* 1C00A * 

* *B4 * 
***************** 



REFERENCES * * 
TO GVP3: * * * i 
GCEU. JFEU * * '*' 

**** 
OEBBTN X 

*****P3********** 



* CLEAB BUFFER 
♦AREA TO BLANKS.* 

.X* MOTE DESIRED * 

* MESSAGE TO * 

* BUFFEB * 
***************** 



*****G3********** 
♦HSGOUT GJ* 
*-*-*-*-*-*-.*-*-* 
•DISPLAY MESSAGE* 
* ON SYSLOG * 



*** 



i************* 



**************** 



**** j 1* ******** 

* RETURN TO * 

* CALLING * 

* SEQUENCE ♦ 

*************** 



*****H3********** 



*************** 



***** 
♦GC * 
* A1* 



****G5********* 

* • 

* HAITBRM ♦ 

* * 
*************** 



*****ti5* ******* 

* CLEAB 

* OUTPUT 

* BUFFER AND 

* SET UP BRBOH 

* MESSAGE 



♦ DISPLAY ♦ 

♦ MESSAGE ON ♦ 

♦ SYSLOG * 

***************** 



• ***& 5*** ****** 

* PUT SXSTlSH INTO* 

* A HARD WAIT ♦ 

* STATE ♦ 

*************** 
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Chart GW. $JOBCTLA - Error Subroutines 
Refer to Charts 07 and 08,. 



****B 1* ******** 



*************** 



***** 

*GC * 

* KU* 

* * 



IS 
JOB BEING 
.CANCELED . 



• REFERENCES 


• TO 


GWC2: 


• GYE2, 


HNH2 


• IBB4, 


IBM 


• IBG4, 


IBH2 


• icds; 


IDD5 


• IDG1, 


IDJ3 „„ 


• IBB5, 


IEP1 ■» 


• IEHU, 


IPD5 


• JGD1, 


JGD3 


• JGG2* 


JGH« 


JHD3, 
KCK5, 


JLB2 


LAE2 


HHE1, 


HHG1 


MQB4, 
NGG1, 


NAC1 


NJB3 


PAE«, 


PAF3 


PAH3, 


PBOI 


PBG2, 


PEG1 EB 


PGB5, 


PGC3 EB 


PGD1, 


PGJ1 


PJG2, 


PJK1 


pkci; 


PKP2 


PLG1, 


PNB1 


ppei; 


PQC4 
PQJ1 


PQG1, 


PQJ3, 
PTE2; 


PTB4 
POD1 


QBD4, 


QPE3 


QFGSl 


QPH1 


QPJ4, 


QJD2 


QJG1, 


QKB3 


Q1CK1, 


QLH2 


QLJi, 


QHD3 
QPE5 


QHH1, 


QPG3, 


BCD1 



* ♦.x 



***** 
♦GC ♦ 
* B2* 

• * * 

* 
CONTROL 



**** 
»ERR 
mmm+*c2*+******** 

* * ****c3********* 

* POINT TO ■*■■-* * 
[• DESIRED *„,,„„ „ * ERRRTN * 

* MESSAGE « REFERENCES * 

* 1SOOD «TO GBD2: *************** 
*****************GCG5, GHH4 

GNH«, GXP4 



* *.X, 



EBRCNL* 

~ -RTN X 

*****D2********** 
* LOGOUT GJ* 

*-*-*-.*-*-*-*-*-* 

* LOG STATEMENT * 

OH 



*****B2********** 
♦LSTOUT GJ* 

*.*.*.*.*.*.*-*.* 

* LOG STMT * 



BRRRTN2 

*****P2*******"* 

* CLEAR BUFFER * 
♦AREA TO BLANKS * 

* MOVE DESIRED * 

* MESSAGE TO * 

* BUFFER *J2 * 
***************** 



*****Q2********** 

♦INSERT OPERAND * 
♦POSITION NUMBERS 

♦ INTO BUPFEB ♦ 

♦ PLUS 3 PBOM ♦ 

♦ OPNUHH *K2 ♦ 
***************** 







****A5********* 






* * 






* SYSEBB * 






* • 


**** 




*************** 


* * 






* B« ♦ 






* * 




**** . 


**** 




*GG * 

* F2 *.X. 

* * . 


X 




**** 


. ♦. 




SYSEBB X 


B« ♦ . 




**B5******* 


.♦ ♦ 




* POST ♦ 


NO .♦ AUTO 


*.' 


♦ RETURN ♦ 


..♦. CANCEL 


.* 


♦ADDRESS CNCLMD ♦ 


*. 


* 


♦TO PBOC. END ♦ 


♦ . .♦ 




♦ PROCESS ♦ 


*. .♦ 




*********** 


♦ YES 




. 



**C4******* 

* * 
RESET AUTO 

CANCEL 
SWITCH 

* * 
*********** 



INPUT 

FROM 

SYSBDR 



LOG ♦. 

ON SYSLOG . 

. SPECIFIED. ♦ 



*****C5********** 

♦ GET PHASE ♦ 

♦ NAME OF ♦ 

♦ PBOC. END ♦ 

♦ PROCESSOR ♦ 



************* 



■ **• 



*****Q5********** 

* GET ENTRY ♦ 

* POINT TO * 

* PBOC. END ♦ 

* PBOCESSOB ♦ 

* • 
***************** 



♦ ♦£!>♦♦♦♦♦♦♦ 
* * 

♦ SEP SYSLOG > 
♦ INPUT, FLAG 

♦ IN JCSH1 



EBBAP 

*****G3********** 

♦HSGOUT GJ^ 

*-*-*-*-*-*-*-*-* 

♦ DISPLAY ♦ 

♦ MESSAGE ON ♦ 

♦ SYSLOG ♦ 
***************** 



*****H3********** 
♦LSTOUT GJ^ 
*-*-*-*-*-*-*-*-* 

♦ LIST MESSAGE ♦ 

♦ ON ♦ 

♦ SYSLST ♦ 
***************** 



♦J2 
REGISTER POINT1 
CONTAINS ADDRESS 
OF DESIBED 
MESSAGE. 



***** 
♦GC ♦ 
♦ A1* 



♦ P4 *.X 



**** 
CNCLMOD1 X 

*****pi(********** 

♦MSGOOI GJ* 

*_*_*.*.*-*.*.*.* 

♦ DISPLAY ♦ 

♦ MESSAGE ON ♦ 

♦ SYSLOG ♦ 

***************** 



*****G<1********** 
♦LSTOUT GJ^ 

*-*-*-*-*-*-*-*-* 
♦ LIST MESSAGE ♦ 



*****H4********** 

♦ CLEAB BUFFER ♦ 

♦ AND PUT ♦ 

♦ JOB NAME ♦ 

♦ IN CANCEL ♦ 

♦ MESSAGE ♦ 
***************** 



*****ji|********** 

♦ HOVE JOB NAME ♦ 

♦ TO MSG. HOVE ♦ 

♦ MSG 1I?0I TO ♦ 

♦ OUTPUT ♦ 

♦ BUFFER ♦ 
***************** 



**f 5******* 

♦ SET * 
SYSEBB 
FLAG IN 
JBCSU6 

* * 
*********** 



***G5**«»* 
FETCH RF 

*•*-*.*.*.*.*. 
FETCH 
♦ *JOBCTLG 

***************i 



*****!]■}********** 
♦PEND NS^ 

*.*.*.*.*.*•*.*.* 

♦ PBOCESS END * 

♦ OF PBOCBDUBE ♦ 

♦ • 
***************** 



CNCLMD X 

***** j 5********** 

, * SET POINTER ♦ 

♦ TO MESSAGE ♦ 

♦ 1M10A ♦ 

* ♦K* ♦ 

* * 
***************** 



*K2 
IF NUMBER 
EXCEEDS 9 
CONVERT TO 
HEX CHARACTER. 



♦ KU 
GET PHASE NAME 
OF PRO-. END 
PROCESSOR 



**K5******* 

♦ RESET ♦ 
SYSEBR 
FLAG IN 
JBCSW6 

* * 
*********** 
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Chart GX. $JOBCTLA - Initialize Fixed Block DIB 
Refer to Charts 07 and 08. 



**** 

* A> * 



INITDIB X 
•****Bl**v* 

♦HTHCNT 



•***C1 • •*»»***»' 

ESTABLISH 

BASE. SAVE 

REGISTERS 



.*. 

D1 ♦ . 

.* DIB * 
PARTLY 
INITIAL- 
. IZEO 



INITSBC .*. 

P2 *. 

.* DIB * 
.♦ COHPLET- 



IZED 

. .** 

• HO 



El ♦ . 

SYSLNK 



**F1******* 

* * 
ISSUE 
HACRO 

GBTVCB 

* * 
*********** 



*****(jj ********** 

* * 

* MOVE DTP * 

* DEVICB TYPE * 

* INTO DTPPH * 

* * 
***************** 



SET 
DTPPH 
ADDRESS 

*************** 



**B3******* 

* • 
OPBM 

THE 
PILE 

* * 
*********** 



OPEN 
SUCCESS- 
FUL 



*****D3********* 
* 

* HOVE CURRENT 

* AMD UPPER 

* PBM INTO DIB 
* 
**************** 



*****g3***»****** 

* RESET OPPSET * 

* AND BOVE » 

* CI-SIZE * 

* INTO DIB * 

* * 
***************** 



*m***f $********** 

♦ COHPUTB * 

* BLOCKS PER CI * 

• AND HOVE IT * 

* INTO DIB * 

• * 
***************** 



♦ DOBS 

I/O BOPPER 
*. EXIST . 



**** 

* * 

* BO * 

* ♦ 
**** 

!x.. 



••***BU********** 

* SET UP * 

* MESSAGE * 

* WITH NAHB OP * 

* FAILING HACRO * 

* * 
***************** 



****git********** 

STORE AMD * 
TRANSLATE * 
RETURN CODE * 



•*** 

* * 

* H5 * 

* * 
♦•** 



******* 



*****DU* 
♦HTNCHT 

*-*-*,.*..< 

* SEi: 

* THE S" 

******** 



#41*41*4141 



I*******: 

GU 

•*-*f-*-> 

iE 

TEH 

;******! 



**** 

* * . 

* B!> *.X. 



*****B5**«******* 

* PUT ADDS, OP * 

• I/Q BUFFER * 

* AND DIB * 

• EXTBNTION * 

♦ INTO PI » 
***************** 



* ****C!>*»**»***** 

* RESET * 

* Plfi FLAGS * 

* HOVE CCX ♦ 

* CHAIN TO DIB * 

* BXTENTI * 
***************** 



*****D>>#********i 
41 

* CREATE 

* IORB FIX 

* LIST 

************ *«**! 



**£5******* 



PRO- 
CEDURE OR 
. SYSLNK . 



*****PU ********** 



***************** 



* D2* 

* * 

* 

ERRRfN 



**** 

* * 

* B5 * 

* • 
**** 



***************< 



4>****(j !>********** 

* * 

* SEt CQNTEOL * 

* FIELDS FOR * 

* CONHANDS * 

* . * 
***************** 

**** \ 

* * . 

* Hi *.X. 



ANY 


*. 


YES 




ERROR 


*" 


*. .. . 




.* 








*. .* 




X 




* NO 




***■ 








* 


* 






* B4 


* 



.*. 

K1 *. 

,* *. 

IS *. 


* Hi » 

* * 

. **4i* 

YES 


*****K2**4>***4i*** 

* HOVE PHYS. * 

* BLOCK SIZE * 
X* AS CI-SIZE * 

* INTO DTPPH » 

*' * 
***************** 

... .....x! 


. HIGHER .* 
*. 1K .* 

♦ . .* ■ 
* NO 








X 

**** 

* * 

* A3 * 

* * 
**** 



H3 *. 

.* PRO- *. 
.* CEDUBE 
. AND SYSFIL 
♦.SUPPORT- . 
*. BP .* 
*. . * 
♦ NO 



.* 

.* 
YES 



**K3******* 
♦ISSUE HACRO* 

♦ GBTVIS FOR ♦ 

PARTITION 

♦ STORAGE ♦ 
* * 

*********** 



*«**HU********** 



*************** 



****j 4*********1 

PRINT AND 
L05 ERROR 
HESSAGfiS 

********** *****! 



*****{)«,****« ***** 

•HTNCNT GU* 

*.*.*.,*. *.*_*.*.* 

* SEI4E • 

* THE SYSTeH * 

***************** 



*****j *>**** «*»•*> 



**Kti******* 
♦ISSUE HACRO* 

* GETVIS FOB 

SYSTEH 

* STORAGE 

* * 

*********** 



*****«**«***i 



♦♦♦•Kb********* 

* * 

* RBTUHN • 

* * 
*************** 
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Chart GY. SJOBCTLA • Set Buffer Values for 3800 Printer 
Refer to Charts 07 and 08- 



4***12********* 

* * 

* SETAPRT * 

* * 
*************** 



***************** 



* IS 

J800 TO B 
*. RESET 



***************** 



* H« * 

* * 
**** 



****D2********** 

ISSUE BACRO * 

SETPRT TO * 

SET THE NEW * 

J800 VALUES * 

* 

**************** 



*****Dll********** 

* ACCESS TABLE * 

* OP SPOOLED * 

* DEVICES FROM * 
♦THIS PARTITION * 

* * 
***************** 



SBTAPRTB 

E 
.* 
IBS .* 



X 

***** 
*Gti * 
* C2* 



NVSEHR 

SETAPRTF A 

*****F2********* 



********* 



****G 2** ****** 

* RETURN 

* TO CALLER 

* 
************** 



*****pil********** 

* * 

* ACCESS * 

* NEXT ENTRY * 

* IN TABLE * 

* * 
***************** 



* H"» *.X 



**** 
SETAPRTE 

*****Hi|********** 

* ISSUE MACRO * 

* SETPRT TO * 
....* RESET ALL * 

* 3800 BUFFER * 

* VALUES * 
***************** 
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Chart BJU SJQBCT&3 *.. (Restart Processor (Fart 1 of 3) 
Refer to Chart 09. 



• JJOBCTtB J 



"•*««„*•> 



%i$**ci«*Mt*«**« ca f, 

yifii K«> 



J ^«8, 






.5, 









JCBBIHSC 



••f**D3#»»»*««**f 






J* 



•••MP 
♦ 
* I 



!••• 

m 



ifiBAflf 



••••*••«••••*•••* 

f 

:«. ,... 

**««*G1M*««****« 

•♦.•■fcimc.-"'* 



: WM : 



.*. 



::»> 



.**$ 



J. 



«s»«f«...,.!!»: 
:.5S"siss sss?u ; 






f * ♦. 

,».:; wis*';:, 















< M 



ES f. HO 



• *' 
• * 

tnSc osou 



••*«•*•••••*••«*• 



•HG * 

* •■. 
JCBBRHSG 



JCBBtUSG 



•f***J<|?#***ft*»* 



.... 

• ■•if 
• * . 

JS8?*0Q 






Chart HB* $JQBCTLB - Restart Processor (Part 2 of 3) 
Rpfer to Chart 09* 



**** 

**** 



,**38Q0***. 

"nRHIIIe.*:.!?. 



***** 
*HA * 
* J<»* 



JCU0900 „*. 

B1 *, 

.* PFIX *, 

f *INF. SAVED 

*.*ND NO PFIX' 

*. SUPPORT . 



N5GQB02I 
•'IBS .. 



ql* ** f NSG0R03I 
BXTB»T-XNFQR«,» «RS 

**. • ** 

* MO 



,*..X 



D1 *„ HSGQR04X 
••SYSTEM HODB*. NO , 

*. sine as for .*..x.x. 

* f CHKPT .* 

*. ' ,* 
*. .* 
* YES 



*****g1********** 



* * FOR RSf 



****** 1*** ******* 

* SET UP * 
•COMPARE PIELDS * 

* DEPENDING ON * 

* SYSTBR- AND * 

* BUN^BODB * 
***************** 



*****G<|********** 

* . * 

* COMPARE * 
•CHKPT ANO RSTRT* 

* BOUNDARIES * 

* * 
***************** 



*•«* 
* 4 

* c2 * 

* i 
**** 

JC81220 X 

***»*C2**#******* 
•I/O ROUTINE HO* 

*.*.*.*,.*. *.*.*,* 

* REAP A * 

* RECORD J 

***************** 



♦*** 
* ' * 
! B * * 



**i**B3********** 
♦ * FRBRUS * * 

».*.*.*.*„*.*.*.* 

♦ x* 



*****C3********** 
♦SIZE PS* 

•,*.I,*.*,* W *^.*.* 

*SBT LOGICAL END* 

* OF PABTITION * 

* INTO COHRBG * 

***************** 



EXPECTED 



E2 *. ■ 
,* RSTRT *, 
J800»PBINTBR 



*****B2********** 

♦SBTPRT GY* 

*^» v *. *.*,*-*.*.* 

* RESTORE PUB2* * 

* EXTENSION FOR * 

* 38Q0"PRINTER* * 
************$**** 



D3 *. 


HSG0R09I 


* * 




ERROR 
DBTBCTBP 


*'* YBS 


*• ■• .* 

*. .* ■ 


X 


* NO 


***** 




*HC * 




* B5* 




* * 




* 


X 


JCBBRBSG 


»*. 
B3 *♦ 




* * 




PFIX 


'*t YES 



♦.INFORMATION ,*...,. 



F3 
•PFIX UNIT**, 



*» i 



0R08I 
YES .»' 



* G E ROr'* 
DETECTED 



ANY 
ERROR IN 
COMPARE 

*, ,* 
*, .* 
* NO 



MSGORlil 
OROSI 



X 

***** 
*HC ♦ 
* 95* 



JCB12O0 

' *****J1********** 

. riS, {£!«.*> ; 

* * 

***************** 



.* BORE * 
.3800-PRINTER 
*. RECORDS . * 



**** 

* * 

* C2 * 

* * 

****. 



* B3 * 

* * 

**** 



If CBKPT »•, 
♦.PFIXLIHIT,* 



*****Q3********** 

•SIZE PS* 

*.*.*.*.*„*.*.*.* 

*SET RSTRT PART.* 
* PFIX LIBIT TO * 
♦CHKPT PflXUHIf* 

***************** 



■ ' .♦ 
,* , 
YES 



***** 
*HC * 
* B5* 



JCB2000 

**** 

•RESTORE FIELDS 



T STATU 



***************** 



JCBBRBSG 



A2 * 

* 

*♦** 



*. .* 


X 


* NO 


***** 




*HC * 




* B1* 


X 


* * 


***** 


* 


*HC » 


JCB2Q10 


* Bft* 




* * 




* 




JCB2800 
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Chart HO SJOBCTLB - Restart Processor (Part 3 of 3) 
Refer to Chart 09.. 



***** 

*HB * 
* J4* 



REFERENCES 
TO HCB5: 
HAC2, HAH3 
HAJ1, HBD3 
HBH1, HBH3 
HDP3. HDG1 



JCB2010 X 

***i*gf ********** 

♦I/O ROUTINE HD* 

*-»-*.#-*>*-*-*-* 

,.X» READ A * 
. * RECORD * 

. * * 

***************** 
*•*« 

* * 

* B1 * 

* * 

**** . 



EXPECTED 
BBCOBD 
• BEAU 



D1 *. 
.♦EXTENTS*. 
YES .* FROH *. 
......SYSTEM EXTENT. 

*. AREA .* 



*«***B 3*********1 

* * 

• * 

.x* *a 



GETVCB 

GET VOLSEB 

OF SYSCAT 



****************: 



X BO 



DEQUEUE . 

* . . * 
♦. .* 
* YES 



*****p 1********** 

* * * * 

* * SVC 22 * * 

* » SEIZE * * 

* *THE SYSTEM * * 



*****Q1********** 

* LOCATE * 

* AMD DEQUEUE * 

* JIB EMTRX * 
♦FOR CHKPT FILE ♦ 

* *■ 
***************** 



*****H 1********** 

♦ * * * 

♦ ♦ SVC 22 * * 

♦ ♦ RELEASE * ♦ 

♦ »THE SYSTEM * ♦ 

♦ * * . * 
***************** 



.♦EXTENTS*. 
.♦ FBOM ♦. 
.SYSTEM EXTENT. 
♦. ABEA .♦ 



*****D2*« ******* 

♦ * * 

♦ ♦ SVC 22 ♦ 

♦ ♦ SEIZE ♦ 

♦ ♦THE SYSTEM ♦ 

♦ * * 
**************** 



*****£2*** ******* 

♦ CHAIN ♦ 

♦ F8EE JIBS ♦ 

♦ AND BUILD ♦ 

♦ JIB ENTRIES ♦ 

♦ * 
***************** 



*****f2******«***. 

♦ * * * 

♦ ♦ SVC 22 ♦ * 

♦ ♦ RBLBASE * ♦ 

♦ ♦THE SYSTEM * ♦. 

♦ * * * 
***************** 



♦ YBS 

Ix.... 



IS THIS ' 
THE CHKPT 
. EXTBNT . 



*****£ 3********** 

♦ ♦ 

♦ SET UP ♦ 

♦ INPUT LIST * 

♦ TO ADD EXTENT ♦ 

♦ * 
***************** 



*****F3********** 

♦ ♦ EXTBNT * * 
» *ADD EXTENT ♦ ♦ 

♦ ♦ TO SYSTEM * ♦ 

♦ *EXTENT AREA* ♦ 

♦ * * * 
***************** 



♦ PREPA8E ♦ 
X^ READING DP ♦ 

♦ DUMP BBCORDS ♦ 

♦ * 
***************** 



*****C<t* ********* 
♦PBEP. REGISTER * 

* AND SAVE AREA * 
♦NITH INFORHAT. * 

♦ NECESSARY TO ♦ 
♦CONTINUE BSTRT ♦ 
***************** 



*****Q(l********** 

♦ STORE CODE * 

♦ TO FETCH * 

♦ »$BBSTRT ♦ 

♦ IN SAVE AREA ♦ 

♦ * 

******* 



*****£ S**f ******* 

* * 

* get * 

..f ADDHBSS OF * 
. * MESSAGE TEXT ♦ 



*****gu ********** 

♦ * INVPART ♦ * 

♦ ♦ CLEAR AND * ♦ 

♦ SET UP VIRT.^ ♦ 

♦ ♦ OR REAL * * 

♦ ♦ PARTITION ♦ * 
***************** 



****p(l********* 

* * 

* SSBBSYBT * 

* * 
*************** 



**** 



JCBCNVBU 

*****C !>♦******* 

♦ CONVERT 

♦ AND HOVE 

♦ NECESSAUY 

♦ MESSAGE 

♦ INFORMATION 
*************** 



JCBMSGMV 

*****D >>***** ***** 

♦ MOVE MESSAGE ♦ 

* TO BUFFER ♦ 

♦ 5F COMMON * 
» JOBCHTL ABBA ♦ 

* * 
***************** 



JCBMSGMV 

*****g{j********* 

♦MSGOUT GJ 

*-*..*..* T *. *,.*.*-< 

♦ WRITE 

♦ HESSAGti 



****P5* ******** 

* * 

* CANCEL ♦ 

* • 
*************** 



**** 

* * 

* B5 ♦ 

* • 

**** 



CE TYPE^. NO 

GNEr — 

*. EXTENT 



* MORE 

EXTENTS IN 
*. RECORD . 



J2 *. 

.* MORE *. 

.* EXTENT < 

♦. RECORDS TO 

♦. PROCESS . ' 

*. .* 

*. .♦ 



* BU ♦ 

* * 
'**** 



**** 

* * 

♦ K1 ♦ 



**•* 

* * 

* B1 ♦ 

* * 
**** 



**** 

* ■ * 

♦ K1 ♦ 



Bi * 

* 
**** 



**** 
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Chart HD- $JOBCTLB - Restart Subroutines 
Refer to Chart 09* 



****A f********* 



SOBBTIBBS CALLED 
COLLECTIVELY AS 
•I/O ROUTINES*. 



•****B1********** 
* OBTAIN * 
CCB ADDRESS * 



***************** 



*****C 1********** 

.*■.* * ■• 

* * BXCP * * 
;■•■■• BEAD A * * 

* * RBCOBD * * 

* * * * 
***************** 



*****D1 ********** 

* * • • 

* * BAIT * * 

* * BAIT FOR * * 

* *CHANNEL END* • 

* * * * 
***************** 



****A3********* 

* * 

* JCBFBAOO * 
*************** 



****B3********* 

tO AD CCB 
ADDBBSS 

>*****»*********i 



*****C3***«****** 

* * . * * 

• * BXCP * * 

* * BEAD A * * 

♦ * RBCOBD * * 
» * * * 
***************** 



•****D3********** 



* •CBANBEL END* • 



***************** 



****BI********** 

* * 

• JCBTAPBM • 

***•***••*•*•** 



****A$********* 

* * 

* JCBTAPBD * 

*************** " 



*****B5********** 



***************** 



.X. 



•***g2********* 

* RETURN * 

.X* TO CALLER * 



*************** 



•****E3********** 

* 
***************** 



UPDATE 

OCR NUMB 

IN CCM 



*****C5**»***«**« 

* * * * 

* * BXCP * * 

* * BEAD A * * 

* * B6C0BD * * 

* * • * 
***************** 



*****ot>********** 

* * * * 

* * BAIT * * 

* * MAIT FOB • * 

* *CHANN8l £ND* * 

* * * * 
***************** 



*************** 



*****p1********** 

* • 

* UPDATE * 

* SEEK ADDBBSS * 

* IN DTFPH • 

* • 
***************** 



.* 

.* 
.EXTl 



OPFSR *. 

IBtttF!*' 



0R13 
*. BBS 



0R15I 
IBS 



***** 
*HC * 
• B5* 

* * 



****G3********* 

* RETURN * 

* TO CALLER * 

* • 
*************** 



. ***** 
*HC • 
* B5* 
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Chart HM. $JOBCTLC - Open Hard Copy File 
Refer to Chart 09-1. 



**** 

• * 

* A3 • 

• * 
**** 



* • 

* SJOBCTLC * 

* • 
*************** 



BAIN00 

*****B i********** 

♦INITOO HN* 

*_ *_*.*.. *.*_*_*_* 

* INITIALIZE * 

* PHASE » 

* * 
***************** 



YES .* • 

...*. HC - CHEATS 

*. .* 



•*B3******* 



**B1******* 

* * 
SET 

IPL SWITCH 
OFF 

* * 
*********** 



*****C3********** 
*OPENFILE HS* 

*-*-*-*-*-*-•-*-.* 
* OPEN THE • 
*HABD COPY FILE * 



* OPEN 


*, 


NO 


.* PBINTBB *. 


SUCCESSFUL 


*" 


*.... 


...X*. ATTACHED .* 






*. ■' .* 


*. .* 






*. .* 


*. .* 






*. .* 


* YES 






* NO 

**** 

* * . 

* EH *.X. 

* • 


X 






**** 


.*. 






OPNHCBBB X 


B3 *. 






*****£(t********** 


.* *« 






* * 


* FftA 


*. 


IBS 


* SET UP * 


CI -SIZE 


*" 


*.... 


»...X* MESSAGE 1I95A * 


*. CHANGED . 




* * 


*. .* 






* * 


*. .*•' 









»****D ;>*•»*••*•** 
*HCOk»NHSG HS* 

*-*-»-*-*-»-*-*-• 



**** 

* * 

* G2 • 

* * 
*••* 



*****F3*«******** 

•PBEPOOO ' HP* 

*-*.*_*_*.*.*_*.* 

* INITIALIZE * 
CRTSAV 



****pil********* 



** 
G1 


* 

X 

* 


.* 
* 
YES 

*. 

*, 

NO 

.* 

* 


*. YES1 


• *** 

* * 

* G2 * 

* * 
***• 

HAIN200 X 

•****G2** ******** 

* * 

[ * FBEE ALL * 


* * 
***************** 

X 
.*. 

G3 *. 

.* *. 

.* *. 

*. HC * CBBAfB .* 

*. .* 

*. .* 

*. .* 


** 


* 


* * 

* * 
***************** 



.* *. 








****H2********* 


.* SYSRBC 


* 




40 


* GO TO 


*. ASSIGNED 




* 




• CONTBOL IN 


*. 


* 






* SJOBCTLA 


*. .* 








***•**•**•***** 


*. .* 






X 




* YES 






**** 

* * 

* £« * 

* * 
**•* 
























J1 *. 










.* *. 










NO .* HARD COPY 


* 








..*. FILE ON FBI 




* 







*»***U 3********** 
•MCCBBATB HP* 

*-*-*»•-*-*-*-*-* 

* CREATE * 
*HABD COPY FILB * 

* * 
***************** 



***************** 



*-*-*-*-*-*- 



* MBS: 
•HARD l 

****** 



WRITE IPL * 

"SAGE TO * 

COPY FILB * 

************ 



*****K1********** 

* COPY PHYSICAL * 

* BLOCK SIZE * 

* AS CI-SIZR * 

* INTO HC-DTF * 

* * 
***************** 



**K3******* 



**«*•*****• 



.X. 

X 
**** 



•*** 

* * 

* G2 * 
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Chart HN- $JOBCTLC - ROD Command Processing and Initialization Routine 
Refer to Chart 09-1. 



**** 
* • 

* AH * 



****& 1 ********* 

* * 

* ROD00 * 

* * 
*************** 



************** 



**£1******* 

* * 

INDICATE 
VALID ROD 
COMMAND 



.X. ...... 

X 

**** 

* B2 * 



*•** 

* * 

* B2 * 

* * 
**** 



i* SYSREC *. 1 

DEVICE .*..X. 
♦. IS FBA .* 



HARD w 
COPY PILE 
. OPENED . 



* iff 2* ****** 

* * 
INDICATE 
VALID ROD 

COMMAND 

* * 
*********** 



*****G2********** 
♦LOGREQ00 HS* 

*>*- *-*-*_*_*-*_* 



*********** 



X.... 



.• VALID *. 
. ROD COMMAND 


NO 


** . . . 


*. . * 


* 


*. .* 




*. .* 


X 


* YES 


***** 




*GH * 




* C2* 




* * 




* 




NVSERB 


X 




**** j 2* ******** 


BRANCH TO 




CONTROL IN 




4J0BCTLA 


* 


*************** 



****Aj«******** 

* * 

* INITOO * 

* * 
*************** 



*****C3 ********** 

* * 

* SVC 99 * 

* GETVCE * 

* POR SYSREC * 



SET SYSREC 

ASSIGNED 

SNITCH 

* * 

*********** 



*****P3********** 



***************** 



.X.. ...... 

X 

**** 



*****Bit**«* 



***************** 



IS 
SYSLOG 
A 1052 



SYSLOG 
A CRT . 

.* 

**"yes 



INDICATE 

SYSL03 IS 

A CRT 

* * 

*********** 



INDICATE 
PRINTER 
ATTACHED 

* * 

*********** 



****H4********* 

* RBTORN * 

* TO CALLER * 

* * 

*************** 



**C!>******* 

* 

INDICATE 

SYSLOG IS 

10b/ 



IS 
SYSLOG 
A .3277 
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Chart HP. SJOBCTLC - Open Hard Copy File 
Refer to Chart 09* 1 • 



FIND LOGICAL 

RECORD LENGTH 

*S2 



*B2 
THE LOGICAL 
RECORD LENGTH 
DKFBNDS ON TUB 
SYSLOG DBVICE 



ARCHITECTURE 
KEY COUNf 
DATA 



*****CU **»♦«****• 

•BLOCK HS* 

*.*.*. *.**.*.*.*** 

•MOVE PREFORMAT * 
* BBCOBD INTO * 



« SET START * 

* ADDRESS AND * 

♦ LENGTH IN CCH * 

• * 
***•**•****«•*•«« 



•**• 

* * 

* J2 * 

* * 
•*** 



*****D1 ********** 

* * 

* BUILD PBA * 
•CHANNEL PHOGBAH* 

* IN CBTSAV • 

* * 
***************** 



*****£ 1 ********** 

* FIND EXTENT * 

* LIHITS AND * 
•BLOCKING FACTOR* 

* FOB FBA • 

* *B3 * 
***************** 



F1 *. 

.* *. 

.• *. 

•. HC * CBEATB . 

*. .* 

*. .* 

*. »• 

• IBS 

X 

.». 

G1 *. 

.* IS ». 

.* EXTENT *. 

•.SUFFICIENTLY . 

•.LARGE FOR.* 

*. FBA .• 

*. »• 

* YES 



*****B2* *••*••*•• 

* FIND EXTENT * 

* LIHITS AND • 
•BLOCKING FACTOB* 

* FOR CRD * 

* *B3 * 
******* ******* *** 



CREATE 
.» 
.* 
. .* 

* YBS 



• FIND START * 

• OF HC MESSAGE * 

• AREA * 

• * 
***************** 



*****j 1********** 

• INITIALIZE * 

• ACTUAL AND * 

• WRAP-AROUND * 

• ADDRESS • 

• * 
***************** 



****K1********W 

* * 

* RETURN * 

* • 
*************** 



*****gi|********** 

* SET SEARCH * 

* ARGUMENT * 

* TO START OF * 

* RC-PILE ♦ 

* * 
***************** 



HCCREA10 

*****pi|********** 

•SIO MR* 

«.*.*. *.*.*^*.«^« 

* WRITE BLOCK * 

* TO HARD COPY • 

* FILE • 

***************** 



*****GI4**«******* 

•OPDBLK HR* 

*.*.*.««*.*.*.*^.* 

• UPDATE SEARCH • 

• ARGUMENT * 

• * 
***************** 



***************** 



*****jj5*«******** 

•SIO HR* 

*..*.«.«..*..* ..*.*-* 

•NRITE PREF08HAT* 

• RECORD TO • 

* HC FILE •KM • 

***************** 



*****?<>*****•*••* 

•UPDATE HR* 

- - --*-*-*..*-.*-* 



***************** 



.*. END OF FILE *• 



*****tl5********** 

•SIO HR» 

*_*•*..*-***.*..*..* 

• NRlTE * 

* END OF FILE * 
RECORD 



****** 



****** 



**• 



* J2 *.X 



**** 
HCSHALL X 
****«j2*«* 

• SET-UP • 

• MESSAGE 1I99A * 
••HARD COPY FILE* 

• TOO SHALL* • 

• * 
***************** 



•***K2**«*»**»* 

• BRANCH TO • 

• MAITBRR IN • 

• *JOBCTLA ♦ 

*************** 



****J4********* 

• * 

• RETURN * 

• * 
*************** 



PREFORMAT RECORD: 
•NO HORE MESSAGES 
IN HC-FILB' 



***j j********* 
RETURN * 

********* ' 
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Chart HQ*. $JOBCTLC - Open Hard Copy lile 
fcefer to Chart 09*1. 



* • 

• A2 * 

* * 
• *** 



* HCIBS j 



<:« 



118 



•*§*A«*****«*«* 
{ IOPOSIPI • 



J HiA&IS jSacdao j 



jcftPtm^K* : 

{ HEADM REC0«D j 



BCIBSOI j,i«* # 

.' ■ ' .. .* **. 






*sitt 5r* 






2 aa i* k . 



J.' 



* tES 



i >«D2**4>*««4i 



"^**$i* , *B2********** 



•*»**p2********** 
j***************** 



ttijtft, 

•sio 

•*i**i 

: "M 
HI *K> 

* *BS 

i 

■ »»» 

,J»1 ** 

.*■• ** 

.» 'JS *• MO 



■t *** ' ' *** 



* 82 ; 

HClESbQ . 
.* 



* IBS 



i*- 



.X.. ...... 



i 

orffKt 

**„ 



*. .• 

* ies 



♦•DJ******* 



HC*£S%0 



.1. 
J. 



'•^WttilBM? 5 *^ 



** *. 

iio ** Mitif *. 

™*. # BLOCK /.♦ 

**. .♦* 

*. .* 

* YES 



t«**«P3««*««»«*«« 



•**MG3«*«******* 
JCtt«l»i!lt*BBCOtB J 



****#H3**«*»*#**« 

UfttflBf^JB: 



.*' 
'.■ .*■ 

* IBS 



■ . ****** 1****«***»* 

:rfi?o85 I 






#**#*J2***«****** 

* KRIPSKA • 

J ACJisKA j 



A 

«***k2«»***«*«* 
• RETUftH #*. 



* ****** 



>.*"*•** 

[pROcBslme 
*. .* 



•>.'*ftMi*v ,f! " 



••••*C4**««****** 
• ACtftSKA j 



*«Di»******* 

'.'HBtilitt** 



*«*#B<i****«**** 

* RETOR* J 

* ■ » 



*fr« 

MtXtlfXOMi 

HCTDSICA ft AC tOll I. DISK ADOBBSS 
STiTSKA * SJAHT AODIJiSS . f 

S^S&8S BH #Ui 

MiAPSKA * MRAP ABOUND ADDRESS 



*li 



'BM 



IdS^Ss* 



.f?*i*p«ttiS^iji6 *t* 



* iCtOSKA J 

♦ SfitSRA • 






#««#«l|#IU4i«4il«#*i 



*H8 * 



•i* 



*«*«*«*••«•**»»** 



* A2 * 



• K* • 

* * 
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Chart HR- $JOBCTLC - Open Hard Copy File 
Refer to Chart 09.. 1. 



****& i********* 

* * 

* HCMSG * 

* * 
*************** 



SET UP 

IPL MESSAGE 

RECORD 



****&3********* 

* * 

* UPDATB • 

* * 

*************** 



****Ai**** 

* 

* SIO 

* 
********** 



*B5» 



********* 



****Q1 ********** 

BLOCK HS* 

.*-*.*-*-*.*-*.* 

HOVB RECORD * 
INTO BLOCK * 

* 
**************** 



* BRITE BLOCK * 

* TO HARD COPX * 

* PILE * 

***************** 



*****£)********** 

•UPDATE HR* 

*-*-*-*-*-*-*-*-* 

* UPDATE ACTOAL * 

* DISK ADDRESS * 

* • 
***************** 



*****p 1********** 

* * 
"CHANNEL PROGRAM* 

* POR * 

* C-TRANSIBNTS * 

* * 
***************** 



****Q1********* 

* * 

* RETURN * 

* * 
*************** 



***************** 



****Ctt ********* 

* * 

* UPDBLK * 

* * 
*************** 



****E2********* 



************ 



**************** 



E3 *. 

.* *. 

CC 

INCREMENT 



****P3******** 



1***************1 



* * 

* RELtlAS* * * 

* SlfSTKM ♦ * 
» (SVC 22) • * 

* * * 
**************** 



***C5****** 



***************** 



*****!)<>********** 

* * * * 

* SEIZE SXSTBH* * 

* * (SVC 22) ♦ * 



NO .* *. 

...*. END OP PILB .* 
*. REACHED .« 



*****U3********** 



***************** 



**J3******* 



********* 



IBS .* NO 
X..*. RECORD 
*. FOUND 



*HQ * 

* * 
* 
HCIOERH 



****ti5********* 

* * 

* RETURN * 

* * 
*************** 



****K3********* 

* * 

* RETURN * 

* * 
*************** 
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Chart HS* SJOBCTLC * Open Hard Copy File 
Refer to Chart 09* 1- 



****&i********* 

* * 

* BLOCK * 

* * 

*************** 



****A2********* 

* * 

* OPENFILB * 

* * 
*************** 



****A3********* 

* * 

* DEBLOCK * 

* * 
*************** 



****JU********* 

* * 

* LOSRBQ00 * 
*************** 



****A>>********* 

* • 

* UCOPNHSG * 

* * 
*************** 



BLOCK .*. 


OPENPILR X 

*****B2*** ******* 


DEBLOCK .*. 


L0GRBQ01 X 

***>**Bl|********** 


HCOPNRSG X 


B1 *. 


B3 *. 


*****U5********** 


.* *. 


* * 


.* *. 


* * 


* * 


YES .* *. 


* SVC 22 * 


.* ^ *. YES 


* SVC 22 * 


* GEE ADDRESS * 


...*. UNBLOCKED .* 


•RELEASE SYSTEM * 


*. DEBLOCKED .*.... 


* RELEASE * 


* OF CCH * 


*. RECORDS .* 


* * 


*. RECORDS . * . 


* SYSTEB * 


* • 


*. .* 


• * 


*. .* . 


* * 


* • 


*. .* 


***************** 


*. .* 


***************** 


***************** 



*****£ 1 ********** 



***************** 



B1**** 



* HOVE In * 

* CONTROL * 

* INPORBATION * 

* ■ ' * 
***************** 



****P1********** 

FIND POSITION * 
OF RECORD * 
IN BLOCK * 

* 
**************** 



****Q j i ********** 



**C2******« 

COPI FILE 
TYPE CODE 
INTO DTF 

* * 

*********** 



*D2********** 

* OPEN FILE * * 

* ADDRESSED * * 

* BY * * 
* *REGISTER 1 



* , * 



* * 



***************** 



****82*********« 

* 

SVC 22 * 

SEIZE SYSTEM * 

* 
* 

*************** 



****P2********* 

* RETURN * 

* TO CALLER * 

* * 

*************** 



*****C3********** 

* * 

* FIND POSITION * 

* OF RECORD * 

* IN BLOCK * 
■* * 
***************** 



*****D3********«* 



***************** 



****g3********* 

* * 

* RETURN * 

* * 

*************** 



***C i»************ 

* ISSUE * 
„ RESPONSE 
* I/O REQUEST * 

***************** 



**«**£(}*******«** 



■ ***************** 



****pi|********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



*****€•)***** ***** 

•LOGRBQ00 HS* 

*.*.*..*_*.*-*_*.* 

* ISSUE ' * 

* MESSAGE 1I97I • 

* *Jib * 

***************** 



****os********* 

* RBTURM • 

* TO CALLER * 

* • 

*************** 



*BJ 
11971 HARD COPY 
FILE ON DISK NOT 
SUPPORTED DUE TO 
OPEN ERROR. 



HOtfE 
INTO 



***************** 



****fii********** 



INFORMATION * 

*' 

.***********«*««* 



****j 1********* 

* * 

* RETURN * 

* * 
*************** 
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Chart IA- $JOBCTLD - Main CSECT 

Refer to Charts 10 to 13. 



* SJOBCTLO * 

* * 
*************** 



ASSGN X 

*****B 1********** 

♦INITL JH* 

♦-*-•-*-»-♦-*-*-* 

* INITIALIZE * 

* STARTING * 

* VALUES * 

***************** 



*****C I********** 
*OPERSCN IB* 
*-*-*-*-.*-*-*-*-* 

* SCAN * 

* OPERANDS * 

* * 
***************** 

**#* * 

* * 

* Dl *.X. 

* * . 

ASSO X 

*****01********** 

♦CSECt ERRCHK IF* 

*.*-*.*-*_*.*-*-* 

* DIAGNOSE * 

* STATEMENT * 



* B2 * 

* * 
**** 



•****B2********** 
*CSECT OPNSYS JA* 
*-*-*-*-•-*-♦-•-* 
* OPBN SYSCLB, * 
♦SYST. I/O UNITS* 



******** 

**** 

* * 

* C2 *. 

***• 
" C2 



******** 



********, 



******** 



***************** 
**** 



****C3********* 

* BRANCH TO * 

* CONTROL IN * 

* SJOBCTLA * 

*************** 



SJOBCTLD 

************* 



CLOSE 

*****BI*********** 

•INITL JH* 

*-*-*-*-*-*-*-*-* 

* INITIALIZE * 
♦STARTING VALUES* 

* * 
***************** 



*****Ci|******i 
♦CSECT CLSSIS JG< 
*-*.*-*-*_*„*. 

* PROCESS 

* CLOSE 

* 

*************! 



****D<t ********* 

* BRANCH TO * 

* CONTROL IN * 

* SJOBCTLA * 

*************** 



*****? 1 ********** 
•CSECT ASSIGN I«* 

*-*-*-*-*-*-*-*-* 
.♦PROCESS ASSIGN • 

* FROM BNTRY * 

* ASSGH20 * 
***************** 



E2 

* 

LST/OUT 



♦. YES 
IGN/UA .*..X 



ASS1 X 

*****(; J********** 

♦CSECT FNDPUB IK* 

*.*.*.*.*_*.*-*_* 

* FIND * 

* A PUB * 

* * 
***************** 



*****m********** 

*CSECT ASSIGN IQ* 



* ASSIGNMENT 

* 

*•**************; 



G2 * 

* 

TAPE 



*****H2* ********* 
*EXCPROG JU* 

*-*-*-*-*-*-*-*-* 

* ISSUE * 

* SENSE * 

* * 
***************** 



***** 
♦JG * 
* G3* 



CLOSO X 

*****ptt********** 

*opersc:n ib* 

*.*-*.*.*_*_*.*-* 

♦process operscn* 

* prom entry * 

* ASSGNO * 

***************** 



* C3 * 

• * 
**** 



* C2 * 

* * 
**** 



* B2 * 

* * 
**** 



*****K2********** 
♦LOGOUT GH* 

*-*-*-*-*-*-*-*-* 

* LOG STATEMENT * 

* ON SYSLOG * 

* * 
***************** 



**** 

* * 

* B3 * 

* * 
**** 
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Chart IB- IJOBCTLD - Scan Operands of ASSGN Statement (Part 1 of 4) 
Refer to Charts 10 to 13.. 



**** 
* * 

* A2 * 

* * 
**** 



**** A 1********* 

* CSECT * 

* OPERSCN * 

* * 
*************** 



* SAVE RETURN * 

* REGISTER ADDR * 

* PIB DSECT * 

* * 
***************** 



.*. 

C1 ». 
.* DID *. 
* STATEMENT 
START WITH 



*. 



INDICATE 

TEMPORARY 

ASSIGN 



BBGSSXXX 

*****£ f ********** 

*SCANR2 GK* 

*-*-*-*_*-*-*-*-* 

* POINT TO * 

* 1ST OPERAND * 

* SYSXXX * 

***************** 



INPUT 

FROM 

CARD 



****C2********* 

* BRANCH TO * 

* CONTROL IN * 

* $JOBCTLA * 

*************** 



* RESTORE 

* RETURN 

* REGISTER 

* 
**************** 



****B3********* 

* RETURN TO * 

* CALLING SBO * 

* * 
*************** 



**** 

* * 

* Bd * 

* * 
**** 


**** 

* * 

* us *■ 

* * .. 
**** . 


BNDSSXXX '. 
SCiOPRS X 

*****gil ********** 

•SCANBJ GK* 

*-*_*.*.*.*.*.*.* 

* GET NEXT *X.. 

* OPERAND * 


OPX^ X 

**B5******* 

* INDICATE 
* OLD 

* STATEMENT 



***************** 



*********** 



***** 
REFERENCES 
TO IBB4: x 
ICD5, ICE1 *****£5********** 

*• SSIS' !SS?*HBXC0» JJ* 

*.IDB4, IDD2 *-*-*-*-*-*-*-*-* 



* D3 * 

* • 
**** 



* SAVE * 

* RETURN * 

* REGISTER * 

* * 
***************** 



***************** 



*****05********** 

* MOVE CDU * 

* TO INFO TABLE • 

* AND INDICATE * 

* A CUU LIST * 

* * 
***************** 



X 

***** 
*KA * 
* B1* 



* E3 *.X 



**** 
ASSGN 1 X 

*****£>3********4 

* INITIALIZE 

* DEVICE TYPE, 

* CLEAR MODE 

* HORKFIELD 

* 
**************** 



NO 


* DID A 


* 




. ..* 


COMMA END 




* 




*. SCAN 


* 






*. .* 






X 


*. .* 






***** 


* YES 






*GN * 








* C2* 










* * 










* 










NVSERR 










*****G1******** 




*SYSXXX 


KF* 


*• 


.*_*_*_*_*_*. 


* 




* 


CHECK XXX 




* 


* 


SYMBOLIC UNIT 


* 


* 


ADDRESS 




• 


********* 


********* 



**G2******* 

* * 
* SET ASSGNV2 * 

* TO ALLOW * 
♦SYSLINK IN FG* 

* * 
*********** 



*****B1 ********** 






H2 *. 








♦TSTPROC KA* 






* *. 








*-*-*-*-*-*-*-*-* 


YES 


* 


ASSGN 


*. 






* TBST LANGUAGE * 


. ..* 




FOR 




* 




* RESTRICTIONS * 




* 


SYSCLB . 


* 






* * 






*. .* 








***************** 


X 

***** 

*G« * 
* C2* 

* * 




*. .* 
* NO 

*x. . .. 




















* 










X 


NVSERR 




X 








ASSGNV 


.*. 






J1 *. 






J2 *. 






.* *. 






* *. 






.* *. KBS 


♦ BACI 


*. 


YES 


*. PROGRAMMER .* 


... * 




PARTITION 




*••• . 


*. UNIT .* 




* 




* 




*. .* 






*. .*" 






*. .* 


X 




*. .* 




X 


* NO 


**** 

* * 

* B4 * 




* NO 




**** 
* 
* D3 


X 


* * 








* 


**** 


**** 




. 




* 


l>** 



* MULTI- *. N 
PROGRAMMING .*. 
*. SUPPORT .* 



* ALL FG *. NO 
PARTITIONS .*... 
♦.DBTACHBD .* 



E<t *. 




*****£!>**«******* 


.* * 




♦PUBCUUSC KC* 


END OF 


*. XBS 


*- 


.*-*-*-*-*-*-*-* 


ALL TABLES 


.*.... 


* 


FIND A * 


. REACHED 


* 


* 


PUB ENTRY * 


*. .* 




* 


* 


* . . * 


X 


*4 


>*************** 


* NO 


***** 
*GM * 
* C2* 

* * 

* 








NVSE1B 




X 


.*. 






.*. 


F* ». 






F5 *. 


.* * 






.* *. 


OPERAND 


*. 




* PUB *. 


POUND 


.* 


*. 


FOUND .* 



.♦OPERAND*. 
.* ALLOWED 
IN THIS 
♦.POSITION . 



.*IS OPERAN 
. X«CUU' 
*. CUU 



**** 
* 

* B5 
* 

**** 



***** 
*GN * 
* C2* 



***** 
*IC * 
* B1* 



* B4* 

* * 

**** 



**** 

* * 

* J5* 



**** 

* * 

* B«»* 

* * 
**** 



**j>>******* 

* * 

FORCE SHR 

* * 
*********** 



*K3 
ASSGNO IS ENTRYPOINT 
OF CSECT OPERSCN ^ 
FOR CLOSE PROCESSING 



**** 

* * 

* E3 * 

* * 
**** 
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Chart IC. SJOBCTLD - Scan Operands of ASSGN Statement (Part 2 of 4) 
Refer to Charts 10 to 13- 



♦IB * 
• HM* 



♦ ♦** 

* * 

• B* • 
***» 



*••* 

* « 

* an * 

* * 
•*•* 



IS •. HO 
OPEBAND .*... 
UA .* 



BJ *. 
.• IS ♦. 

• 0PEBA8D A « 
OBVXCB TYPE 

♦ . CLASS .♦ 



*DBV. MPE LIST 
IB OPERAND 
TABLE 



•DBVTBST KO* 

».«.«>. *.*-*.*..*.« 

• XBST FOB * 

* BFCM/BFCU * 



•*ci******* 


**C2******* 


• • 


• 


* INDICATE • 


* INDICATE 


* OLD * 


♦ OLD 
* STATEMENT 


* STATEMENT • 


• * 


* 


*•** 




• •** 


• IB * 




♦IB ♦ 


• PJ *.X 




♦ B3 ♦.X. 


* * 




♦ ♦ 


• *** 




**•*. 


INDOA 




INDIGN X 


**D1* 


l«*««* 


+•02* ****** 


• * 


* 


PJ * INDICATE * 


• INDICATE 


* m ♦ 


♦ IGN 


* ASS 


ItiN .* 


♦ ASSIGN 



•*D3******* 

SET 3800 
PBATUBB 
SWITCH 



*********** 



♦ 3800 ♦ 
PBATUBB 
SNITCH 



•****D«********** 



•****g1********** 

♦ HOVE UP MASK ♦ 

♦ TO NEHLUB; ♦ 

♦ HOVE UA IN ♦ 

♦ RESSAGB ♦ 
***************** 



***** 
♦IB ♦ 
♦ B«»* 



♦ UNIT ♦. 

SYSBD3. 
SYSIPT 08 
SYSIN . 



X 

***** 
♦KA ♦ 
* BJ* 

* * 

* 

PNIOAG 



**P3******* 



•******••** 



***************** 



*****pil********** 

* * 

* BUILD DEVICE ♦ 

* TYPE LIST ♦ 

* IN INFO TABLE ♦ 



.♦ ALL ♦. 

HPCU/MPCH *. YES 
DEVICES ...... 

.SPBCIPIBD.^ 



***** 
•IB ♦ 
♦ Btt* 

• * 



***** 
*GN ♦ 
♦ C2* 



***«*G2********** 

♦ HOVE IGN BASK ♦ 

♦ TO NENLUB: • 

♦ HOVE IGN IN ♦ 

♦ HESSAGE ♦ 

♦ * 
*•*•***********•• 



***** 
*I« * 
♦ B1* 



X 

***** 

• IB * 

• B4* 



**H3******* 

* ' * 

INDICATE 

9-TBACK 

TAPS 



**J3******* 

IBDICATB 

DEVICE TYPE 

LIST 

* * 

*********** 



***** 
♦ID ♦ 

♦ B1* 



INDICATE 

HPCH/HFCU 

TEST 

* * 

*********** 



**** 

* * 

♦ B<* ♦ 



**** 

* * 

* 85 * 

* * 
*•** 
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Chart ID. $JOBCTLD - Scan Operands of ASSGN Statement (Part 3 of 4) 
Refer to Charts 10 to 13* 



***** 
♦ic * 

* H4* 

* * 



♦ B» ♦ 

* * 
**** 



H2 



»* UNIT *. 
* SXSBDB 

SXSIPT OR 
*. SYSPCH . 

*. .♦ 
*. .* 
* xfiS 



TEST 

* * 

*********** 



*****£ 1********** 

♦DRVTBST RO* 

«.*•*.*«*-*-*.*.« 

* TEST FOB, * 
» BFCH/BPCU ♦ 

I*********** 



**»1******* 

* * 
TURN OFF 

TEST ^ 
INDICATOR 

* * 
*********** 



.* Hrcy/HPcn *. no 
♦ . devices .♦..» 

♦.SPECIFIED.* 



OPERAND 
A X«CUU» 
. HSf . 

♦ . •■'.■•* 



*****C. 

* CON 

* quo to HEX 

* AND MOVE THEB * 

* TO INFO TABLE * 

* * 
***************** 



**l)2******* 



*********** 



• IB * 

* BU* 



***** 

*SH * 

• C2* 

* * 



**H1******* 



% Mfli 



Ip« ON 
^PBR 
TCN 



*********** 



X 

***** 

♦ IB * 

* B4* 



B3 *. 

* *. 

OPERAND 
X«SS« .' 
*. # * 
♦ . .♦ 
« YES 



0PM0DB2 

*****C3********** 
♦HEXCON JJ* 
*-*-*•*.»-*-*-*.* 

• CONVERT ♦ X., 

♦ SS TO HEX ♦ 

* * 
***************** 



«****D3********* 
* 

* HOVE NODE 

* BYTE TO 

* INFO TABLE 
* 



**B3******* 

* * 
INDICATE 
TEST FOR 

TAPE 

* * 

*********** 



•****P3********** . 

♦DBVTEST KD* 

*_*.*..*. *.*.*_*.* 

* TEST FOR » 

* TAPES ♦ 

* * 
' ***************** 



**G3******* 

* * 
TURN OFF 
TAPE IEST 
INDICATOB 

* * 

*********** 



*****H3********** 

♦HODBTEST KC* 

*-*-*-*-*-*-***-* 

* TEST FOR * 

* VALID TAPE * 

* UNITS * 
***************** 



J3 *. 

.♦ ALL *. 

.♦TAPE UNITS ♦. 

♦. OF HAfCHXRG . 

♦ . TYPE .♦ 

♦ . ♦J* .♦ 



**B4******* 

* * 

INDICATE 

MODE 
SPECIFIED 

*■■ * 

*********** 



***♦* 

♦ IB ♦ 

♦ B4^ 



***** 

• IE ♦ 

♦ A1* 



*****C5********** 

* SET ♦ 

* TABLE POINTER ♦ 

* io BEGIN OF ♦ 

* OPEBTABi ♦ 

* * 
***************** 



.* HOD* *. 

OR ALT ♦. YES 
ALBEADX ...... 

.SPBCIFIKD.^ 



X 

***** 

♦ 6N * 

* C2^ 



* IBS 



*•*«* 
♦6N ♦ 
♦ C2^ 



IS SPECIFIED. ALL 
DEVICES SPECIFIED 
HOST BE T-TRACK 
TAPE UNITS. THE 
SIHE APPLIES FOR 
9-TRACK. 
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Chart IE, $JOBCTLD - Scan Operands of ASSGN Statement (Part 4 of 4) 
Refer to Charts 10 to 13- 



IS 

OPERAND 

SHR 



**B1******* 

• « 
INDICATE 

SHE 
SPECIFIED 

• * 
*********** 



INDICATE 

TEST FOR 

DISKS 

* * 

***•****••• 



IS ♦. NO 
OPERAND . *... 
ALL .* 



**B2******« 



**g1******* 



****C2********* 
DEVTBST KD 

TEST FOR 
TAPES 

**D2******* 



»*B3******« 

* • 

INDICATE 

TEMP 

ASSIGN 



***** 

♦ IB • 

* BU* 



turn orr * 

TEMP • 
INDICATOR • 

* 
*********** 

**•* 

. *ib * 



is 

OPERAND 
SYSYXY 



***** 
*GW * 
* C2* 



* INDICATE * 
•TEST FOR DISKS 

* AND TAPES * 



• SYSm KP* 



* TURN OFF * 

• INDICATOR * 

•FOR TAPE TEST* 



* BJ * 

* * 
**•* 



*****[> H ***«•*•*•* 

*DBVTBST KD* 

*.*.*.*_***-*«*..* 

•TEST FOR DISKS * 

* AND TAPES * 

• * 
***************** 



.* ALL 
TAPES 
•.SPECIFIED. 



F1 *. 






**P2******* 


.* *. 






• 


* ALL * 


YES 




• INDICATE 


DISKS 


*..X 




• ALTERNATE 


•.SPECIFIED.* 






* ASSIGN 


*. .* 






* 


• . .* 


X 


*********** 


♦ NO 


***** 

• GW • 

• C2* 




X 


* * 




***** 


* 




•IB * 


NVSEER 




* an* 






■ ■■ * * 




**«««G 2******* 


* 




* 


SCNOPRS 




* HOVE 
••AS ALTERNATE 








* IN MESSAGE 





EJ ♦. 




w*EH******* 




.* *. 




• TURN OFF 




.* MB • 


YES 


* INDICATOR 


« 


IS 


*. • . . 


* FOR DISK AND 
• TAPE TEST 




*. IGN .* 






*. .• 




* 




*. .• 


X 


*********** 




• NO 


***** 

*ic • 

* D2* 

* * 
* 






X 


INDIGN 






n *. 




P« *. 




.* *. 




.* •. 




.* LUB • 


YES 


.• ALL TAPES 


* 


IS 


*.. . . 


*. OR DISKS 
•.SPECIFIED. 




*. UA .* 






•• .* 




• . .• 




*. .♦ 


X 


*. •• 




• NO 


***** 
*IC * 
• D1* 

* * 

* 

INDOA 


* YES 




X 






* 


«***63********** 


GH *. 


• 


GET CUU 


• 


.♦ •» 


* 


FROM PUB 


* 


.• VOL 


* 


AND HOVE IT 
IN INFO TABLE 


• 


*. SBRTIAL NO. 


* 


* 


*. BLANK . 



.* SYSYYY 
"*. SYSOUT 



SYSYYY 
SYS1N 



***** 

• KA • 

• Bl* 



***************** 



**Hi******* 

* * 
INDICATE 

CUU 
LIST 

* * 
*********** 



•*J3******* 

* : * 

FORCE SHR 

FOR OEVSCAN 

ROUTINE 

* • 
*********** 



**K3******* 

* * 

* INDICATE 
ASSGN SYSXX, 

* SYSYYY 

* * 
*********** 



.* VOL *. 
.•SERIAL NO. •. YES 
*. LONGER THAN .*..X 
•.6 CHARS. .• 



.* VOL *. 
.•SERIAL NO. • 
•.SPECIF, BETH. 
*. QUOTES .* 



• GET LUB AND * 

• PUB POINTERS * 

• FOR SYSIPT • 

***************** 



•PTRS SYSBDH*. 

AND SYSIPT . 

*. EQUAL . * 



* B3* 

• * 
*•*• 



***** j •>********** 

• PAD VOL SEH.NO.* 

* WITH ZEilOS TO * 
.X»TBK LEFT. HOVE • 

• TO INFO TABLE * 

* AND HSG • 



*****K I*********** 
•PAD VOL SER.NO.* 
•TO THE RT. WITH* 
•BLANKS AND HOVE*. 

• TO INFO TABLE * 

• ON HS6 • 
***************** 



• INDICATE • 
.X* VOLUME SEKIAL • 
•NO. SPECIFIED* 



***** 

• IB • 

* B»» 



***** 

• IB • 

• B«*» 
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Chart IF, IJOBCTLD - Error Checking 
Refer to Charts 10 to 13* 



****Al********* 

* CSBCT * 

* ERRCHK * 

* • 
*************** 



CHK X x 
*****B1********** 

* * 

* SAYB * 

* BBTURN * 

* REGISTER * 

* * 
***************** 








i 

.*. 
C1 ** 

.* *. 

.* IGN *. IBS 
*. OR UA .* 

♦.SPBCIPIED.* 


.*. 
C2 *. 

.* *. 
.* OMLf • 
..X*. TBMP/PBBN 

♦.SPECIFIED.* 



.*&ROGBAHNBR *. NO 
. LOGICAL .*... 
*. UNIT .* 



••02******* 

* INDICATE 
.X» TEST FOR 

* 22H5 

* * 

*********** 



>•*** 

* * 

***************** 



••on******* 
* torn opf 



********** 



• ■• 22»i> *. *ES. 
.!•. PBINTBH **..*. 
♦.SPECIFIED.* 

*. .* . 
♦. .♦ X 
* no ••••* 

•OK * 
. * C2* 

* * 



SYSBLB 
SYSSLB 



************** 



•*p3******* 



*********** 



*****pK********** 

*DB»TBST l KD* 

*-*-*-*-**•-*-*-* 



**l» •>****•** 



. ***************** 



**H2******« 



*********** 



*****H3****«***** 

♦DEVTEST KD* 

*.*-*.*.*_*.*•*.* 

X* TEST *. 

* FOB DISK * 

* * 
***************** 



.* *» 

.* SAHB ♦ . 

. DEVICE TYPE . 

• .AS SYSBBS.* 



**Hi4******* 

* * 

torn npp^ 

ICATOB^P. 
ISK TESf 

*********** 



***** 
*KA * 
* B2* 



ASSGNP .*. 










*. 


.*. 


Jl ♦. 








J 2 


*. 


J3 * 


.* *. 








* 


* 4 


.* 


.* SYSRDR *. 


YBS 




,* 


SYSBOR *. YBS 


.* ASSGN 


*. SYSIPT 


...... 


..X* 




SYSIN .* 


...X*. TO UA, 


*♦ SYSIN .♦ 






♦ . 


.* 


*. IGN 


*. .* 








*. 


.* 


*. 


*. .♦ 








* 


.* 


*. .* 


* NO 










* NO 


* N 


*X 










•X..». ........ 


• 


X 














***** 














*IG * 














* A1* 














* * 














* 














ASSGN403 















*****jll********** 

* * 

* LOAD STSLOG « 
t* LUB IMDRX IN *. 

* HRKBG3 * 

* * 
**«***••*****•*** 



.X* GET PUb AUDI • 

* OP SI SLOG • 

* IP ASSIGNED * 

***************** 



SXSLOG ♦. 
ASSIGNED 


XES 


*. .. . 


.♦ 




♦* .* 




♦ . .♦ 


X 


* NO 


***** 




*IG * 


.PNlOAG 
X 


VI* 


***** 


- * 


♦KA * 




* BJ* 
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Chart IG- $JOBCTLD - Error Checking 
Refer to Charts 10 to 13- 



***** 
*ip * 
* ji* 



***** 
♦if * 

* K5* 



**** 

* • 

* AJ ♦ 

* * 
**•* 



**** 

* * 

* KH ♦ 

* * 
**** 



♦ A3 * 

* * 
**** 



ASSGN403 .♦. 




A1 *. 




.* *. 


■0 .♦ 




. . .*. 


SYS LOG 


* 






"♦. .♦* 


X 


*. .* 


*•** 


* YES 


* 




A3 * 




* 




**** 


. 




X 




»*B1******* 


* 




• 


INDICATE 


* 


TEST FOB 
1052/CRT 


* 



GET PUB 

DEVICE TYPE 

OP SYSLOG 



.* IS •. YES 

. ASSIGNMENT .*... 
♦FOR SXSOUT.* 



*********** 



**Ci******* 

* * 
INDICATE 
TEST FOR 
1052/CRT 

* * 
*********** 



*****U i ********** 

♦DEVTBST KD^ 

*.*.*.*.*.*_*_*_* 



***************** 



**B1******* 

* • 

♦ TURN OFF ♦ 

♦ INDICATOR POR ♦ 

♦1052/CRT TEST* 

*********** 



.* UASD * 
.SYSIN/SYSOUT 
♦. OPTION .* 



***** 

♦ KA ♦ 

♦ K3* 



**** 

* * 

* D2 * 

* * 
**** 



**** 

* * 

* D2 * 

* * 
**** 



*•** 

♦ * 

♦ b<* *.x. - 

♦ * 

♦♦♦♦ p 

ASSGNB6D X 

*****B(* ********** 
♦DISKDEV KF* 
*-»-*-♦-*-*-*-.*-* 

♦ CHECK POR ♦ 
♦PREVIOUS ASSIGN* 

♦ TO DISK ♦ 
***************** 



***** 

♦ KA * 

♦ El* 



***** 

♦ IE ♦ 

* B1» 



♦KA ♦ 
♦ E3^ 

* * 



PROHIBIT LINK * 
* EDIT OUTPUT ♦ 
♦ ON SYSLNK ♦ 

*********** 



**B3******* 



PREVIOUS 
ASSIGN 13 
. DISK 



ASSIGN 

POR 

SYSIN 



ASSIGN 

FOR 
SVSOUT 



****as********** 



***************** 



C5 *. 

.*LS ASS-^. 

.♦IGNHBNT FOB*. 

•SYSRDR, SXS1PT. 

♦ .OR S*SIN .♦ 



**** 

* * 

* J4 * 

* * 
**** 



**** 

* * 

* H5^ 

* * 
**** 



.♦IS ASS-*. 
.♦IGNHENT FOR*. 
. SYSPCH OR .' 
*. SYSOUT .* 



* HAS * 

SYSIPT BEEN 
♦. CLOSED .* 



***** 
♦IH ♦ 
♦ B1* 



*KA * 

vr 



ANY 
1052/CL_ . 
♦. SPECIFIED. ♦ 



.NON 1052/CRT .♦ 



*****Fi|********** 

* * 

♦ GET ADDS ♦ 
♦OF IPT/LST LUB ♦ 



GBr ADDS 
IPT/LST LUB 
IN URKRS3 



***** 
♦IH ♦ 
♦ Bl* 



*****Q1 ********** 



***************** 



*****B1 ********** 
*CHKASG GU^ 

*-*-*-*-*-*-*-*-* 
•TEST ASSIGNMENT^ 

• OF SYSRDR ♦ 

* * 
***************** 



* J2 * 

* * 
**** 



•*G3******* 

* * 

♦ INDICATE ♦ 
♦TEST FOR DISK/ 

♦ DISKETTE ♦ 

* * 
*********** 



*****B3********** 
♦DEFTEST KD^ 
*-*.*-*-«.*-*-*-* 

♦ TEST FOR ♦ 

♦ DISK/DISKETTE ♦ 

***************** 



***************** 



*****Q4********** 

♦DISKDEV2 KF^ 
*-*-*_*-*-*-*-*_* 
* CHUCK FOR ♦ 
♦ASSIGN TO DISK ♦ 



*f >>*********! 

* (iBT AUDR 

* OF SXSLST 

* DIB 

* 
**************** 

**** 



.*IS ASSIGN- 
*. KENT FOR 

*. SXSLST . 



*•* 



************* 



JI *. 






J2 "♦. 








**J3******* 


♦ ♦. 






.* 


*. 






♦ TURN OFF ♦ 


SYSRDR 


*, 


NO 


.* TEHP 




*. 


NO 


•INDICATOR FOR* 


ASSIGNED 


*' 


*. . . . 


♦. ASSIGN 
*. 




*' 


*.... 


♦ DISK/DISKETTE 
♦ TBST ♦ 


♦ . .*' 






♦ . 


*' 






* * 


♦. .♦ 




X 


♦ * .♦ 






X 


*********** 


* YES 




***** 


♦ YES 




***• 








♦KA ♦ 








* * 




...x! 




* B3* 








* AH * 




X 




* * 


X 






* * 




♦ *•* 




* 


***** 






*•** 




* * 




FHIOAG 


♦KA ♦ 








X 


* A3 * 






♦ E3^ 








.♦. 


* * 






* * 








K3 ♦. 


**** 






* 
FNIOAG 








.♦ ♦. 

.♦ DISK ♦. 

♦. SPECIFIED . 



X 






** 


»* X 


.*. 




ASSGNDIU .*. 


H* ♦. 








H5 •. 


.♦ ♦ 








.* * 


IPT/LST 
ASSIGNED 


* 


NO 


.* 


HAS THE 




♦ ... . 


*. 


FILE BEEN 


. TO DISK . 


* 




* 


CLOSED 


♦ . .♦ 








♦ . .♦ 


♦ . .♦ 




X 




*. .* 


* YES 
♦♦ 




***** 
♦ IH * 




* NO 


* 




♦ B1* 






<t ♦.X. 




* * 




X 


* 




* 




***** 


*♦ X 




ASSGNB6 




*KA * 


.♦. 








♦ B!>* 


J«» *. 








* * 


.♦ ♦. 








* 


IS THE 


* 


NO 




SPNC 


FILE BEING 




♦ . . . . 






. CLOSED . 


* 








♦. .♦ 










*. .* 




X 






♦ XES 




**** 

* * 

♦ A5 ♦ 






X 




• * 






***** 




**** 






♦IH * 










* B1* 










* * 










* 










ASSGNB6 











♦ J2 ♦ 

* * 
**** 
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** REFERENCES 

•TO IHB1: 

** IGA5, IGEU 

* IGF3, IGG5 

IGH4. IGJ4 



*IJ * 
* B1* 

* * 



ASSGNJ6 
. X ASSUNJb 

*mmm*c\* ********* C2 

♦ LOAD LUB,. * .* 



* TO IH - 

* REGISTER * 

***************** 



*****l)-| ********** 
♦CHKASG 3 GU* 

*.*4.*-*_*..* _*.*-* 

* CHECK * 

* ASSIGNMENT * 

* OF THIS UNIT * 

***************** 



.* IS 
.*. ASSIGNMENT 
*. SYSPCH . 



* ASSIGN *. NO 
FOR A TAPE .*... 
*. UNIT .* 



***** 
*KA * 
* B2* 



X 

***** 
*KA * 
* BJ* 



F1 •. 

.* IS ** 
• ASSGM FOR * 

PROGRAMMER ^ 
*. UNIT .* 



* * 

* F2 ♦ 

* • 
• *** 



*****p2********** 
♦CHKASG GU* 
*.*_*.*.*..*-*..*-* 

* CHECK SYSLST * 

• ASSIGNMENT * 



******** 



.*• 

G1 ♦ . 
.♦ IS •, 
ASSIGN- 
MENT FOR 
. SYSOUT 



******** 



**** 

* * 

* C2 ♦ 

* * 
**•* 



m****n\********** 
♦CHKASG GU* 

*.*_*-*.*.*.*.*-* 

* CHECK SI 3 PC H * 

* ASSIGNMENT * 

* * 
***************** 



SYSOUT 
MODE 
*Htt 



E3 *. 

.* IS *. 
.♦THERE A JIB*. 
. ATTACHED TO . 
♦.THIS LUB .* 



*****P3********** 

* * 

* MOVE LUB * 

* TO WORK AREA * 

* JIBCHN * 

* * 
***************** 



*****Q3********** 

♦SCNJIB JS* 

*-*.*.*_*.*-*.*•* 

♦COMPUTE ADDRESS* 
♦OF ATTACHED JIB^ 

* * 

***************** 



♦H« 
SXSLST AHD SYSPCH 
PUB ADDRESSES ABE 
COMPARED. IF THEY 
ARE EQUAL, SYSOUT 
MODE IS I* EFFECT. 



♦ IS 

ASSIGNMENT 
». TEMP 



* IS 

ASSIGNMENT 
*. TEMP 



***** 
*KA * 
* Ei* 



***** 
*KA * 
• E3* 



*****K ) ********** 

* * 

* SAVE SYSPCH * 

* PUB ADDRESS • 

* FROM NSKRGH * 

* * 
***************** 



***** 
*IJ * 
* B1* 



**** 

* * 

* F2 * 
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**** 

» At> 



***** REPE&RNCES 

* * TO UB1: 

* *« IHB1. IHJ2 



ASSGN36 .*. 






Bl *. 






.* * 






.* TBHP 


*. 


NO 


*. ASSIGN 




*.... 


*. 


• 




*. .» 






*. .* 




X 


* YBS 




**** 
* 

• J3 
* 

**** 



***** C J**** 1 ****** 
•CHKASG GU* 
*.*.*.*.*.*..*..«.* 

* GET PUB ADDS * 

* OP SYSPCH. * 

* IP ASSIGNED * 

***************** 



• «•• 

* • 

* Bi * 

* * 

• *** 



NO .* 

...*. SYSOUT 
*. NODE 



**A5******* 

* INDICATE * 

* PIBST ENTRY * 
*P0R SUBHUUlINE 

* UETPUB * 

* * 
*********** 



**** 
« * 
* Bt> *.X 



ASSGN9 

****«B5****« 
•GETPUB 



*GET A PUB HAT- * 
•CBING HI'XH INPO* 
* TABLE ENTRY * 
***************** 



*****£ i********** 

* * 

* GET ZONE * 

* OP PUB * 

* DEVICE TYPE * 

* * 
***************** 



IS IT PUB *. 
POB TAPE 
. DEVICE .* 



X 

***** 
*KA * 
* Ei* 



* RESTORE * 

* RETURN *X 

* REGISTER * 

* * 
*•**•*****•****•* 



****Eh******** 

* RETURN TO 

* CALLIMS sag. 

************** 



EMU OP 
INPO LIST 
. RBACHBD . 



*****[;()***•****** 

* • 

* SAVE iHONE * 

* OP PUB * 
» DEVICE TYPJS * 



*****£ 1********** 

* * 

* SAVE PUB * 

* ENTRY ADDR * 

* PROM LINKDGH * 

* * 
***************** 



*****H1 ********** 
•CHKASG GU* 

*-*.*.*-*.*.*_*-* 

* GET PUB ADDR * 

* OP SYSLST, * 

* IP ASSIGNED * 

***************** 



*. ASSIGNED 



* 83 * 

* * 
*•** 



PUB 

DEVICE 

A XCR 



* SAVE IJttOLE 

* PUB DEVICE 

* fxp£ CODE 

************** 



*****G3********** 

•GETJIB JN* 

*.*-*.*_*-«.*.*.* 

* CHECK POR * 

* 2 JIBS * 

* AVAILABLE * 

***************** 



HIT 
ON FIRST 
. ENTRY 



ASSGN9A 

*****(j5* ********* 

* HOVE DEVICE * 
•TYPE TO XAi'ABLB* 

* CO tSHSUJiE HIT * 

* POR PROG UNIT * 

* * 
***************** 



H3 *. 






H<t 


*. 






*****H>j********** 


.* * 






.* *. 






* * 


.* TNO 


*. 


NO 


.* ACT *. YES 






* k»OINT TO * 


*. PREE JIBS 




*.... *. DEVICE TYPE .*..X 






* XATABLB * 


*. AVAILABLE. 


*" 




*. IS ODD .* 






* * 


*. .* 






*. .* 








*. .* 




X 


«. ,* X 




***************** 


* YES 




***** 


* NO ***• 




**•* . 




*KA * 


. * 


* 




* * * 




* B5* 


* BS 






* J3 *.X. 




* • 


X * 






* * . 




* 


***** **** 




*•** X 




NORHJB 


*KA * 




X 


ASSGN27 .*. 






* B2* 


ASSGI .*. 


J3 *. 






* * 




J5 *. 


.* *. 






* 




.* *. 


.* IGN OR UA 


*. 


YBS 


INDVTP 




.* HIT *. 


*. SPECIFIED 


*' 


*•• . . 








.**. IN TABLB •* 


*. 








*. .* 


*. .* 












■•• .* 


*. .* 




X 








*. .• 


* NO 




***** 
♦IS * 








* NO 






* C2* 










X 




* * 










**** 




* 










* * 




ASSGN20 








X 


* 15 * 












.*. 


* * 






n****f( 14**** ****** 




Kb *. 


„**** 






► * 




. * *. 








» POINT TO * 

► NEXT ENTRY *X.... 
* * 

► * 

***************** 




MO .* END *. 
.*. OP TABLE .* 
*. .* 
*. . * 

*. .* 
* YKS 

.* INDVTP 
X 

***** 






















*KA * 












* Bi* 
















* * 
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****&] ********* 
CSECT * 
FINDPUB * 

* 
*************** 



*****B1 ********** 

* * 

* SAVE * 

* RETURN * 

* REGISTER * 
***************** 



**C1******* 



■* iui, inn, inu *■ 

♦CIDA switches* 
* *A2 * 

*********** 



A2 




DND = 


DEVICE HOT DEFINED 


IDS = 


INVALID DEVICE STATUS 


CIDA = 


CONFLICTING I/O 




ASSIGNMENT 


UCUA = 


UNIT CURRENfLY 




UNASSIGNABLE 


NRM » 


NON-REMOVABLE 




MEDIA 




**** ' 




* * 




♦ B2 ♦ 




* * 




**** 


GET V01 X 


* 


****U2********** 


* 




* 


SAVE PUB * 




CHANNEL/UNIf * 


♦AMD REG. 1, lb * 



***************** 



***** C 2********** 

* USE •HODVCE* * 

* MACRO. * 

* *K2 * 

* SVC 10.1 * 

* * 
***************** 



*.X 



REFERENCES 
TO IKD1: 
IME3. IPB3 



**** 
GETNEXT 

*****Q1 ********** 

*GETPUB KB* 

*.*.*.*.*-*.*.*_* 
..X* GET NEXT PUB 

♦FROM INFO TABLE* 
* LIST * 
***************** 



*X. 



*****g2********** 

* * 

* LOAD ADDR OF * 

* GETVCB AREA * 

* IN WRKRG5 * 

***************** 



* Eb* 

. * * 

* 

ENDSCAN 



DEVICE DOWN .* 



*****q 1 ********** 

* . . * 

* SAVE ZONE * 

* OF PUB * 

* DEVICE TYPE * 

* * 
***************** 



DASD 

CKU 

DEVICE 



DASD *. IBS 
FBA .*..X 

DEVICE .* 



* TURN OFF * 

* NON REMOVABLE * 

* SWITCH NRHSW * 

* * 
***************** 



*****? 2* ********* 

* USE «GETVCE« * 

* MACRO. * 

* *K3 * 

* SVC 93 * 

* * 
***************** 



***G2********** 

* 

SAVE GETVCE * 



* FROM REG. 1 

* 
************* 



*****H2********** 

* * 

* RESTORE * 

* BASE REG. 1t> * 

* AND REG. 1 * 

* * 
***************** 



**** 

* * 

* Bb * 



**B3******* 



********* 

**** 

* * 

* C3 * 



****Bi4******* 



************** 



YES .* DEVICE 



*****D3********** 

* * 

* SAVE * 

* WHOLE 2495 * 

* DEVICE TYPE * 

* * 
***************** 



EVIC 
2955 



* NO **** 
**** * * 

. * * * C3 * 
. .X* B3 * * * 

* * **** 

**** 



MODVCE UPDATES THE 
DASD DEVICE/VOLUME 
INFORMATION 



* SAVE * 

* PUB * 

* POINTER * 

* * 
***************** 



****P3********** 

* 

COMPUTE * 

PUB INDEX * 

AND SAVE IT * 

* 
**************** 



■***G3******** 

COMPUTE 

ADDRESS OF 

PUB OWNER 

[************* 



****{] 3********** 
CLEAR MOUNT * 
FLAGS FOR * 
ABNORMALLY * 
ENDED ASSGN * 
PROCESSING * 

**************** 



*****j3********** 

* * 

* SAVE * 

* PUB OWNER * 

* BYTES * 

* * 
***************** 

* **** 

* * 
..X* B4 * 

* * 
**** 



GETVCE RETURNS 
DASD DEVICE/VOLUME 
INFORMATION 



.YES . 


* * 


X...*. 


UNSUPPORTED 




*. DEVICE .* 




*. .* 


X 


*. .* 


***** 


* NO 


*IM * 




* H5* 




* * 








NOTAPE 






X 


***** EU* ******* 


* 






ASSIGN 


* 


SYSUSE 


* 


TO PUB 



PUB OWNED ' 
BY OTHER 
. PART 



***************** 



*****F it ********** 

* MOVE CLASS * 

* AND ORDER * 

* OF SYSUSE * 

* TO WRKCCB, * 

* NOCCB * 
***************** 



*****G4 ********* 



***************< 



*****({ 14********** 
*SPOOLTST IL* 
*-*-*-*-*-*-*-*-* 

* GET * 

* SPOOLSW * 

* * 
***************** 



PUB OWNED 

BY THIS 

PARI' 



SHARE 

*****P5********** 

♦GETPBOWN JR* 

*-•-*-*-*-*-*-*-* 

* GET ADDR * 
*FROM PUB OWNER * 

* ENTRY * 
***************** 



*****(;■)********** 

* * 

* INSERT * 

* OWNERSHIP * 

* BIT * 

* * 
***************** 



.* PUB *. 






.* *. 




.♦ASSIGNED IS*. 


*0 




.* VOL SEK ♦. 


YES 


♦.DEVICE TO BE .* 






.NO. SPECIFIED. 




*. SPOOLED .* 






*. .* 




*. .♦ 






*. .♦ 




♦. .* 




X 


*. . * 




* YES 




c*** 


* NO 


*** 






* 




♦ IL 




* 


B5 * 




♦ G 






* 
>*** 


X 


* m 


i 










**K i»******* 






Kb* **. 




* * 










* TURN OFF * 




YES 


.♦ ASSGN ♦ 




* IDS SWITCH * 






. FOR SYSLOG . 


* 












* * 










*********** 




XFNDSTATO*. .* 








***** 


♦ NU 








*IL * 






.TESTCIOA 




* E»»* 






X 




* * 


X 




***** 




* 






♦ IP * 






♦ IL ♦ 
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***** 

*IK * 
* Ki* 



.* ASSGN *. 
X'CUU* OR *. NO 
S*SYY* OH .*.... 

.CUU-LIST .* 



* B2 * 

* * 
**** 



* GBTVCB *. KBS 

RETURN CODE .*.... 
*. OH 4 .* 



***** 
*IH * 
* BU* 



DASU 

CKD 

DEVICE 



DASD 

FBA 

DEVICE 



.* GETVCB *. 


XBS 


*. RETURN CODE 


*. . . . 


*.< OR = .* 




*. *B5 .* 




*. .* 


X 


* HO 


***** 




*IM * 


. 


* C3* 



****Ai********* 

* « 

* SPOOLTST * 

* * 
*************** 



*****B3***« 



********* ******* 



*»***Cj** ******* 



**************** 



ASSGN 

FOR 

SYSCLB 



YES .» GETVCB * 
....*. RETURN CODE 
*. = 16 .♦ 
*. *C5 .* 



****£2 ********** 

* 

UNASSIGH * 

SXSUSB * 

AGAIN * 

* 

**************** 



F1 *. 






*****P2********** 


.* *. 






♦GETPBOWN JR* 


.♦ ASSGN * 


. NO 




*-*-*-♦-*-*-*-*-* 


*. FOR SYSTEM 


.*..X 




* GET ADDR * 


*.I/0 FILE .* 






* OF PUB OWNER * 


*. .* 






* ENTRY * 


*. .* 


X 


***************** 


* IBS 


***** 




**** 


»IH * 




♦IK * 


* Hi* 




* J5 *.X. 


* * 




* * 


* 




**** x 


NOTAPE 




.*. 




X 


G1 *. 




*****G2********** 


.* *. 




* * 


*SS .* DASD * 




* RESTORE * 


...*. CKD 


.*X... 


* OLD OWNERSHIP * 


*. DEVICE .* 




* BIT * 


*. .* 




* * 


*. .* 




***************** 


* NO 


**** 

* * 

* G1 * 

* * 




X 


**** 






X 


HI *. 




*****H2********** 


.* *. 




* HOVE »GETVCE» * 


.* DASD * 


NO 


*TO SYST. BBR08 * 


*. PBA 


*. .. . 


* MESSAGE. SAVE * 


♦. DEVICE .* 




* RET. CODB FOR * 


*. .* 




♦SYSTERi ROUTINE* 


*. .* 


X 


***************** 


* KES 


**** 
* * 


I 


..*'. 


* EU * 






* * 


X 




**** 


***** 
*KF * 


DASDOP2 X 




* A4* 


***** j t ********** 


* * 


* 


* 


* 


* LOAD ADDS OF 


* 


SYSTERR 


* GETVCE AREA 

* IN HRKRG5 


* 




* 







**************** 



* B2 * 

* * 
**** 



*****£3********** 

* GET NUHBER OF * 

* DEVICE LIST * 

* ENTRIES AND * 

* ADDRESS OF * 

* FIRST ENTBY * 
***************** 



*****? 3********** 



***************** 



*****G3********** 



***************** 



EQUAL 

PUB 

POINTER 



*****j3********** 

* * 

* GET NEXT * 

* DEVICE LIST * 

* ENTRX * 

* * 
***************** 



. * ALL *. 
.*. ENTRIES 

*. PROCESSED.* 



****A <* ********** 



i*************** 



***gil********* 
RETURN TO * 
CALLING SEO. * 

************** 



*Cb 
DEVICE IS 
NOT HEAD* 



RESET 
NOPCCU 
TO NOP 



**pi|******* 

* * 

INDICATE DUHHI* 

* DEVICE SEARCH * 

* IN COHRBGF * 



**Hit******* 

* * 

CHANGE 

NOP INTO 

SENSE 



FNDSTAT1 X 

*****jl| ********** 
♦HTNCNT GN* 



***************** 



***** 
*IH * 
* A1* 

* * 



**** 

* * 

* A<4 * 

* * 

**** 
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**** 

* A3 * 



* A5 » 

**** 



***A1 ********** 

* 

NOP OB SENSE 

**************** 



***************** 



NOTDEFIN X 












.*. 


**A3******* 












A5 *. 


* * 












* 


* SET DE? * 










* 


BODE LBS 


* NOT DEV *X.. 








* 




THAN BPI 


* SNITCH • 










* 


1600 


* * 


***** 










*. . 


*********** 


*IL * 
* B2* 










*. .» 
» NO 


REFERENCES ***** ' 


* * 












TO IBB3: * * „• 
IKB5, IKH5 * • *•«• 


*. 












ins a * m „* - 


X 










X 


OWNED X 


CHBK6250 .*. 










.*. 


**B3******* 


B4 *. 










B5 *. 


**** * RESET * 


.* * 










* BODE 


* * .* INVALID * 


NO .* DEVICE 






YES 


* 


SBEATBB 


* B3 *....X* DEVICE STATUS * 


X....*. 3420 




♦ X.. 


.....* 




THAN BPI 


* * * SNITCH ♦ 




* 






' * 


800 


**** * * 


"*. .* 










*. . 


*********** 


*. .* 

* IBS 










***NO 


**** * 














*IL * 














* C2 *.X. 














* * 














**** 


X 










X 


BBSETOWN X 


.*. 










«*. 


**C3******* 


C4 *. 










C5 ♦. 


* * 


.* * 










* 


* RESET * 


NO .* 


* 






* 


DEVICE 


* OWERSHIP * 


*. HOD 4, 6, « 


* 


* 




A TAPE 


* BIT * 


X *. 


* 






* 





*********** 



.* BODE *. NO 
.SPECIFIED IN .*..X 
*. ASSIGN .* 





NO 


* 


1600 




. ..*. 




BPI BODE 




• 


* 


*. * 








*. .* 




►*** 




* YE 


* 


* 






* 


AS * 






* 


* 




X 




CHECK1600 .*. 








G1 *. 








.* 






* 


TAPE 




* 




DEVICE 



^H1 

DEV__ 
3410 



* TORN ON * 
♦ DCOA SNITCH * 

* *K3 * 

* • 

*********** 



* YES 




• N 


***» 






* * 






..X* H5 * 






* * 






**** 




X 


TEST3420 .*. 




.». 


D4 *. 




us * 


.* *. 




* 


YES .* 3420 *. 


YES . * 


DEVICE 


X..*. HOD 4, 6, B .*X.. 


..... *• 


3410 



DUAL 
DENSITY 
PBAXUHE 



***** 
*IK * 
* Dl* 



***♦ 

* A3 • 

* * 

**** 



REFERENCES ***• 
TO IMH5: * * 
IKD4, ILF1 * * 



**** 
NOT APE X 

** H <>******* 

* TURN OFF * 

•DUBBY DEVICE * 

..X* SEARCH INO. * 

• IN COHREG * 



**** 

* * 

* H5 * 



*********** 



.* HOUNT * 
* PENDING 
ON THIS 
*. DEVICE 



* A3 * 

* * 
**** 



* JES **** 

. * * 
.TESTCIOA* B3* 

X * * 

*•** **** 
IP * 
B1* 
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***** 
*ip * 

• E3* 



* B2 * 

• * 
**** 



• TOBN off 

♦ CIO A SWITCH 

* BET SWITCH ' 

* • 

*********** 



NO 


.♦vol SBB 10 


,* 


...* 


. SPECIF IB D 






♦. 


.♦ 




*. .* 




X 


*. .* 




**** 


* IBS 




* * 






♦ D5 ♦ 






* * 






**** 


X 
.♦. 

D1 ♦. 






.* * 




-* DASD 


'*, 


*. CKD 






♦ . DEVICE .* 




♦. .♦ 






♦ . .♦ 






* BO 





.*. ASCIILB* .*. 

C2 ♦. C3 ♦. 

.♦ TAPE ♦. .♦ *. 

.♦POSITIONED *. BO -* DEVICE ♦. BO 

AT LOAD ...... *. A TAPS .♦... 

♦. POIBT .* - ♦ . .* 

*. -* - >. .♦ 

♦. .♦ X ♦. .♦ 

* TBS ♦♦♦♦ ♦ IBS 



♦ C* ♦ 



DASD 

PBA 

DETICB 



***22************ 

* HEAD * 
VOLURB 
LABEL • 



**** *g3********** 

* * 
*TBA SLATE LABEL* 

• Ftt)B ASCII * 

♦ 10 EBCDIC * 



DASDVOL .*. 


.*- 


F1 *. 


P2 * 


.♦COBBBCT*. 


.* 


.*VOL SBB BO.*. IBS 


.* 


*. IB GBTVCB .*.... 


*. DEVICE 


*. ABBA .* 


*. TAPE 


*. .* 


*. 


*. .* X 


*. .* 


* BO **♦♦ 


* 11 


* * 




* C5 * 




X * * 




**** ***♦ 




* • 


X 


* C4 * 


.*. 


* * 


62 * 


***• 


.* 




.* TAPB 




*. BABK 




*. BEAD 



* INITIALIZE * 

* VOL LABEL * 

* SEEK ADDB * 

* * 
***************** 



***g2************ 

* * 

BBBIBD TAPE 

* • 

***************** 

!x 



.* COBBBCT ♦. 
*. VOLOHB 

♦. BOOBTBD .* 



**** 

* * 

* C5 * 

* * 
**** 



• BO 

**** 

• * . 

* o» *.x. 

♦ * . 

**** x 
BOTBDT .*. 

C* ♦. 
.* *. 
.♦ DEVICE ♦ . 
...X*. ONBBD BI 

♦.AN I PABT .* 



**D%******* 



**** 

* • 

* CS ♦ 



*********** 



**P4******* 



*********** 



*****64********** 



***************** 



**Cb******* 



*********** 

••** z 

* * 

* D5 *.X. 

* * 
•*** 

SHOP? 2 X 

•*D!»******* 



*********** 

**** 2 
•IB * 

♦ BI *.X. 

* * 

**** 
BBDSCAB A 

*****25**** ****** 



***************** 



HOOMT 


*. 1ES 


SNITCH OB 




*.--. 




.* 




♦. .* 






*. .* 




1 


* NO 




***** 






*KA * 


...X. 




* £<|* 

• * 



♦IB * 
* »3* 

* * 



***** 
*KA * 
* B3* 

* * 



.* DEVICE ♦.BO IBS .♦ IB- ♦. 

♦. BBADI .♦....!....♦. BBCOVEBABLB .♦ 

♦. .♦ ♦.I/O EBROR.* 

♦. .♦ . ♦. .♦ 

♦. .♦ X ♦. .♦ 

♦ IBS ♦♦♦♦ * BO 

♦ ♦ 

♦ cn ♦ 

X ♦ ♦ X 

**** **** **** 

* * * * 

♦ B2 ♦ ♦ B3 ♦ 



***** 
♦KA ♦ 

* B4* 

* * 



.♦ ♦- .♦ UNIT ♦. 

.•CONFLICTING*. NO NO .♦ COBBENTLX ♦. 

♦I/O ASS1GNBBNT.^....X... .♦.UNASSIGNABLE .♦ 

*. .♦ . *. .* 



***** 
♦KA ♦ 

* K2* 

• * 



*IQ * 
♦ II* 

* * 

ASSIGN 



♦KA ♦ 
* j**r 

* ♦ 



Program Organization 199 



Chart IP* $JOBCTLD - Find a PUB to be Assigned 
Refer to Charts 10 to 13* 



REFERENCES ***** 
TO IPB1: * I 
IKK4, IHK5 * ** 



TBSTCIOA X 

*****& 1********** 

♦INITIALIZE FOR * 

* CROSS ASSIGN- * 

* BENT TABLE * 

* LOOKUP * 

* *K1 * 
***************** 



ASSGN6 

*****C1 ********** 

* INCREMENT * 

* WRKRG4 BY 5 * 
♦BYTES TO POINT * 

* TO NEXT TABLE * 

* ENTRY * 
***************** 



♦ B2 ♦ 

* * 
**** 



♦LOOK FOR EQUAL ♦ 
♦ PUB POINTERS ♦ 
♦COUP CTIPB ♦AS ♦ 

***************** 



♦ . END OF LUBS .♦ X* 



♦A3 
XABXAS - THE CROSS ASSIGN- 
MENT MASK FROM THE LAST 
TWO BYTES OF TABLE ENTRY 
IS SA?ED IN THIS LOCATION 
FOR COMPARISON AFTER ALL 
PROGRAMMER AND SYSTEM 
LUBS HAVE BEEN CHECKED 
FOR CROSS ASSIGNMENT. 



♦ Bi 
THE LOGICAL UNIT TYPE. 
NEWTYP. AND PHE DEVICE 
TYPE, DBVTYP, ARE COMPARED 
TO THE FIRST J BYTES OF 
THE 5-BYTE TABLE BNJBY. 



CTYPE IS THE COMPUTED 
LOGICAL UNIT TYPE AS 
DETERMINED BY THE DEVICE 
TYPE CODE IN THE PUB. 



♦ PROG ♦. YES 
.LUB SCAN ONLY.*.... 
♦,-PROGSW- .♦ 



*****£(}*****•**** 

♦ SET CROSS * 
♦ASSIGNMENT BYTE^ 

.1* TO HEX B000 ♦ 

♦ IN CTYPE ♦ 

♦ * 
***************** 



♦ C5 
BAC 

POX if xb xi .i,*? at \j m & nxa 

VALUE IN CTYPE IS ORED 
INTO COMXAS TO BUILD A 
LOGICAL ACCUMULATION OF 
BITS TO BE COMPARED TO 
THE VALUE IN TABXAS. 
COMXAS CONTAINS THE 
LOGICAL UNIT TYPE. 
PROGRAMMER LUBS ARE BEING 
SCANNED, OR THE COMPUTED 
VALUE SET IN THE SUB- 
ROUTINE SFPPE IF SYSTEM 
LUBS ARE BEING SCANNED. 



.♦ UNIT ♦. 
♦EQUAL THIS ♦ 
TABLE ENTRY 



ASSGNB 

*****p i********** 

♦ SAVE CROSS ♦ 

♦ ASSIGNMENT ♦ 
♦MASK IN TABXAS ♦ 

* *g3 * 

* * 
***************** 



**G1******* 
♦ TURN ON ♦ 

♦ PROGSN TO 
INDICATE: 

♦ SCAN ONLY 
♦PROGR LUBS ♦ 

*********** 



*****H 1 ********** 

♦ LOAD REGISTER ♦ 

♦ POINT1 WITH A ♦ 

♦ 1 TO INDICATE ♦ 

♦ PROGRAMMER ♦ 

♦ CLASS ♦ 
***************** 



.♦ PROG ♦. N 
♦.LUB SCAN OHLY.+. 
♦.-PBOGSH- .♦ 



ASSGN12 

**B2******* 

♦ TURN OFF ♦ 

♦ PROGSH TO * 
♦ INDICATE SCAN 

♦ ONLY SYSTEM ♦ 

♦ LUBS ♦ 
*********** 



*m***f2********** 

♦ SET REGISTER ♦ 

♦ POINT! TO ♦ 

♦ TO INDICATE ♦ 

♦ SYSTEM CLASS ♦ 

♦ * 
***************** 



*****03********** 



***************** 



♦UPDATE LOGICAL ♦ 

♦ UNIT TYPE ♦ 

♦ ♦CS ♦ 

♦ * 
***************** 



COMXAS 
*♦. .♦ 



*JQ * 

♦ h* 



***** 

*JQ ♦ 
* 02* 



ASSGN101 

*****j1****** 

♦GETLAN 



♦ COMPUTE ♦ 

♦ LUB ADDB AND ♦ 

♦ NO. IN CLASS ♦ 

***************** 

* **** 
. * * 
,.X^ B2 ♦ 

* * 
**** 



♦K1 
1. THE DEVICE TYPE ZONE IS MOVED 
TO THE TABLE LOCATION ENDXTAB 



J. LOAD WRKRG4 AS POINTER TO 
CROSS ASSIGNMENT TABLE 
LESS S BYTES (XATABLE-5) 
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Chart IQ, 



$JOBCTLD - Prepare and Execute Assignment 
Refer to Charts 10 to 13. 



***** 

*IH * 
* B!>* 



* AJ * 

* * 
**** 



****A1********* 

* * 

* CSECT ASSIGN * 

* • 
*************** 



**** 

* * 

* B2 * 

* * 
**** 



OUTHSG X 

•**A3*********** 
HSGOUT GJ 



*************** 



* SAVB 

* RETURN 

* RBGISTBB 

* 
*************** 



*Q1*********i 



*********** 



B2 *. 


**B3******* 


.* *. 


* INDICATE 


.* •. NO 


* PARTITION 


••.. 'W : 


• WAITING FOR 
• HOOMT 


*. .* 


* 


*. .* X 


*********** 


* YES ***** 




*KA * 




* El* 




. * * 

* 


• 


TIARRR 


. 


X 


X 


*****C2********** 


**C3******* 


* * 


* 


* * 


* UMPOST 


* CLEAR BUFFER * 


♦TRAFFIC BIT I 


* * 


* DUflHY CCB 


* * 


* 


***************** 


*********** 



***Bi|************ 

* * 

REMIND 

* * 

***************** 

**** 

* * 

* C<« *.X. 



* GET ZONE • 
♦OF DEVICE TIPE * 

* IN DEVTYP * 

* * 

***************** 



*****pi********** 

* COHPUTE * 

* PUB INDEX * 

* A*D STORE IT * 

* IN NENLUB * 

* * 
***************** 



*****H i********** 



***************** 



HOUNT 

SNITCH 

ON 



* B2 * 

* * 
**«* 



*****02********** 
•GETPBOWN JR* 

*.*-*•*.*.*-*.*.* 

* GET ADDRESS * 

* OF PUB OWNER * 

* ENTRY * 

***************** 



*****g2********** 

* INSERT * 

* PUB OWNER * 

* BIT * 

* * 
***************** 



**P2******* 

* * 
* INDICATE * 

* HOUNT PENDING * 
ON THIS DEVICE* 

* * 
*********** 



*****Q2********** 



***************** 



* CLEAR BUFFER 



***************** 



HRONGVOL 

*****J2********** 

* HOVE * 

* WRONG VOLUHB * 

* BBSSAGB 1T60A * 

* TO BUFFER * 

* * 
***************** 



**** 

* * 

* A3 * 



*****D3********** 

♦HTNCNT GU* 
*.*.*.*-*_*.*-*.* 

* RELEASE * 

* CONTROL * 

* * 
***************** 



****23********** 



*************** 



*****P3********** 

•HTNCNT GU* 

*-*-*«*-*-*-♦-*-* 

* SEIZE * 

* CONTROL * 

* * 
***************** 



*****G3********** 



* ASSIGN SYSUSB * 



***************** 



*C5 
ON DURHY CCB. THE OPERATOR 
WILL REACTIVATE THIS 
PARTITION VIA THB NEMVOL 
ATTENTION COWHAND AND 
THE TRAFPIC BIT MILL BE 
POSTED AGAIN BY THE 
ATTENTION ROUTINE. 



CORRECT 
VOLUME 
HOUNTED 



i|**«* 



:****K3********* 

DEFINE 

OPERATION 

COHHAND 

*************** 



* TRANSLATE LABEL' 

* FROH ASCII 

* TO EBCDIC 

* 
****************> 



CORRECT 

VOLUHE 

HOUNTED 



**J4******* 

* TURN OFF * 
IND HOUNT 

PBNDIRS ON 
THIS DEVICE 

* * 
*********** 



****K4***»*****' 



************* 



**** 
* 
* A3 ' 

* 
**** 



**** 
* 
* J«» 
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Chart IR- SJOBCTLD - Prepare and Execute Assignment 
Refer to Charts 10 to 13- 



♦10 * 
* 3 3* 



* LOAD ADDS * 
♦OF GETVCE ABBA * 

* IN WRKSG5 * 



***************** 



*****£2********** 

* * 

* SAVE * 

* BASE BEGISTEH * 

* 15 * 

* * 
***************** 



*****Q2********** 

* USE GETVCE * 
♦HACBO IN OBDBB * 

* TO CHECK THE * 
♦NEWVOL SEB NO. * 

* * 
***************** 



***** 22* ********* 

* * 

* SAVE GETVCE * 

* BETURN CODE * 

* FBON REG. 1b * 

* * 
***************** 



*****$ 2********** 



***************** 



.♦GETVCE ♦. 
.♦8ETURN CODB^. 
. NOT GBEATEB . 



.♦DEVICE ♦. 
.♦NOT READY. ' 
♦.RETURN CODE ■■ 
♦ . 16 



.♦COBBECT*. 
.♦ VOL SEB ♦. YES 
.X+.NO. IN GETVCE.^.... 
♦. ABEA .♦ 



♦ 10 ♦ 

♦ 3n* 



♦ IQ ♦ 

♦ 32* 



* GET ADDRESS ♦ 

* OF PUB OMMEB ♦ 

* BNTBY ♦ 

***************** 



*****£$********** 

* ♦ 

* BESTOBE ♦ 

* OLD OWNERSHIP '* 

* BIT ♦ 

* ■ * . 
***************** 



*****Q$********** 

•SAVE BET. CODE ♦ 
♦FOB SYST. KHBOB^ 

♦ BOUTINE. HOVE ♦ 

♦ •GETVCE* TO ♦ 

♦ EBBOB MESSAGE ♦ 
***************** 



*****£§********** 

♦ UNPACK ♦ 

* AND TRANSLATE ♦ 
♦THE HETUBN CODE^ 

♦ TO CHABACTEB ♦ 

* ♦ 
************ 



HOVE 
RETUBN CODE 
TO HESS AGE 

**************. 



**ii5******* 

* * 

* SET ♦ 
CANCEL SWITCH 

♦ JCSH1 * 

* * 
*mm*****m** 



*****M 5** ******** 

♦ COBHECi' ♦ 
"MESSAGE NUHBEB ♦ 

♦ IN SUBROUTINE ♦ 

♦ 'EBBm-H' ♦ 



****J2********** 

* 

UNASSIGN ♦ 

SYSUSE ♦ 

AGAIN ♦ 

* 

mm************** 



****J5********* 

* EXIT TO 

* BRBfitN IN 

* »J0BCTLA 



**** 
♦ BS « 
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Chart IS.. $JOBCTLD - Prepare and Execute Assignment 
Refer to Charts 10 to 13. 



* A5 * 

♦ <*> 
**** 



*IQ * 
* M* 



•10 * 
* 15* 



***** 
*U • 
* jj* 

• * 





*•** 




• • 




• B3 * 

* • 




•*•* 


ASSGB23 

.*" 
*. 
*. 


x 

•a'*'.. 

* 4 

SISO0I 
BODB 



♦•AS******* 

* BBSBT * 

Bl-BXTB 

IBDICATOB 

IB COBBBG 



10 .* CLOSB *. 
— *. # IB PROCESS # -*X. 



.* BISK *. 

IB DlSKBTTB !* 

DEVICE .* 
*. .* 

• * 



j*****C2*********' 
SAfB 

RBGISTBB 



. ***• 
BO 1 * * 

*....X* S3 * 



.* 
- .* 
* TBS 



C5 

* 

io ; 

*.. Ok 5*25 

-• 
- .* 
• BO 



*****Dlt********** 



* IBS 



*****£ 1***. 

*CLBDIB 



• CLBAB DIB * 
****** *********** 

1 BBPBtBBCSS * * 

X. 10 m ISB2:* * 

. MB3, ITB** ** 



* POT BOLL * 

* JIB POIBTBB * 

* IB MB » LOB • 

* * 
***************** 



**** 

* • 

• X2 • 



*****B2********** 
* * 

*BAKB ASSIGBBBBT* 
■' — )?B BBBLOB * 
LOB TABLB) * 



IBS 


** 


TBBP 


*. 


-..* 




ASSIGB 


.* 




* 




.* 






*. .* 




X 




*. .* 




***** 




* BO 




*IT * 








* B1* 








* * 








ASSTBB 


P 


X 




ASSPBBB .*. 








B1 *. 






.* * 






.* 


CLOSB 


*. BO 


• 




BIT* 


-*.. 




*-BBJ 


.* 






*. -* 








*. .* 








* IBS 





* SAVB DBVICB * 

* COO IB • 

* STSTBB COHBBG * 



***************** 



.1... 

X 
**** 

* * 

* B3 * 



.* ASSGB *. IBS 
*. OP SISLSt .* 

"*. .*" 
*. -* 

* BO 

i 
.*. 

B3 *. 

-* *- 
.* ASS6B *. BO 


* |OLL * 
...X* JIB POIBTBB *.... 

* POB SISLST * 

* * 
A**************** 

.*. 1 

B« *• 
.* *. 
.* ASSGB *. BO I 


*- .* 
*. -* 
*. .* 
* IBS 


*. .* 
•- -* 

* IBS 


X 

**** *P3********** 

* * 

* BOLL * 

* JIB POIBTBB • 

* POB SISPCB * 

* * • 
***************** m 

***• \ * 
*I0 ♦ 

* B3 *.X. 

* * -X. 



t*9 

( **.** 



.* BODB *. BO 
*- SPBCIPIBD .*... 
*. -* 

*- .* 



*****P5********** 
•BBBOVB SXABDABD* 

* BODB PBOB POB • 

* ABD POT IT • 

* IB B£H Q1K * 



ASS6B23A X 

*****S3********** 
♦BSTSCD JB* 



***************** 



•****H4********** 

♦ * 

• BODIPI POB • 

* POB BOPPBB • 

* SPBCIPICATIOB * 



***** 
*I0 * 
* B1* 

* * 



J3 *. 

•■* - *• 
.* ASSGB *. BO 
*. SISBDB/ .*.... I. 
*. SISIPT .* 
*. .* 

*- -* X 
* IBS ***• 



*•** 

* . • 

* A5 * 



•****G5*« ******* 

* DPDATB 

* SAT BODB 

* (POB+5) 

**************** 



*K5 
ASSGN20 IS AB 
KMTBI POIBT OP 
CSBCT ASSIGB POl 
•ASSGB OA/IGB* 
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Chart IT. $JOBCTLD - Prepare and Execute Assignment 
Refer to Charts HO to 13,. 



**** 

* * 

* 82 ♦ 

* ' * 
**** 



.♦ PILE ♦. 

TO BE 

♦. CLOSED .♦ 



*****d ********** 
♦CLOSE 1 33* 
*-*-*-*-*-*-*-*-* 

♦ CLOSE ♦ 

♦ THE PILE ♦ 

♦ * 
***************** 



ASSGN28 

*****D |********** 

♦GETJIB JN^ 

*-*-*-*-*-*-*-*-* 
..X^ ATTACH ♦ 
. ♦ JIB ♦ 

♦ ♦ 

***************** 



♦ 10 ♦ 

♦ H3^ 

***** 



**g1******* 

* * 
TUBN ON 
NORESET 
SWITCH 

* * 
*********** 



*****]? 1 ********** 

♦RSTSTD JH^ 

*-*-*-*-*-.*-*-.*-* 

♦ RESET LUB ♦ 

♦ TO STANDARD ♦ 

♦ * 
***************** 



**G1******* 

* * 
TURN OPP 

NORESET 
SWITCH 

• * 
*********** 



*****[] 1********** 

♦ * 

♦ POT STANDARD ♦ 

♦ ASSIGNMENT ♦ 

♦ IN JIB ♦ 

♦ * 
***************** 



**J1******* 

♦ FLAG JIB ♦ 

♦ CONTAINING ♦ 
♦STORED STANDARD* 

♦ ASSIGNMENT ♦ 

* * 
*********** 







.♦. 






ASSGN28C .♦. 








B2 ♦. 






B3 ♦. 








• * 






.♦ ♦. 




> 


.* 


ASSGN 


*, 




.♦ IS LUB ♦. 


IBS 


* 




SYS8DR 




* 


...X*. OA OR IGN . 


♦ .... 




** 


♦. .♦" 

♦. .♦ 
♦ YES 

x 
.♦. 


* 




*. .* 
♦. .♦ 
♦ . .♦ 
♦ MO 

X 


X 

***** 

♦IS ♦ 

♦ B2^ 

* * 

* 

ASSGN24 






C2 ♦. 






*****C3********** 




,♦ ♦. 






* 






.* 


CURRENT 


* 


NO 


♦ LOAD 




* 




SYSRDR 
81 BYTES 




♦••••• 


♦ POB ADDRESS 

♦ IN NBKRG3 






"* 


*' 


X 








*. .* 






* 








♦ . .♦ 






***************** 



+*Q2******* 

♦ TORN ON ♦ 
♦81 BYTE PERM 

♦ INDICATOR 
♦ POB SYSRDR 

* * 
*********** 



**%2******* 



INDICATOR 

*********** 



G2 ♦. 

•*CUBREMT*. 

.♦ SYSIPT ♦ 

. INDICATOR 

♦.»1 BYTES .♦ 



**l)2******* 

* TORN ON ♦ 
81 BYTE 

PERMANENT 
INDICATOR 

♦ SYSIPT ♦ 
*********** 



**J2******* 

♦ TURN OPP ♦ 

81 BYTE 

CURRENT 

INDICATOR 

* * 
*********** 



03********** 

* * 
♦H07B POB DEVICE^ 

♦ TYPE ZONE ♦ 

♦ TO DEVTYPE ♦ 

* * 
***************** 



.♦. 

E3 ♦. 
* 
HPCH/ 


♦. YES 


ASSGN28A .♦. 

E» ♦. 

.♦ ♦. 
.♦ SYSBDB/ ♦. YES 


* 
.X* 

* 

* 
* 

.x^ 

* 
* 
** 


**£5******* 

♦ BBStiT ♦ 
HOPPBR BITS ♦ 


.♦ 
♦. .♦ 
♦ NO 

.♦. 

P3 ♦. 

* 


* 

♦. YES 
.♦.. ... 


♦. .♦ 
♦ . .♦ 
♦ NO 

**** 
. ♦IS ♦ASSGN2U 
..X* 12 * 
* * 

.♦. 

P«» ♦. 
.♦ ♦. 
.♦ HODB ♦. YES 
...!♦. SPECIPIBD .♦ 


■ ■ ♦■ 
♦ ♦ . 
*********** x 
***** 

♦ IS ♦ 

♦ H4^ 
* * 

* 

ASSGH24 
***?•)********** 

* 
UPDATE ♦ 


.♦ 
♦ . .♦ 
♦ NO 

Ix... 


.* 


♦. .♦ 
♦. .♦ 
♦. .* 
♦ NO 

*x 


(PUB**) ♦ 

*************** 


X 

***** 

♦ IS ♦ 

♦ 82^ 

* * 
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Chart IU- SJOBCTLD - Prepare aad Execute Assignment 
Refer to Charts 10 to 13- 



ASSUNALT X 

**A5******* 

* INDICATE * 

* NO RBTUHN * 
♦FOR SUBHOUTINR < 

* GETJIB * 

* * 
*********** 



ASSGNB7 X 

*****B1 ********** 

*CHK0PN RJ* 

*.*-*-*-*.*-*_*_* 

* SET OPEN * 

* FLAG OFP * 

* IM DFBS * 

***************** 



*****d ********** 

* • 

* LOAD LUB ADDR * 

* OF THIS (WIT * 

* IM RRKRG3 * 

* * 
***************** 



*****!> 1 ********** 
♦CHKASG3 GU* 

*.*.*.*.*.*.*.*.* 

* CHBCK ASSIGN- * 

* RENT FOR THIS * 

* URIT * 

***************** 



**B2******* 

* * 
SET OFF 
EOJ-BIT 

IH PUB 

* * 
*********** 



**C3******* 

* * 
RESET 

HOPPER 
SWITCH 

• * 
*********** 



*****C5********** 

* POT ALT * 

* ASSIGNMENT * 

* IN NEW JIB * 

* AND FLAG IT * 

* AS ALT ASSIGN * 
***************** 



.* IS *. 
.♦OMIT CROSS *. IBS 
.ASSIGNED WITH.*... 
*. SYSLOG •* 



* DEVICE 

SPOOLED BY 
*. POWER . 



*****H1 ********** 
•GBTPBOWN JR* 

*.*.*. *£*.*_*.*_* 

* GET PUB OWNER * 

* ENTRY ADDRESS * 

* * 
***************** 



*****j 1********** 

* SET ON * 

* PUBOWNER BIT * 

* FOB CURRENT * 

* PARTITION * 

* *K2 * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



**D2******* 

* * 

* INDICATE * 
INSH AS SYSIN 

* UNASSIGN • 

* * 
*********** 



* SET SYSTEM * 

* TYPE, SYSTYP * 

* FOR SISIPT * 

* * 
***************** 



* SBT SISTER * 

* TIPS, SYSTYP * 

* FOR SYSLST * 

* * 
***************** 



*****git ********** 

* 
* 
*.. 

* 
* 
***************** 



* RESET JOB 

* CONTROL LINE 

* COUNT TO * 



ASSGN31 X 

*****P3********** 

* IRCR LUB ADDR * 
*LUBAD, BY 2 TO * 

* POINT TO NEXT * 

* LUB SYSIPT, * 

* SYSLST * 
***************** 



*****C3********** 

* * 

* NOLL THE * 

* JIB POINTER * 

* IN NEW LOB * 

* * 
***************** 



X 

***** 
*IS * 

* G3* 



***** 
♦IT * 
* D1* 

* * 



*K2 
BYTE OCHAST+1 IS ORED 
INTO THE PUBOWNER BITE. 

NOTE: PUBOWNER BYTES ARE 
NOT LOCATED IN THE 
PUB BUT IN AN EXTRA 
AREA CONTAINING 
TWO BYTES PER PUB. 



**B5******* 



*********** 



ASSGN39 

*****p 5****41***** 

♦GETPBOHN JR* 

*-*-*-*-*-*-*.*-* 

* GET PUB OWNER * 

* ENTR* * 

* * 
***************** 



*****GS********** 

* * 

* PUB OWNERSHIP.* 

* IN OWNERSHIP * 

* BYTE * 

* * 

***************** 



****KH********* 

* RETURN TO * 

* CALLIN3 SEQ *X. 

* * 

*************** 



*****J5********* 
* 

* ATTACH 

* JIB TO SXSLST 

* AS WELL 
* 

****«***********; 



RESTORE * 
RETURN * 
REGISTER * 

• 
**************** 
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Chart JA. $JOBCTLD - Open System Files and Private CIL 
Refer to Charts 10 to 13- 



****A1********* 




* * 




* CSBCT OPENSYS * 




* * 




******* ******** 


**** 




* * 




* B2 * 




* * 




**** 




HVN1 X 


*****B1 ********** 


***«*B2********** 




* * 


* SAVE * 


* HOVE * 


* RETURN * 


* DEVICE TYPB * 


* REGISTER * 


♦ TO DTP'S * 




* * 


***************** 


***************** 



**** 

* * 

* B4 * 

* * 

**** 



* DASD 

CKD OB FBA 
*. DEVICE . 



• ***I)1 *********: 

ADDRESS 

GETVCB 

AREA 

*************** 



* GBTVCE * 
RETURN CODE 

». > 4 ■ .• 



*•** 

* * 

* 82 * 

* * 
***• 



* MOVE CKD 
X* INDICATOR 

* TO orF»s 

* 
**************** 



*****D2******** 
* 

* HOVE FBA 

* BLOCK SIZE 

* TO DTP'S 
* 
*************** 



•****B2********* 
* 

* HOVE PBA 

* INDICATOR 

* TO DTP'S 
* 
**************** 



.* ASS5N *. 


NO 


*. FOR 


*... . 


*. SYSCLB .* 




*. .* . 




*. .* 


X 


* YES 


***** 




»JC * 




♦ J1* 




* * 




* 


X 


ASSGN38 


.*. 




C4 *. 




.* *. 




.* ASSGN ». 


YES 


*. TO IIA 


*... , 


*. .* 




*. .* 




*. .* 


X 


* NO 


***** 




•JF * 




* H1* 




* * 




* 


X 

**D«******* 


OPENBX 




* TORN OPF * 




* SYSTEM FILE * 
♦OPEN INDICATOR 




* 


•RESET SWITCH * 




* BANK * 




*********** 





*****g4* ********* 

* 

* SET SYSCLB 

* OPBN FLAG 

* ON 

* 

****************: 



*****Q |********** 

* HOVE * 

* RETURN CODE * 

* TO SYSTEM * 

* ERROR MESSAGE * 

* *• 
***************** 



***************** 



*****GH* ********* 

* * ' * * 

* * SVC 2 * * 
♦FETCH $$BOPENR * 

* TO OPEN PCIL* * 

* * * * 
***************** 



************** 



•RBSEr SYSTEM * 

FILE OPEN * 
* INDICATOR * 
* * 

*********** 
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Chart JB. $JOBCTLD - Open System Files and Private CIL 
Refer to Charts 10 to 13- 



***** 

♦JA ♦ 
* JU* 



**** 

* * 

* B2 ♦ 

* * 

**•* 



DASD 

FBA 

DEVICE 



X 
***** 
♦JF * 
* J 3* 



*****C | ********** 

* * 

* GET ADDR * 
♦OF FETCH TABLE * 

* AND SAVE IT * 

* * 
***************** 



*****D1********** 

* COHPUTE ADDR * 
♦OF SYSCLB F.T. ♦ 
♦ENTRY AND CLEAR* 

* THE ENTRY * 

* * 
***************** 



*****£ J********** 

♦HOVE DIR. START* 

* ADDR FROM DTF * 
♦TO FETCH TABLE ♦ 
♦AND HORKFIELD, * 

* ccw * 

***************** 



*****P1 ********** 

* * 

* ADDRESS ♦ 

* GETVCB ♦ 

* AREA ♦ 

* * 
******** 



X *K 

*****C2***** 

PUT • CY 

BLK/TRK A 

• JRKS/CY 

N FETCH TA 



***************** 



*****B3********** 

* * 

* HOVE * 
X* BLOCK SIZE * 

♦TO FETCH TABLE ♦ 

* * 
***************** 



*****C3********** 
♦FBASLD KG^ 
*-*-*-*-*-*-*-*-* 

♦ BUILD SLD ♦ 

♦ FOR FBA ♦ 

♦ * 
***************** 



**** b 5*********: 

UPDATE 
HEAD NO. ' 
BY ADDING 1 

*************** 



****C <!*♦♦♦♦♦ ♦♦♦< 

POINT TO 

FIRST SLD 

ENTRY 

«*•************' 



*****g2********** 

* * 

♦ HOVE DTF ♦ 

♦ DEVICE TYPE ♦ 
♦TO FETCH TABLE ♦ 

* * 
***************** 



*****Q1 ********** 

* * 

* GBT PUB ♦ 

* POINTER FROM ♦ 

* GETVCB AREA * 

* * 
***************** 



*****ti J********** 

* HOVE ♦ 

* CHANNEL/UNIT ♦ 

* FROH PUB * 
♦TO FETCH TABLE ♦ 

* * 
***************** 



*****j i********** 

♦ HOVE DEVICE * 
♦DESCRIPTOR FROM^ 

♦ GETVCB AREA ♦ 
♦TO FETCH TABLE ♦ 

♦ * 
***************** 



*****P2********** 

♦ * 

♦ GET SLD ADDR ♦ 

♦ F80H FETCH ♦ 

♦ TABLE * 

♦ * 
***************** 



SLD 

ADDRESS 

ZERO 



SLDLOOP 

*****q (I ********** 

*HTNCNr GU* 

*-*-*-*-*-*-*-*-* 

* RELEASE * 

* CONTROL ♦ 

* * 

***************** 



***g4 ************ 



RgAD KEY 
OF LAST 

DIR. RECORD ♦ 

************* 



*****D5*********< 

♦ UPDATE 

♦ CYLINDER NO. 

♦ BY ADDING 1 

* 

****************! 



*****g5********** 

♦ * 

♦ CLEAR ♦ 

♦ HEAD NO. ♦ 

♦ TO ZERO ♦ 

♦ * 
***************** 



♦ * 

♦ PUT SYSCLB ♦ 

♦ CCH-ADDR ♦ 

♦ IN CCB ♦ 

♦ * 
***************** 



***J2********** 

* 

GET # OF ♦ 

SCD-ENTRIES ♦ 

AND SAVE IT * 

* 

*************** 



*************** 



****GI4********* 

HOVE KEY 

T3 SLD 

ENTRY 



*****G5*********< 
* 

* POINT TO 

* LAST SLD 

* ENTRY 

**************** 



*****H<j******* 



♦ K3 
THE CODE FROH THE LABEL 
NOTFBA TO THE LABEL NOSLD 
IS FOR DASD-CKD DEVICES 
ONLY. 



END OF *. 
DIRECTORY .♦ 

.* 
♦ . .♦ 


•HOVE INDICATOR ♦ 
♦FOR END OF SLD ♦ 

♦ TO THE ENTRY ♦ 

* * 


*. .♦ 


***************** 


* NO 


**** * 




♦ • . 




* Jb ♦.X. 




**** * 


X 

*ji|********** 


ZEROSLD X 

***** j 5** ******** 
* * 


POINT TO * 

NEXT SLD ♦ 

ENTRY ♦ 

* 


* PUT ADDR ♦ 

* OF DISK CCM ♦ 

* IN CCB ♦ 

* * 


************* 


***************** 


* 


* **** 


X 


. *JC ♦ 
..X^ B1 ♦ 
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Chart JC- $JOBCTLD - Open System Files and Private CXL 
Refer to Charts HO to 13,- 



♦*** 

* ,• * 

* B« ■"* 

'■■* * 
**** 



**A5******* 

* POST * 

•open reuuest * 
* in cohreg * 
* extension * 

* * 
*********** 



*****£ )********** 

♦HTNCNT 6U* 

*.*-*.*_*.*.*.*.* 

* RELEASE * 

* THE SYSTEM ♦ 

* * 
********** 



***(;) ************ 
READ 24 BYTES 
♦OF THE LIBRARY * 
DESCRIPTOR 
* RECORD * 

***************** 



**************** 



•****£ 1 ********** 

* CALCULATE * 

* AND EDIT * 

* NUMBERS FOR * 

* MESSAGE 3M91I * 

* * 
***************** 



***************** 



*****G1 ********** 

♦HSGOUT GH* 

*„*-*.*-*.*.*-*-* 

* WRITE * 

* MESSAGE * 

* * 
***************** 



**** 
NOSLD X 

**H1******* 
* ' 

* TURN OFF 
* SYSCLB 

* OPEN FLAG 
* 

*********** 



*****B2********** 

* * 

* INITIALIZE * 
♦POINTER TO PIB ♦ 

* EXTENSION ♦ 

* * 
***************** 



*****C2********** 

♦ ♦ 

♦ GET NUMBER ♦ 

♦ OF PARTITIONS ♦ 

♦ PRESENT ♦ 

♦ * 
***************** 

**** 



**** 
CONDSCK X 

*****q2* ********* 



*************** 



YES .*IS IT THIS ♦. 
...*, PARTITION'S .♦ 
♦. PIBX .♦ 



*****F2* ********* 
♦GET THE SYSCLB ♦ 
♦LUB ENTRY ADDR ♦ 

♦ FOR THE ♦ 

♦ CHECKED ♦ 

♦ PARTITION ♦ 
***************** 



.♦ SAME 
.X*. POINTER 
*. IN LUB 



*****B3********** 

♦ LOAD SYSCLB ♦ 

♦ FETCH TABLE ♦ 

♦ ENTBY OF ♦ 

♦ CURRENT * 

♦ PARTITION ♦ 
***************** 



♦ SAME 

PCIL START 
♦. ADDRESS .' 



.♦IS PCIL*. 
.♦OF CHECKED ♦. NO 
. PART. BBING .♦... 
♦. CONDENSED. ♦ 



INVASGN 

*****P3********** 

♦URPA3 JR^ 



***************** 



***** 
♦RA ♦ 

♦ E3* 

* * 



*****B<t ********** 

♦ LOAD ♦ 

♦ LUB ADDRESS ♦ 

♦ OP THIS UNIT ♦ 

♦ IN HRKRG3 ♦ 
***************** 



.*.*-*_*_*_*-*_* 

* CHBCK ASSIGN- * 

* MENT OF THIS ♦ 

* UNIT ♦ 

***************** 



***B5************ 



***************** 



***************** 





.♦ IS UNIT 


* 


NO 


* 


. ASSIGNED 




♦ . .. . 




♦• 


* 






♦. .♦ 








♦. .♦ 




X 




♦ YES 




***** 
♦JF * 
•HI* 

* * 








' * 




X 




OPENEX 




.♦. 








EU ♦. 








.♦ ♦ 








♦ IS 


* 


NO 




DEVICE 
♦. TAPE 


* 









ASSGNIO 

***P4************ 

EXCP80G JU 

*-*-*,*-*-*-*-.*-* 
SENSE I/O 
* FOR THIS ♦ 
DEVICE 

***************** 



TAPE 

Af LOAD 

POINT 



.* IS DEVICE 

. UASO CKU 

♦. OR FBA 



***** 
♦JF ♦ 
* B3^ 



*****H2********** 

* * 

* RESTORE ♦ 

* FETCH TABLE ♦ 

* ADDRESS ♦ 

* * 
***************** 



J1 *. 
.♦ ♦. 

BJF 
SUPERVISOR 

*♦. .*" 
♦. .♦ 


* 
* 


NO 
*. .. . 

X 


*****j2********** 

♦ CALCULATE ♦ 

♦ SYSCLB FETCH ♦ 

♦ TABLE ENTRY ♦ 

♦ OF CHECKED ♦ 

♦ PARTITION ♦ 
***************** 


♦ YES 




***** 




X 

**** 




♦JF ♦ 
♦ HI* 

* * 

* 


X 

***• 


* * 




OPENEX 


* * 



.♦ ALL 
. PARTITIONS 
♦. CHECKED . 



J3 ♦. 

.♦ CAN ♦. 

THE UNIT < 

BE OPENED 

♦ KS 



***** 
♦JF ♦ 
♦ HI* 



*****{{ it********** 

*MTNCNT GU* 

*_*.*•*.*.*.*.*.* 

♦RELEASE SYSTEM ♦ 
♦SET SYSTEM BASK+ 
♦ TO HEX FF ♦ 

***************** 



*****jl»********** 

* * 

* PICK UP ♦ 

* UNIT CLASS * 

* OF NUMBER ♦ 

* * 
***************** 



OPENEX 

X 

*****({ t>********** 



***************** 



***** 
*JD ♦ 
♦ bl* 



* A5 ♦ 

* * 
**** 



♦Kb 
l'HE SYSTEM UNITS 
SYS8DR, SYSIPT, 
SYSPCH, AND SYSLST 
CAN BE OPENfiU. 
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Chart JD. $JOBCTLD - Open System Files and Private CIL 
Refer to Charts 10 to 13. 



ASSGN3A X 

*****B1********** 

* HOVE CLASS * 

* AMD ORDER TO * 

* IJSYSIN DTF+6 * 

* FROM LOCATION * 

* XCLORD * 
***************** 



•****(; 1********** 

* * 
» RESET * 

* DEVICE STATUS * 

* IJSYSIN4 * 

* * 
******** ********* 



*****D 1********** 

* MOVE INPUT * 

* MASK, HEX OA, * 

* TO IJSYSIN * 

* DTP*2l * 

* -INPUT PILE- * 
***************** 



*****£ 1********** 

* MODIPY * 

* PILE NAME * 

* IN IJSYSIN * 

* DTP* 27 TO IN * 

* * 
***************** 



*****F1********** 

* * 

* LOAD SYSIN * 

* DIB ADDR * 

* IN POINT1 * 

* * 
***************** 



*****G |********** 

* * 

* SET READER * 

* INDEX FOR * 

* TABLE RECTAB * 

* * 
***************** 



*****B2******** 

* MODIFY 

* FILE NAME 

* IN IJSYSIN 

* DTF+27 TO PH 
* 
*************** 



*****C2********** 

* LOAD SYSPCH * 

* DIB IN * 

* POINT1 * 

* * 
***************** 



* DASD 
FBA 
*. DEVICE 



***** g2* ********* 

* * 

* RESET HDD IN * 

* SYSPCH DIB+9 * 

* TO DECIMAL 81 * 

* * 
***************** 



*****?2********** 

* * 

* SET PUNCH * 

* INDEX FOR * 

* TABLE RECTAB * 

* * 
***************** 



**** 

* * 

* B3 ♦ 

* * 

**** 



DASD 
FBA 

DEVICE 



*****C3********** 

* RESET HDD * 

* IN SYSLST * 

* DIB*9 TO * 

* DECIMAL 121 * 

* * 
***************** 



*****D3********** 

* * 

* SET SYSLST * 

* INDEX FOR * 

* TABLE RECTAB * 

* * 
***************** 



ASSGM41 

*****g3********* 

* LOAD 

* CORRESPONDING 
..X* DIB ADDR IN 

* POINT2 FROM 
» POINT1 
**************** 



**F3******* 

* SET JCSH1 * 

* BIT 1 ON TO * 

•INDICATE RETURN* 

♦TO CALLER IF * 

•OPEN FAILS * 

*********** 



**G3******* 

* RESET * 
•SWITCH BYTE. • 

•IJSYSIN DTP+21,* 
* TO HEX 08 * 

* * 
*********** 



**** 








**** 


* * 








* * 


* BH • 








* B!> • 


* * 








* * 


**** 








**** 


X 








X 


*****Blt****** 


**** 


*****B5********** 


•INITDIB 


GX* 


•MTNCNT GU* 


*-*-*-*-*-*-* 


-* 


-* 


*-*-* 


-*-*-*-*-*-* 


* OPBN FILE 




* 


* SEIZE SYSTEM * 


* AND BUILD DIB 


* 


•MASK 


TO HEX FF * 


• ENTRY 




* 


* 


* 



**************** 



***************** 



ASSGN11B 

**£>>******* 

• SET JCSH1 * 

•BIT 1 OFF TO • 

...X*IND. MO RETURN 

♦TO CALLER IF • 

•OPBN FAILS * 

*********** 



• BU 
TBST SWITCH BYTE AT 
IJSYSIN+21. HEX OK 
INDICATES A CORRECT 
OPEN. 



*****H 2********** 



.♦ IS UNIT *. YES 


* LOAD SYSLST 


♦. SYSRDR OR .* 




• DIB IN 


*. SYSIPT .* 




• POINT 1 


*. .* 




* 


*. .* 


X 


**************** 


* NO 


**** 

* * 

* E3 * 

* * 

**** 




X 




X 


*****j |********** 




*****j2********* 


♦ MOVE OUTPUT ♦ 




• MODIFY 


* MASK HEX 06, * 




• FILE NAME 


♦ TO IJSYSIN * 




* IN IJSYSIN 

♦ DTF+27 TO LS 


* DTF*21 • 




• -OUTPUT FILE- ♦ 




* 


***************** 




**************** 


X 




X 


**** 




**** 


* * 




* * 


* B2 * 




• B3 * 


* * 




* ♦ 


**** 




**•♦ 



DASD 

FBA 

DEVICE 



*****j3********** 

* * 

* LOAD ADDRESS • 

* OF DTP • 

* IN REG. 3 • 

* * 
***************** 



ASSGN<HA 

*****H(t********** 
•MTNCNT GU* 
*-*-*-*-*-*_*-*-* 
. ..X*RELBASB SYSTEM,* 
•SET SYSTEM MASK* 
♦ TO HEX FF * 
***************** 



***J4************ 

FETCH SSBOPEN 

* TO OPEN THE * 

FILE SPECIFIED 

BY IJSYSIN DTP* 

*************** 



********* 



.* DID *. 
.* PILE OPEN *. NO 
*. CORRECTLY .*... 



.* LOG ♦. 
YES .♦ UNIT FOR *. 
...*.ASSGN AS POR .* 
*. DTPPH .* 



POM *. 
SYSPCH OR .' 
. SYSLST .* 



.* DTPPH *. NO 
. POR SYSRDR .*..) 
•.OR SYSIPT.* 
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Chart JE» $JOBCTLD - Open System Files and Private CIL 
Refer to Charts 10 to 13. 



***** 

*JD * 
* H5* 

* * 



**** 

* * 

* A3 * 



OASD * 
FBA 
DEVICE .* 



*****C1 ******** 

* UPDATE 

* CUD DIB: 
•CURADD; BNADD, 

* UL, LL 
* 
*************** 



*****A2********** 

* * 

* GET CLASS * 
X* AND ORDER * 

* FROM XCLORD * 

* * 
***************** 



IS IT 
RDR IPT 
OR IN 



**** 

* * 

* AS * 



GET CLASS * 

AND ORDER * 

FROH XCLORD * 

* 
**************** 



* SYSIPT 


* 


NO 




* 




*. SYSRDR 




*. .* 






•. .* 




X 


* YES 




***** 
*JF * 
* A1* 

* * 

* 


X 




SETDIB 


.*. 






F1 *. 






.* * 






* DASD 


* 


NO 


FBA 




*. .. . 


*. DEVICE 


* 




*. .* 






*. .* 




X 


* YES 




**** 

* i 

* A«» 

* 
**** 



G1 *. 

* 

SYSIPT 



*****H1 ******** 
* 

* LOAD ADDR 

* OF SYSIPT 

* DFB 
* 

****************! 



***** A 3********** 

* * 

* SAVE * 

* DFB * 

* ADDRESS * 

* * 
***************** 



*****g3*** ******* 

♦EXCPRG JU* 

*.*.*•*.*_*-•-*.* 

* READ A * 

* RECORD * 

* * 

***************** 



* SAVE * 
•CURRENT ADDRESS* 

* FROM DIB * 

* * 
***************** 



*****I3 <t********** 

* * 

* HOVE 01 * 

* IN RECORD * 

* OF BNADD * 

* * 
***************** 



*****A!>********j 
* 

* SET PUNCH 

* INDEX FOR 

* TABLE BECTAB 

***************] 



*****£5********** 

* * 

* LOAD LINKR1 * 

* HITH RETURN * 

* ADDR •SETDIB* * 

* * 
***************** 



X 


X 


SBTSIZE .*. 


*****£ 3********** 


*****£(« ********** 


cs *. 


* * 


* * 


. * * . 


* RESTORE * 


* LOAD SYSIPT * 


SYSRDR .* SYSIPT *. 


* DFB * 


* CCW ADDRESS * 


...♦. OR 


* ADDRESS * 


* * 


*. SYSRDR .* 


* * 


* * 


*• . * 


***************** 


***************** 


X *. .* 
**** ' * 

* * 

* H5 * .SYSIPT 

* * . 
**** 


X 


X 


X 


*****D3********** 


*****D4 ********** 


**qS******* 


* * 


• RXCP JU* 


* * 


♦ RESTORE * 


*-*-*-*-*-*-*-*-* 


* SET 81 BYTE * 


* OLD DFB * 


* READ A * 


* TEMPOBARY 


* RECORD LENGTH * 


* RECORD * 


* INDICATOR * 


* * 


* * 


* ■ * 


***************** 


***************** 


*********** 



*****E3********** 

* * 
•ZERO OFFSET OF * 
•CURRENT RECORD * 

* IN DIB * 

* * 
***************** 



**F3******* 

* * 
RESET 

BUFFER IN 
USE FLAG 

* * 
*********** 



****£(*********** 



**************** 



*****!] 2********** 

* * 

* LOAD ADDRESS * 

* OF SYSRDR * 

* DFB * 

* * 
***************** 



* SAVE / * 

* RECORD LENGTH * 

* OF DFB * 

* * 

***************** 



****K 1* ******** 

HOVE 
RECORD LENGTH 
= 82 TO DFB 



* A3 * 

* * 
**** 



YES 


* 80 BYTE *. 


.. .*« 


RECORD .* 




*. .* 




*. .* 


X 


*. .* 


***** 


* NO 


*JF * 




* A1* 




* * 




* 


. 


SETDIB 


X 




.*. 




J 3 ♦. 




.* *. 




* 81 BYTE *. YES 


* 


RECORD .*..X 



SET 81 BYTE * 
PERMANENT * 
INDICATOR * 

* * 

*********** 



X 
***** 
*JP * 
* A1* 



***** j ti* ********* 



***************** 



****K2******** 

* RETUBN TO 

* ADDR OF 

* LINKR1 

************** 



* NO 


**** 

* * 

* A5 * 

* * . 
**** 


X 

*****K3********** 

•CLRDIB7 JL* 

*-*.*.*_*.*_*.*_* 

•CLEAR DIB ENTRY* 

* EXTENSION AND • 

* BUFFER * 

***************** 




invforIx 





*****H5* ********* 

• SET 81 BYTE • 

• TEMPORARY * 

* INDICATOR • 

* * 
***************** 



* *. YES. 

TEHPOHAKY .♦..X. 

*. ASSIGN .* 



***£•,*****«**** 

■ '' ■ * 

SET 81 BYTE * 
PERMANENT •. 
INDICATOR * 

* 
*************** 



***** 
*JF * 
* «3* 



**** 

* * 

* K2* 

* * 

**** 
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Chart JF, $JOBCTLD - Open System Files and Private CIL 
Refer to Charts 10 to 13- 



***** REFERENCES 

* * TO JPA1: 

* ** JEB1, JEGU 
* * JBH3 



****A1********* 

* * 
» SETDIB * 

* * 
*************** 



REFBEEHCBS J**** 
TO JFB3: * * 
JCC5. JCG« * ** 



DASD 

FBA 

DEVICE 



*****Ol ********** 

* * 

* SET * 

* RECORD/TRACK * 

* IN DIB * 

* * 
***************** 



**** 

* * 

* F1 * 

* * 
**** 



*****p 1* ********* 

♦SETSIZE JE* 
*-*-*-*-*-*-*-*-* 

* INDICATE * 

* 81 BYTE * 

* RECORDS * 
***************** 



**** 
BACKSP 

*****<; 1*********1 
* 

* BACKSPACE 

* RECORD 

* EXCP 
* 

****************: 

**** 



****H 1 ********* 

* RESTORE * 

* RETURN *X... 

* REGISTER * 

*************** 

.REFERENCES . 
JFH1: * 
.JAC4, JCD4* 



SETDIB1 

*****£ 2******* 

* HOVE 

* DTF DEVICE 
. ..X* TYPE CODE 

* TO BNDTAB 
* 
*************«**< 



*****D2********** 

* * 

* ADDRESS * 

* TABLE RECTAB * 

* IN LINRR1 * 

* * 
***************** 



* POINT TO 

* NEXT TABLE 

* ENTRY 

* 
**************** 



.*DTF DEVICE *. 
.TYPE IN TABLE. 
*. ENTRY .* 



*****G2********** 



**** 

* * 

* A« * 

* * 
**** 



*****A4* ********* 
♦RSTSTD JH* 

*-*-*-*-*-*-*-*-* 

* RESET TO * 

* STANDARD * 

* * 
***************** 

**** I 

* * 

* B« *.X. 

* * . 
**** X 

NPA .*. 

B4 *. 

.* *. 

.* ONASSIGN *. Y 

*. FOR .*. 

*. SYSIN .* 



**A5******* 
* 
* 
..X* RESET 1NSU 



* HI * 

* * 
***• 



****C3******** 



*************** 



***** 03**** ****** 

* EXCP KL* 
*-*-*-*-*-*-*-*-* 

* ISSUB * 

* I/O * 

* * 
***************** 



***** tt 5********** 

* DECREASE * 
•SYSIPT LUBADDR * 

* BY 2 TO POINT * 

* TO SYSRDR * 

* * 
***************** 

**** 

* * 
..X* J3 * 

* * 
**** 

****** 

* * 

* POINT TO * 
X* ERROR RSG * 

* -1AB0D- • 

* * 
***************** 



**D4******* 

* * 
RESET 

FORK SH 
TO X»F0« 

* * 
*********** 



POINT TO 

ERROR RSG 

-1A82D- 

***************! 



X 
***** 
*GV * 
* F3* 



.JCG5, JCJ1< 
JCJ 3 



****j 1********* 

* RETURN TO * 

* CALLING SEQ * 

*************** 



* POINT TO * 


.* 81 BYTES *. YES 


* CORRECT INDEX * 


*. RECORD .*. 




♦IN TABLB ENTRY * 


*. .* 




* * 


*. .* 




***************** 


*. .* 


X 




* NO 


**** 




**** 


* 




*JE * 


* F1 




* K3 *.X. 


* 




* * 


**•* 




**** 




x 


INVFOR X 




*****H2********** 


*****H3********** 




* * 


* * 




* INSERT NUMBER * 


* SET INCORRECT * 




*OF RECORD/TRACK* 
* INTO DIB * 


* LENGTH * 




* MESSAGE 1A82D * 




* * 


* * 




***************** 


***************** 

**** * 

* * 

* J3 *.X. 

* * 




X 


**** 






UNASSGR X 




J2* **. 


*****j3********** 




.* *. 


* * 




.* EPS *. NO 


* TURN OFF * 




*. DEVICE .*.... 


* SYSCLB *X... 


*. .* 


* OPEN FLAG * 





*****K2** ******** 

* * 

* SET ON * 

* RPS INDICATOR * 

* IN DIB * 

* * 
***************** 



***************** 



: 

K3 

* ■ 


; 

*. 
*. 


*. 
* 


* 
* * 

* • 

* ** 
***** 

NO 


REFERENCES 
TO JFJ3: 
JBB1. JDH5 

*****£ U ********** 
*UNPA3 JR* 








ASSIGN . 
*. .* 
*. .* 
* YES 






* THE LUB FOR * 

* THIS UNIT * 

***************** 


* 
» 1 


c 

»** 
* 








X 

**** 

* * 

* Bt * 
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Chart JG- 



$JOBCTLD - Process CLOSE Command 
Refer to Charts 10 to 13. 



****ai********* 

* * 

*CSECT CLOSESYS * 

* * 

*************** 



* SAVB * 

* RETURN * 

* REGISTEH * 

* * 
***************** 



*****C1********** 
♦SCANR2 GK* 

*.*_*.*.*.*.*.*.* 

* POINT TO * 

* OPERAND * 

* -SYSXXX- * 

***************** 



*A2 
THIS CHECK IS DONE BY 
A BRANCH AND LINK TO 
CHKASG3 SUBROUTINE. 



**A5******* 

* * 

SET CLOSE 



*********** 



.* is DEVICE *. 

- _ sk cr~ — 

OR 



B3 *. 

* 
SYSBDR 

OB 
SYSIPT 



D1 *. 




.♦ DID *. 




.* SCAN END *. 


NO 


*.»ITH A BLANK . 


*. .. . 


*.OR COHHA .* 




*. .* 




*. .* 


X 


* YES 


***** 




*GH * 




* C2* 




* * 




* 




NVSERR 



*****D2*********< 



**************** 



.* PROCEDURE *. YES 
*. BEING .*... 
*. EXECUTED .* 



JCL 
STATEMENT 


*■ 


YES 
*. . . . 


*.*-*.*.*.*-*.*-* 
* CLOSE * 




* 




* DESIRED UNIT * 


**. .» 






* * 


*. .* 




X 


***************** 


* NO 




***** 








*KA * 










* Bl* 










* * 

* 










FNIOAG 






.*. 






X 


CH *. 






*****C5********** 


.* IS * 






♦HTNCNT GU* 


DEVICE A 


* 


YES 


*-*-*-*-*-*-*-*-.* 


PROG R AH B SB 




*.. .. 


♦RELEASE SYSTEM.* 
♦SET SYSTEH MASK* 


. UNIT 


* 




*. .* 






* TO HEX .Ft * 


♦. .* 






***************** 



*****£ 1********** 

♦SYSXXX JF* 

*-*.*.*-*.*_*.*.* 

* CHECK XXX AND * 

* GET SYHBOLIC * 
♦UNIT ADDB *K1 * 

***************** 



IS UNIT 

ASSIGNED 

*A2 



IS 
DEVICE 
TAPE 



INPUT 

VIA 

SYSLOG 



NO .* THEBB A 
. ..*. SECOND 
*. OPEBAND 



*****D5********** 

* INIT BEGS * 

* AND 1 FOB EOV * 

* B-TRANSIENI * 

* FETCH ♦ 

* *K3 ♦ 
************ 



.* IS THERE 

.X*. A SECOND 

*. OPERAND 



***** 
*KA * 
* 82* 



*-*.*.*.*.*.*.*-* 


NO 


♦ IS THERE 


* TEST LANGUAGE ♦ 


. ..♦ 


A SBCOND 


* RESTRICTION ♦ 




*. OPERAND . 


* * 




*. .* 


***************** 


X 


♦. .* 




***** 


* YES 




♦GH * 






♦ C2* 






* * 






* 






NVSERB 


X 


X 




.♦• 


*****H 1********** 




H2 *. 


* GET PUB ADDB ♦ 




.* ♦ . 


* AND ROVE ♦ 




* IS IT 


* DEVICE TYPE * 


* 


SYSPCH, LST 

♦ . OR OUT . 


♦TO DEVICE TYPE * 




♦ FROH PUB ♦ 




♦ . .* 


***************** 




♦ . .* 
* NO 


X 




X 


**** 




***** 


* * 




*KA ♦ 


♦ B2 ♦ 




♦ B1* 


* * 




* * 


**** 




* 



* CLOSE 1 

**** 
. *JJ » 
..X* A2 * 



**Q3******* 

♦ SET ♦ 
♦CLOSE SNITCH * 

♦ ON -BANK1, ♦ 

* BIT 0- ♦ 

♦ ♦ 
*********** 



***** 
*IA ♦ 
♦ P4* 



*****pit********** 

♦ LOAD POINTER ♦ 
*TO THE OPTIONAL* 

X* OPEBAND * 

* IN HRKBG3 * 

• * 
***************** 



CLOSALT 
I 
.* 
YES .♦ 



X 

***** 

*GH * 

* C2* 

♦ * 



**K5******* 

* * 
INDICATE 

SYSTEH 
CLOSE 

* * 
*********** 



*****F5******4 

* * 

* * SVC 2 

* * FETCH 

* ♦ **BC«TO/ 

* * 
***************** 



♦*G5******* 

* * 
BESET 

SYSTEH 
CLOSE 

* * 
*********** 



*****H5********** 
♦HTNCNT GU* 

* -*-*-*-*«*-*-.*-* 

* SEIZE SYSTEH * 
♦SET SYSTEH HASK* 

* TO HEX PF * 
***************** 



*K1 
SYSXXX IS CHECKED FOB VALIDITY AND THE 
FOLLOWING INFORMATION IS HADE AVAILABLE: 
. LUB ADDB OF 1ST UNIT OF CLASS IN FLOC 

AND SLADD. 
. NOHBER IN CLASS OF THE SPECIFIED UNIT 

IN NOC AND SNICL. 
. THE SYHBOLIC UNIT ADDB, CLASS AND ORDER, 

IN CLAOBD. 
. THE LUB ADDB OF THE SPECIFIED UNIT IN 

KBKBG2 AND LUBAD. 
. THE PUB ADDR OF THE SPECIFIED UNIT IN 

OLD PUB. 
. THE LOGICAL UNIT TYPE IN NENTYP. 



BEG IS LOADBD 
WITH THE SYHBOLIC 
UNIT ADDRESS, 
CLASS AND UNIT. 
BEG 1 IS LOADED 
HITH THE ADDRESS 
OF THE PHASE NAHE 
BEING FETCHED. 



J4 *. 




*****j5********** 


.* IS *. 






♦DEVICE DISK*. 


YES 


* RESTORE * 


CKD/FBA OB 


*.. .. 


* RETURN * 


♦.DISKETTE .♦ 




* HBGISTER * 


*. .* 




* * 


*. .* 


X 


***************** 


* NO 








♦ KA ♦ 

* B2* 






X 


♦ * 






**** 


♦ 






* * 


INDVTP 






* A5 ♦ 








* ♦ 




k 


**** 




****K5********* 
♦ RETURN TO * 






* CALLI 


«G SEQ * 



************* 
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Chart JH. $JOBCTLD - Subroutines 

Refer to Charts 10 to 13.. 



****A1********* 

* * 

* IMITL * 

* * 
*************** 



* RESET SYSIN * 

* ASSGN SWITCH. * 

* ZERO SH BANKl * 

* * 
***************** 



*****£ j********** 
♦INITIALIZE CCW * 

* -WRKCCW- WITH * 

* THE I/O AREA * 

* ADDRESS OP * 

* BUFFER * 
*********r — 



*****D1 ********** 

* CLEAR DTF * 

* EXTENT TABLE * 

* CLEAR STMT * 

* INFO TABLE * 

* * 
***************** 



*****g1********** 

* * 

* INITIALIZE * 

* SWITCHES AND * 

* HBSSAGES * 

* * 
***************** 



****? 1 ********* 

* RETURN TO * 

* CALLING SEO. * 

* * 
*************** 



****A2********* 

* * 

* GETLAN * 

* * 
*************** 



GETLAN 

*****B2********** 

* COHPUTE LUB * 

* ADDRESS OF » 

* DESIRED UNIT * 

* IN WRKRG2 * 

* *J2 * 
***************** 



*****C2********** 

* HOVE NUMBER * 

* IN CLASS * 

* FROM PIB » 

* TO HRKRG3 * 

* * 
***************** 



*****Q2********** 

* SAVE NUMBER * 

* IN CLASS IN * 

* NOC AND SNICL * 

* FROM WRKRGJ * 

* * 
***************** 



*****g2* ********* 

* SATE LUB * 

* ADDRESS IN * 
*SLADD AND FLOC * 

* FBOH HRRRG2 * 

* * 
***************** 



****F2********* 

* RETURN TO * 

* CALLING SEO * 

* * 
*************** 



****A3********* 

* * 

* CHKRNG * 

* * 
*•*****•*****•* 



* INITIALIZE * 
♦WORK REGISTERS * 

* *H2 * 

* * 
***************** 



..K*. CURRENT CHAR 



.♦IS CURRENT * 
*. CHAR GT MAX 
♦. CHAR .♦ 
♦. ^G2 .* 



X 

***** 
*GN * 
* C2* 



****A<** ******** 

* * 

* NUMCON * 

* * 

*************** 



NUHCON X 

*****Bit********** 

* SET MAX I HUH * 
•CHARACTER TO P9* 

* IN RNGTOP OF * 

* THE CHKRNG * 

* SUBROUTINE * 
***************** 



*****C<i********** 
•CHKRNG JH* 
*-*-*-*_*-*_*.*-* 
♦CHECK PARAMETER* 

* FOR CHARACTER * 

* RANGE F0-F9 ♦ 
***************** 



*****D 4********** 
♦PACK PARAMETER * 

* IN WRKPLD1 * 

* CONVERT TO * 

* BINARY IN * 

* NRKRGJ * 
***************** 



*****£ 3********** 

* • 

* INCR NRKRG3 * 

* TO POINT TO ♦ 
♦NEXT CHARACTER ♦ 

* * 
***************** 



NO .♦ LAST ♦. 

...♦. CHARACTER . 

♦. CHECKED .♦ 



****E4* ******** 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ * 
*************** 



♦G2 
RNGTOP IS A COMPARE 
IMMEDIATE INSTRUCTION. 
THE CALLING SEQUENCE 
MOVES THE MAXIMUM CHAR- 
ACTER INTO THIS INSTRUCT- 
ION BEFORE BRANCHING TO 
THIS ROUTINE. 



****G3********* 

♦ RETURN TO ♦ 

♦ CALLING SEO ♦ 

♦ * 
*************** 



WRKRG3 IS SET TO THE 
PARAMETER START 
ADDRESS FROM POINT1 
(NOTE 1). 

WRKRG4 IS SET TO THE 
NUMBER OF CHARACTERS 
IN THE PARAMETER BX 
LOADING A VALUE 1 
GREATER THAN THE 
CONTENTS OF POINT 3. 



. BG . F1 . F2 ETC. 
NICLS.SS.PP.SS.PP.SS.PP. . 
FICLS.SS.PP.SS.PP.SS.PP... 

THE FORMAT FOR LOCATIONS 
FICLS AND NICLS WHERE — 
SS = SYSTEM CLASS 
PP * PROGRAMMER CLASS 
(NOTES 2 AND 3) 



USING PIK J[PIK . ..._.. 
•20» FOR F2. *3Q* FOR F1J. 
FICL X 2 ♦ LUBADD • LUB ADDRESS 
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***** 

*JG * 
* F3* 



****A 1********* 

* • 

* HBXCON * 

* * 
*************** 



*****Qf ********** 

* TRANSLATE * 

* EBCDIC * 

* -COO- TO HEX * 

* -COO- A-F TO * 

* FA-FF * 
***************** 



*_*_*_*_*_*.*-*_* 

* CHECK * 

* CHARACTER * 

* RANGE * 
***************** 



VALID *. 
CHARACTER .* 
. FO-FF .* 



*****P1 ********** 
♦PACK HEK -COU- * 
♦TO BINARY -C00-* 

* HAKE RESOLT * 

* AVAILABLE IN * 

* WRKRG3 * 
***************** 



****G1********* 

♦ RETORN TO * 

* CALLING SEQ * 

*************** 



****H 1 ********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 

*************** 



****A2********* 

* * 

* CLOSE 1 * 

* * 
*************** 



»INIT WRKRG3 AS * 
♦POINTER TO POB ♦ 

♦ FOR THIS ONIT ♦ 

* * 
***************** 



.♦ IS ♦. 
.♦DEVICE TAPB^ 
. CARTRIDGE 
♦. READER .♦ 



*****£2********** 

♦ INIT CCB ♦ 

♦ AND REGISTERS ♦ 

♦ TO WRITE ON ♦ 

♦ DESIRED ONIT ♦ 

♦ ♦Ha ♦ 
***************** 



***F2***« 
EXCPROG JU 

*_*-*.*.*«.*.*-*.* 

NRITB 
♦ TAPBHARK ♦ 

***************** 



*****G2*****^**«* 
♦CLEAR I/O AREA ♦ 
♦BUFFER TO BLANKS 

♦ HOVE TRAILER ♦ 
♦IHAGE TO BOFFBR^ 

♦ PROH CBOV1 ♦ 
***************** 



HODIFX CCH 

TO WRITE 

TO TAPE 

* * 

*********** 



**** 

♦ * 

♦ B3 ♦ 

♦ , ♦ 
**** 

X 

**83******* 
* * 

NODIPY CCH 
TO WRITE 
TAPBHARK 

*********** 



***C3************ 
BXCPRQG JO 

*_*.*-iZ*-*-*-*-* 

WRITE 
♦ TAPBHARK ♦ 

***************** 



**D3******* 

* * 
HODIFY CCt 

TO REWIND 
AND ONLOAD 

* * 
*********** 



***£3***********« 

EXCPROG JO 

*.*«*.***.*.*.*-* 



***************** 



F3 ♦ . 
.♦ ♦. 
.♦ IS ♦ 
♦.CLOSE SNITCH 



**63******* 

* * 
♦ SBT CLOSE 

♦ SWITCH OFF 
♦BANK1, BIT 

♦ ♦ 
*********** 



**fi*H3«*^*****^ 

♦ RETORN ♦ 

♦ TO CALLER ♦ 

♦ * 
*************** 



_*_*-*_*_ 



************ 



****j3********* 

♦ BRANCH TO ♦ 

♦ CONTROL IN ♦ 

♦ SJOBCTLA ♦ 

*************** 



* 83 ♦ 

* * 
• *** 
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**** 

* . • 

* BJ * 

* * 
• *•* 



*****B1********** 

• * 

• INIT * 

• WORK ABBAS • 
« AND REGISTERS • 



YES .♦ IS *. 
...*. UNIT 

*. SYSPCH .* 



•♦** 

* * 

* B3 * 



.* IS *. NO 
UNIT .*... 
*. SYSLST •* 



.* DASD *. NO 
». PBA .*... 
•. DEVICB .* 



*****? 1 ********** 
■ * . * 

* LOAD ADDRESS * 

* OP SYSLST DPB * 

* IN REG1 * 

* * 
***************** 



•****H1 ********** 

* * 

* SET * 

* FILE NAME *X. 

* TO LS * 

* * 
***************** 



* J3 * 

* * 
**** 



«****U2********** 

* LOAD WRKRG* * 

* WITH LUB TABLB * 

* DISPLACEMENT * 

* OP SYSIPT * 

* * 
***************** 



*****C2********** 
•CHKASG GU* 

*-*-*-*-*-*,.*..*-* 

• CHECK SYSIPT * 

• ASSIGNMENT * 

• * 
***************** 



* 


• IS * 

SYSIPT 

•.ASSIGNED .♦ 

•. .* 


NO 
*... . 




*. .* 
* YES 


X 

***** 
*JL • 
* 82* 

* * 
* 


*< 


CLRDIB1 
X 
(*** £2* ********* 


* 




• 


* 
* 


SAVE SYSIPT 
PUB POINTBRS 


* 
* 



mm*************** 



*«***P2********** 

* LOAD WRKRGJ * 
•WITH LUB TABLB * 

* DISPLACEMENT * 

* OP SYSRDR * 

* * 
***************** 



• ****(j2********** 
•CHKASG GU* 

• CHBCK SYSRDR * 

* ASSIGNMENT * 

* * 
***************** 



UNIT 
SYSIN 



IS 

UNir 

SYSIPT 



**** 

* * 

* J4 * 

* * 
**** 

*••* 

* * 

* £3 * 



DASD PBA 
DEVICE IN 
. OLD PUB . 



*****? 3********** 

* * 

* LOAD ADDRESS * 

* OP SYSPCH DPB * 

* IN RBG1 * 

* • 
***************** 



X 
***** 
*JL * 
* B1* 



.• IS 
*. it 



• *. 




CLRDIBJ 


«♦ *. 




*•***£•>***•«**•*• 






* * 


IS IT 
J5H0 


*. NO 


* LOAD DIB ADDR * 


.*. . . . 


....X* OP SELECTED * 




* 


•UNIT IN POINT2 * 


.* 




• • 


*■• .* 




***************** 


♦ YES 




. 



***** 
*JL * 
* C2* 



•SYSRDR AND •. N 
SYSIPT SAME .*. 
*. DEVICE .* 



PILE NAME 
TO PH 



*****H3********** 

* 
* 

* 
* 
***************** 

**** * 

* * 

* J3 *.X. 

* * . 
*•** 

TSTBXT X 

*****j 3********** 



***************** 



•****CU ********** 

* * 

* GET CLASS AND * 
*ORDER AND STORE* 

* IN DTP * 

* * 
***************** 



• pi*********** 

* SET DTP TO * 
•OUTPUT AND OPEN* 

* SET LAST VOL * 

* IND ON * 

* * 
***************** 



* H2 *.X. 

* * 
**** 

CLSDU X 

*****gH********** 

•SET HDR1 LABEL * 

* NUN IN DTP * 

* IND SCONTROL * 

* CLOSE * 

* * 
***************** 



* HOVE DBV TYPE * 
•IN DTP RELEASE * 

* COHT * 

* * 
***************** 



*****GU**#******* 

* * 

* * 

* PETCH CLOSE * 

* * 

* • * 
***************** 



**H4******* 

* * 

* RESET JOB * 
•CONTROL SNITCH * 

* ZERO DIB * 

* * 
*********** 

**** 

♦ * 

• J4 *.X. 

* * 
**** 



****J4********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



*. BXCEEUEU 
*. .* 

•• .* 
*. .* 
* YES 




X * 

**«**D>>*****«**** . 

* SET CURRENT * 
*ADDR EQUAL END • 
•ADDR IN DIB OP • 
•SELECTED UNIT * 

• • 

***************** . 


*X 





CLRDIBt X 

•****e^****** 

* ZERO THE * 

* KDD PIELD OP • 

* CURRENT ADDR * 

* IN DIB OP • 

* SELECTED UNIT *' 
***************** 



*****?•>**«******* 

• STORE CURttENT * 

• ADDRESS • 

• BBCCHHPKDD * 

• IN URKPLD2 * 
« • 
***************** 



*****S5********** 

• • 

* BUILD * 
•SEARCH ADDRESS * 

• IN NfiKFLDJ * 

* * 
*******««****«**• 



*****H5********** 
•INITIALISE POR * 

* UNITING PILE • 

* MARK ON * 

* SELECTED UNIT * 

* * 
***************** 



• WRITE PILE * 

• HARK ON * 

• SELECTED UNIT • 

***************** 



**** 

•JL • 

♦ tl *.t. 



* B3 * 

* * 
**** 



****Ki|********* 

* RETURN TO * 

* CALLING SEQ *X. 

* * 
*************** 



CLRDIBb X 

*****£ <j*********« 

. * ZERO CURRENT * 

* ADDRESS IN * 
....» DIB POK * 

* SELECTED UNIT * 

* * 
************ 
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**** REFERENCES 

* TO JLB1: 

** JKF1, JKP3 



***** REFERENCES 
* * TO JLB2: 
Z **JKD2, JKJ2 



****A3********* 

* * 

* PREEBTN * 

* * 
*************** 



CLRDIB6 X 


CLRDIB1 .*. 


X 


**B1******* 


B2 *. 


*****B3********** 


* * 


. * *. 


* * 


* SET POBCE * 


.* IS *. IBS 


* SAVE * 

* BASE REG15 * 


* WRITE FLAG * 


*. UNIT .*.... 


* * 


*. ,SYSIN .* 


* * 


* * 


*J .* 


* * 


*********** 


*. .* X 

* no ***** 
**** . *GM * 
*JK * . * C2* 

* CJ *.X. * * 

* * * 


***************** 


X 

*****£ 1 ********** 


**** . NVSERR 
CLR0IB2 X 

*****C2********** 


*****C3********** 


*EXCPRG GP* 

*-*-*-*-*-*-*-*-* 


* * 


* * 


* LOAD P0INT1 * 


* FREE * 


* 00 DUMMY * 


* WITH ADDRESS * 


* DIB AREAS * 


* I/O * 


* SYSIN DIB * 


* BY FREEVIS * 


* * 


* * 


* * 


***************** 


***************** 


***************** 



CLBDIB7 X 


.*. 


*****D 1********** 


D2 *. 


* * 


• * * 


* GET BUFFER * 


YES .* DASD FBA 
*. DEVICE OLD 


* ADDR * LENGTH *X.. 


* FROM DIB * 


*. PUB 



***************** 



*****£ 1 ********** 

♦FREERTN JL* 

*-*-*-*-*-*-*-*-* 

* FREE DIB * 

* SYSFIL BUFFER * 

* * 
***************** 



*****p J********** 

* * 

* GET ADDR * 

* ♦ LENGTH OF * 

* DIB EXTENSION * 

* * 
***************** 



*****G1********** 
♦FREERTN JL* 
*-*-*-*-*-*-*-*-* 

* FREE DIB * 

* EXTENSION * 

* * 
***************** 



****H 1********** 



:**************** 



****J1********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



*****B2********** 



***************** 



*****D3********** 

* * 

* SAFE FREEVIS * 

* RETURN CODE * 

* FROM REG 15 * 

* * 
***************** 



*****B3*********i 



**************** 



F2 *. 




P3 *. 




.* *. 




.* *.- 


****ptl********* 


.* IS IT * 
*, 3540 


NO 


.* FREEVIS *. YES 


* RETURN TO 


*... . 


*. RETURN CODE .* 


..X* CALLING SEQ 


*. .* 




*. .* 


• 


*. ,* 




*. •* 


*************** 


*. .* 


X 


*. .* '' 




* YES 


***** 


* NO 






*JK * 








* K5* 








* * 
CLRDIB5 


• 






X 

*****G3********** 




*****G2********** 




* SET DTP 


* 


*' * 




* TO INPUT AND 


* 


♦HOVE •FREEVIS* * 




* OPEN SET FILE 


* 


* TO SYSTEM * 




* NABE TO IN 


* 


* ERROR MESSAGE * 





***************** 



*****B2********** 

* • 

* GET CLASS AND * 

* ORDER AND * 

* STORE IN DTP * 

* ■ ■ • ■ * 
***************** 



***** 
*JK * 
* BU* 



***************** 



***** 
*KP * 
* A»* 
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****A1********* 

* * 

* RSTSTD • 

* * 
*************** 



**** 

* * 

* B« * 



RStSTD X 

*****tn********** 

* IMIT SSTDLUB * 
« TO HEX FFFF * 
♦RSTSTD -STORED * 

* STANDARD • 

* LUB ID- * 
***************** 



*****£ 1 ********** 

* HOVE JIB * 

* POINTER FROM * 

* CURRENT LUB * 

* TO WORK AREA * 

* JIBCHN+1 * 



*****U 1 ********** 
•SCNJIB JS* 

*-*-*-*-*-*-*-*-♦ 

* ROVE STORED * 

* LUB IF ANY * 

* TO WORK AREA * 

***************** 



END 

OF JIB 

CHAIN 



.* DOBS *. 
.♦JIB CONTAIN*. NO 
*. STORED STAND-.*... 
*. ARD LUB .* 



*•** 

* * 

* D2 * 

* * 
**** 



RS1STD4 X 

*****D2********** 
♦UNFA JR* 



***************** 



****B2********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



PERMANENT *. 
SYSRDR 
.81 BYTES .* 



**C3******* 

* TURN OFF * 

* PERNANENT * 
♦STSHDR 81 BYTE 

* INDICATOR * 

* * 
*********** 



* SET CURRENT * 
*SYSRDR 81 BYTE * 

♦ INDICATOR ♦ 

* * 

*********** 



PERMANENT 

SXSIPT 

.81 BYTES . 



**C<|******* 

* TURN OFF * 

• PERMANENT * 
♦SYSIPT 81 BYTE * 

* INDICATOR * 

• * 
*********** 



• *Dl|******* 

* * 

* SET CURRENT * 
♦SYSIPT 81 BYTE 

* INDICATOR * 

* * 
*********** 



N081STD X 

*****gil********** 

* HOVE STORED * 

* STANDARD LUB * 

* TO SSTDLUB * 

* FROM JIB * 

* * 
***************** 



*****p<l********** 
•SET STORED STD * 

* LUB FLAG OFF * 

* IN JIB+2 * 

* -BIT 0- * 

* * 
***************** 



*****Clt ********** 

•CHKASGB GU* 

*.*.*.*.*.*.*-*.* 

* GET * 

* PUB ADDRESS * 

* * 
***************** 



**j1******* 

* TURN OFF * 
CURRENT RDR 

81 BYTE 
INDICATOR 

* * 
*********** 



**** 

* * 

* B3 * 



**J2"****« 

♦ TURN OFF ♦ 
CURRENT SYSIPT* 

♦ 81 BYTE ♦ 
♦ INDICATOR ♦ 

* * 
*********** 



*****K4********** 



***************** 
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**** A 1********* 

* * 

* GET JIB * 

* * 
********** 



* LOAD THE * 
♦ADDRESS OF FAVP* 

* IN WRKRG.1 • 

* * 
***************** 



*****£ 1********** 

* MOVE * 

* JIB POINTER * 

* FROM FAVP * 

* TO JIBCHN*1 * 

* * 

***************** 



*****01********** 
♦SCNJIB JS« 

*-*-*»*-*-*-*-*-• 

* COMPUTE ADDR * 

* OF FREE JIB * 

* CHAIN START * 
***************** 



**** 

* * 

* B2 * 

* * 
**** 



*«***B2********** 

* HOVE JIB * 

* POINTER FROM * 

* CURRENT LUB * 

* TO JlBCHN*1 * 

* * 
***************** 



* * 

* INIT POINTJ * 

* AS POINTER TO * 

* PREVIOUS LOB * 

* * 

***************** 



GETJIB2 

*****02********** 
♦SCNJIB JS* 

*.*-*-*-*-*.*-*•.* 

* COMPUTE ADDR * 

* OF NEXT JIB * 

* IN CHAIN * 
***************** 





X 
.♦. 

El ♦. 

.* *. 


X 
.*. 

E2 *. 

.* *. 


VES 
. ..♦ 


* END *. 
OF JIB .* 

*. CHAIN .♦ 

*. .* 


.* END *. 

*. OF JIB .♦ 

*. CHAIN .* 

*. .♦ 


X 


*. .* 


♦ . .* 


***** 

♦KA * 
* E5* 

• * 


* NO 


* YES 


* 






NOHRJB 

X 

*****F1********** 

* SAVE JIB ADDR * 

* OF FIRST JIB * 

* IN HRKRG4 ♦ 

* FROM POINTJ * 


X 
*****P2********** 

* HOVE FAVP * 

* TO CHAIN BYTE * 

* LAST JIB * 

* IN CHAIN * 



***************** 



GETJI81 X 

*****H 1********** 

* LOAD * 

* REG POINT3 * 

* HITH ADDRESS * 

* OF NBWLUB * 

* * 
***************** 



GETJIBSW 

*****K 1********** 

* LOAD * 

* REG POINTS * 

* WITH ADDRESS * 

* OF LUBAD * 

* * 
***************** 



***************** 



*****G2********** 

* MOVE * 

* JIB POINTER ♦ 

* OF FIRST JIB * 

* IN CHAIN * 

* TO FAVP * 
***************** 



*****H2* ********* 

* (JOVE * 

* END OF CHAIN * 

* FLAG LAST JIB * 

* IN NEW CHAIN * 

* * 
***************** 



•****J2********** 

* LOAD THE ADDS * 

* OF 1ST JIB * 
♦CHAIN IN POINT3^ 

* PROM HRKRG4 ♦ 

* . * 
***************** 



****K2********* 

♦ RETURN TO ♦ 

* CALLING SEQ ♦ 

*************** 



♦JJ 
GETJIB SH ON 
OFF 



* 82 ♦ 

* * 

**** 
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♦•••A 1«** **•**• 

• * 

* SFPPB * 
*************** 



SFPPB i 

•****B I********** 

* pob^poiBbb J 

***************** 



*****M********** 



to * 
B2» 



•*ci******* 



***•*•*•*•• 



***01********** 

— — -;m2 * 

J TO * 

**•***•****•**«** 

**** i 

*JQ * 

* F3 *.X- 



• STOBS SCAB * 



vr 



•C HBJPIt-*-' 



l£|sS 



•****CI»********** 

cB8¥l 



**C5**' 



118. 



*. .♦ 


X 


*- .* 






***************** 


* IBS 


***** 


• 10 










•JO • 

♦ 52* 








- 




* • 
* 


• 






***** 




SFPPB 12 


X 






*JB • 


.*. 




.*. 






* J3* 


02 *- 




03 •. 






• * 


.* *. 




J.* *. 






• 


.* *. 


■0 BO .*Z« TOBBB k * 






SFPPB3 


». IRSI 




.*. FOB BOOB XI 


•* 






*. on .* 




•• OLD FOB .* 








*- .* 


X 


». .* 








*. .* 


*. „• 








* IBS 


***** 


* IBS 










♦JO * 
* C%* 












• • 






*B4 




• 


SFPPB 13 


• 




s'.rs.'Ssgsgs:' 






X 




XS 


STOBBD IB MCBBSK. 


I 




****«g3********** 






****g2********< 




* BBSBT 


• 






* BBTOBB TO 


* 


• bob OBBBB BIT 

• FtiB COBB BIT 

• MBTXTXOB 


* 






; caEi.ib| sbq 


• 
* 


* 
* 






**************4 




• *B* 


* 







• POXBT TO 3B00 * 



a**************** 



***m*D$***m****** 



* SET SBTPBT J 

* DEFAULT LOAD J 
***•**«•**•*•**** 



*****f t***** * *•** 
«SCBLOB JS* 

*_*..I_*_*-.*_*^*. - 

* BOTB LOB 

* TO HOBK ABBA 



61 



*. 



.** *- 

.*"' OBFICB **- IBS 

•OIBBD BI OTHJS*.*... 

•"p*RTITIOi.* 

*- •• 

*. .* 



*rx«3******* 



BBTSV 
OR 

; - •* 

*. ,* 
• IBS 



W 



mm********* 



* C3 * 

* * 
**** 



*****»$«•**•***•* 

* * 

* gfcSTOBfi • 

* LOB KiTBI ♦ * 
•HOBK 1B6XSTBBS * 



*JQ * 

' * * 

* 

SFPPB 13 



****Hf ********* 

* BBTOBH TO • 

* CALLIiG SBQ * 

* *J1 * 

*************** 



* JBT BOOB 

* OF FOB BBXB6 

* WSSXGMBO 



*J1 
TBXS BBTOBP. TO TBB 
TO! 



RBTOBI C0FT1 



IALMBD J 
OFTBOL. 



***** 

*JQ * 

* c%* 
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* i« 

**** 



.* DOBS *. 
.* THUS LOB *. N 
*. HAVE 80 POB .*. 
*. POINTER .* 



srppEio x 

**B1******* 
•SET THE STD* 

* ASSIGNMENT ♦ 
* FOUND SWITCH 

* STDFDSN OH * 
* * 

*********** 



*****£ j********** 
•SAVE THE STORED* 
♦STANDARD LUB IN* 

* SSTDLUB PROH * 

* BYTES AND 1 * 

* OP JIB * 
***************** 



*****01********** 



REFERENCES ***** 

to " 

IPE4, 



JQD2: * 
4, JPC2 * 



.* RETURN *. YES 




♦.SNITCH RBTSW,.* 

*. ON .* 






*. .* 




*. .* 




* NO 




REFERENCES ***** 




TO JQC4: * * . 

jpd2, 3pf5* * *.x. 




JPJ3 * * 




Jr0J **** 




SFPPB13 X 




*****Q4* ********* 


**cs******< 


* HOWE THE * 




* CURRENT LUB * 


* SET SNITCH 


* TO JIBCHN * 


...X* FOR RETURN 


* FROM LOBCOB » 


♦ TO SFPPEH 


* FOR ALT SCAN * 


* 


***************** 


********** 



♦*D2******* 



♦STORE STANDARD * 

♦ JIB ADDRESS ♦ 

♦ IN SSTADD ♦ 

♦ * 
***************** 




* TURN OFF * 
♦ STD FOUND SW, ♦ 

* STDPDSW • 

* * 
*********** 


**** 

* * 

* El *,X. 




• 


PEB X 

*****£ 1********** 

♦SCNJIB JS* 

*.*.*_*_*.*.*.*-* 

* GET ADDRESS *X 

* OF JIB * 

* . ♦ 
***************** 












* * 

♦ IP ♦ 

♦ E4* 

***** 




F1****. 
,* *. 
.* *. YES 
*. END OP JIBS .*. 


SFPPE9 .*. 

F2 *. 
.* *. 
.♦IS THE STD ♦. NO 
..*♦. ASSGN FOUND .♦ 


*. .* 
♦ . .♦ 




♦.SNITCH ON.* 

♦. .♦ 



.♦ DOES 
♦CONTAIN 



,♦ DOES JIB 
. CONTAIN AN 
♦.ALT ASSGN. 



SPPPE14 X 

*****Q2********** 

♦HOWE THE STORED* 

♦ STD LUB FRON ♦ 

♦ SSTDLUB TO ♦ 

♦ WORK AREA * 

♦ JIBCHN ♦ 
***************** 



*****H2********** 
* * 

♦STORE JIB ADDR * 



*****P3********** 

* LOAD LOGICAL * 
♦UNIT TYPE, SCAN* 

X* CONTROL CHAR ♦ 

* IN HRKRG2 AND * 

* DOUBLE IT * 
***************** 



X 

***** 
*JP * 
* El* 
♦ ♦ 



* ASSIGNHEN 



♦•** 

* * 

* El * 



X 


*J3 


***** 


THIS RETURN TO THE 


*JP * 


CALLING SEQUENCE 
INITIALIZES LINKR4 


* C2* 


* * 


TO RETURN CONTROL 


* 


TO SFPPE8. 



1. THE FREE JIB ADDRESS IS 
LOADED IN HRKRG4 PROH 
POINT J. 

2. THE JIB TABLE ADDRESS IS 
SUBTRACTED FROH WRKRG4 
LEAVING THE FREE JIB 
DISPLACEHENT IN NRKRG4. 

3. THE DISPLACEMENT IN URKRG4 
IS DIWIDED BY 4 TO DEVELOP 
THE FBEE JIB POINTER. 

4. THE RESULTANT POINTER 
IS STORED IN FAWP PROH 
WRKRG4. 



X 

SFPPE15 

*****Qlt********** 

♦SCNJIB JS* 

*-*-*.*-*-*-*-*_* 

♦ GET ADDRESS * 

* OF JIB * 

• • 
***************** 



END 

OF JIB 

CHAIN 



***P5********* 
RETURN TO * 
CALLING SBQ * 
*JJ * 

************** 



*****pil*****; 

* v 

* HOVE THE LUB * 

* TO LUBCOH ♦ 

* FROH JIBCHN * 

* * 

***************** 



*****G<1********** 

* * 

* LOAD THE ADDR ♦ 

* OF THE FAVP ♦ 

* IN WRKR33 * 



*****|j it********** 

* COHPUTB FRBE * 

* JIB POINTER ♦ 

* AND STORE * 

* IN FAVP * 

* *K2 * 
***************** 



.* DOES ♦. 
.*JIB CONTAIN*. YES 
*. A STORED .*.... 
*. ALT LUB .* 



****£•)***** **** 

* RETURN TO • 

* CALLING SEQ * 

* * 

*************** 



* JSEHO THE FIRST * 
X» THREE HKifiS • 

* OF THE JIB * 

* * 
***************** 



***** Kit ********** 

* * 
♦ZERO THE FIRST * 

.♦ THREE BYTES ♦ 

* OF THE JIB * 

* * 
***************** 
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* UNPA 

« 
*************** 



*****Bl ********** 

* LOAD NRKRG3 * 

* WITH THE ADDR * 

* OF LUB TO BE *X. 

* ASSIGNED FROM * 

* LUBAD * 
***************** 



****jk2*******»* 

* * 

* UNPA3 * 

* * 
*************** 



UNPA3 X 

*****B2********** 

* INITIALIZE * 

* SSTDLUB * 
....* FOR UNASSIGN * 

* X'FFFP* * 

* * 
***************** 



*****B3********** 

* * 

* SAVE » 

* PUB POINTER * 

* IN PUBCOH * 

* * 
***************** 



**************** 



*****D1********** 

* HOVE CONTENTS * 

* OF SSTDLUB * 
♦TO CURRENT LUB * 



**************** 
**** 



*JQ * 
* J5 * 



IF ENTERED AT UNPA3 
THE LUB IS TO BR 
UNASSIGNED AND 
SSTDLUB CONTAINS 
HEX FFFF. 

IF BNTERED AT UNPA 
THE LUB IS TO BE 
ASSIGNED AND SSTDLUB 
CONTAINS THE STORED 
STANDARD ASSIGNMENT - 
IF NONE X^FFPF*. 



* ZERO * 

* REGISTER * 

* P0INT1 * 

* * 
***************** 



*****F1 ********** 

* * 

* LOAD THE ADDS * 

* OF LUBCOH * 

* IN WRKRG3 * 

* *P2 * 
***************** 



* COHPUTE PUB * 

* OWNER POINTER * 

* IN WRKRG4 * 
***************** 



*****!) 1 ********** 

* * 

* SAVE PUB * 

* OWNER POINTER * 

* IN OLDPBOWN * 

* * 
***************** 



*****j 1********** 

♦CHKASG3 GU* 

*-*-*-*-*_*-*_*-* 

* COMPUTE * 

* PUB POINTER * 

* * 
***************** 



*F2 
NRKRGi CONTAINS THE ADDRESS 
OF LUBCOH. HHICH CONTAINS 
THE OLD LOB THAT IS TO BE 
USED BY THE SUBROUTINE 
CHKASG3. 



*****q 3**** ****** 

* * 

* ADDRESS THE * 

* WORK AREA FOR * 

* EXTENT MACRO * 

* * 
***************** 



*****£3********** 

* PUT CLASS AND * 

* ORDER, DELETE * 

* ALL FLAGS TO * 

* EXTENT PARH. * 

* LIST * 
***************** 



*****P3********** 

* * 

* SAVE * 

* BASE REGISTER * 

* 15 * 

* * 
***************** 



*****G3********** 

* * 

* USE * 

* EXTENT MACRO * 

* SVC 104 * 

* *K3 * 
***************** 



*****H3********** 



***************** 

**** 



» en *.X 



**** 
SFPPE3 X 

*****j3********** 

♦GBTLAN JH* 

*_*_*_*-*_*_*_*-* 

* COMPUTE LUB * 
♦ADDRESS AND NO.* 

* IN CLASS ♦ 

***************** 



****m********* 

* « 

* GETPBOWN * 

* * 
*************** 



SET 
WHKRG4 
TO ZERO 

************* 



.* DOES LUB 

*. POINT TO A 

*. PUB 



*****D4 ********** 

* LOAD ADDRESS * 

* OF PUBOWNER * 

* BYTES INTO ♦ 

* WRKRG4 ♦ 

* *HU ♦ 
***************** 



****£t|********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



WHEN GETPBOWN IS CALLED, 
WRKRG3 POINTS TO A LUB. 
IF THIS LUB HAS A PUB 
POINTER. THEN WRKRG4 IS 
LOADED WITH THE ADDRESS 
OF THE 1ST OWNER BYTE 
FROM THIS PUB. 
(20 OWNER BYTES/PUB) 



SVC ion IS USED IN ORDER 
TO DELETE ALL EXTENT JIBS 
WHICH MIGHT STILL BE 
ALLOCATED. 
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****A1********* 
* SCNLOB * 

**** 



SCNLOB 

**B1******* 

♦SET SWITCH * 

* EOLSH ON 

* TO INDICATE 

* END OF LOBS 



****C1 ********** 
LOAD THE NO. * 
OF LOBS OF * 
THIS CLASS TO * 
BE CHECKED IN * 
WRKRGJ * 
**************** 



****A2******** 
* 
* SCNJIB 

* 
************** 



SCNJIB 


.♦. 




B2 *. 




* 


.* 


IS THERE 


*. 


A JIB 


* 


POINTEB 



NRKBS3 

EQUAL 





**E1******* 
*SET SWITCH * 

* EOLSW OFF 
-NOT END OF 

* LUBS- 

* * 

*********** 



*****F j********** 

* LOAD WRK8G4 * 

* WITH ADDR * 

* OF NEXT LUB * 

* TO BE CHECKED * 

* FROM SLADD * 
***************** 



*****G1********** 

* MOVE THE LOB * 

* TO WORK AREA * 

* JIBCHM * 

* -2 BYTES- * 

* * 
***************** 



*****H1 ********** 

* INCH WBKHG4 * 

* TO POINT TO * 

* NEXT LUB. * 
♦SAVE THIS ADDS ♦ 

* IN SLADD ♦ 
***************** 



***** j 1 ********** 
♦DECR WRKRG3 BY ♦ 

♦ 1 TO INDICATE ♦ 
♦NUMBER OF LOBS ♦ 

♦ REMAINING AND ♦ 

♦ SAVE IN SNICL ♦ 
***************** 



****K 1********* 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ *K2 ♦ 

*************** 



****C2* ********* 

COMPUTE ADDB ♦ 

OF JIB ♦ 

-JIB POINTEB ♦ 

X 4 PLUS JIB ♦ 

TABLE ADDR- ♦ 

**************** 



*****D2^ ******** 
♦MOVE STORED LUB^ 

♦ TO JIBCHN ♦ 
♦FROM JIB BYTES ♦ 

♦ AND 1 ♦ 

♦ * 
***************** 



****g2********* 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ * 
*************** 



**** A 3********* 

* * 

* CHKOPN ♦ 

* * 
*************** 



♦ INIT DFB PTH ♦ 

* TO 7 IN REG ♦ 

♦ POINT2 ♦ 

* * 
***************** 



**** 

* * 

* B4 ♦ 

* * 
**** 



CHKOPH1 

*****C3********** 

♦ LOAD POINT 1 ♦ 

♦ FROM POINT2 ♦ 

♦ AND MULTIPLY ♦ 

♦ POIMT1 BY U ♦ 

♦ *g« * 
***************** 



*****Q3********** 

♦ LOAD THE ADDR ♦ 

♦ OF DFB TO BE ♦ 

♦ CBECKED IN ♦ 

♦ POINT1 ♦ 

♦ * 
***************** 



*****g3********** 

♦ LOAD LUB ♦ 

♦ POINTER FOR ♦ 
♦THE ASSOCIATED ♦ 

♦ DFB IN WRKRG3 ♦ 

♦ ♦F* ♦ 
***************** 



*****P3********** 
♦CHKASG GU^ 
*.*.*.*-*_*.*.*.* 

♦ CHECK ASSIGN- ♦ 

♦ MENT FOR THIS ♦ 

♦ UNIT ♦ 
***************** 



*****£ tj* ********* 

♦LOGCHK GL^ 

*-*-*-*_*-*.*-*-* 

♦ SET SYSLOG ♦ 

♦ ASSIGNMENT ♦ 

♦ SNITCHES ♦ 

***************** 



****04********* 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ * 

*************** 



*B4 
THE RESULT IS AN INDEXING 
VALUE REGISTER POINT1 USED 
TO SELECT THE CORRECT DFB 
ADDRESS. THE DFB'S ARE 
CHECKED IN THE FOLLOWING 
SEQUENCE: LGO, LGI, LNK, 
LSI, PCH, IPT, RDR. 



LUB POINTER 


DFB 


. 06 


LGO . 


. 08 


LGI . 


. OA 


LNK . 


. 06 


LST . 


. 04 


PCH . 


. 02 


IPT . 


. 00 


RDR . 



H3 ♦ . 
.♦IS ♦. 
.♦ THE DFB ♦. YESX 
♦.FOR THIS DEV .♦.. 
♦. COMPARE .♦ 
♦. CUU .♦ 
♦. .♦ 
♦ NO 



*****j3********** 

♦ * 

♦ SET OPEN FLAG ♦ 

♦ OFF IN DFB ♦ 

♦ FLAG BYTE ♦ 

♦ * 
***************** 



.X.... 
X 

**** 



IS TO THE ADDRESS IN LINKR1. 
IF MORE LUB'S ARE TO BE 
PROCESSED, RETURN IS TO 
LINKRU4. 
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**••& -|********« 

* • 

• SYSZZZ • 
*************** 



•12 < 

1. SAVE SCAN POINTBB 
POINT1 IN POINT2. 

2. BBKBG2 BO 0. 

3. NBKBG3 BQ TABLE 
ADDBBSS LESS 5 BYTES. 

4. NRKRG4 BQ BBD OP TABLB 
ADDBBSS. 



1. BBSTOB TBB SCAB 
BOOTIES POIiTBE 
POINT f, PBOB POUT 2. 

2. INCBBnBMT FOIBT1 BY 
3 BITES TO POIBT TO 
XXX Of SISXXX. 

3. SBT POINT 3 TO A 2 
TO INDICATB 4 PABA- 
BBTBB LENGTH OP 3. 



SYSZZZ4 X 

* SBT REGISTERS * 
•BOB TBB MDBBRIC* 

* COBfBBSXOi * 

* BODTIBB * 

* *A3 * 
***************** 



SISZZZb X 

*****A5********** 

* SAVE SXABOLIC * 

* OMIT ADDBBSS * 
*XB CLAOBD PBOB * 

* POINT 1 AMD * 

* MBKBG2 • 
***************** 



* OPBBAMD •• BO 

STABT BUB .♦... 
♦. SIS .* . 



****B2********* 

* BBANCH TO • 

* BVSBBB IB * 

* SJOBCTLA * 
*************** 



***************** 



*****B^***» ****** 
* COBPUTE * 

♦LOB ADDBBSS OP * 
♦SPECIFIED OMIT ♦ 
•XB MBKB62 LOBAP* 
♦C3 



*C3 
BRKRG2. uftDBB tflTHIB CLASS, 
TIBBS 2 PLOS VALOB XB FOOL, 
ADDBBSS OP TBB PXBST OBIT 



OPBBABD ♦.NO 
LBNGTH BQ # -*--. 



SISZZZ1 X 

*****0-|********** 

* IBIT BBSS * 

* FOB SYS TABLB * 

* LOOK OP * 

* *A2 * 

* * 
***************** 



* B1 *.X. 

* ♦ 
**** 

SYSZZZ2 X 

*****£ |********** 

* IMCBBBBBT * 

* TABLB POIBTBB * 

* HBKB63 BY * 

* TO POINT TO * 

* BBXT BBTBY * 
***************** 



*****pi*** ******* 

* SAVE * 

* OISPLACBBBBT * 

* FBOB BBKB62 * 

* IN WBKFLD2 * 

* * 
***************** 



*****C«** ******** 

* SBT POIBT 1 * 

* TO A 1 TO * 

* XBDXCATB * 

* PBOGBABHBB * 

* CLASS * 
***************** 



* COBPOTB LOB * 
♦ADDBBSS ABD MO.* 
•XB CLASS *B3 * 



•****cs********** 

♦IBIT BBGISTERS ♦ 
* MBBRG3 ABD * 
♦BBKBG4 FOB TUB * 
•CB&ASG3 SDBBTB * 
♦J3 



B2 

OPBBABD 

-^B6TB Br 

CHAB 



• B3 * 

• * 
**** 



SYSZZZ3 .♦- 



X 

***** 
♦KA ♦ 
* B1* 



*****P3********** 

* SBT * 

* OISPLACBBBBT * 

* I* MHKPLD2 * 

* TO 0002 FOB * 

* SYSPCB * 
***************** 



***** 
♦KA * 
* B1* 

* * 



*****?*********** 

* LOAD BBRBG2 * 
•BITB TBB BIMABY* 
♦VALUE OF XXX TO* 
♦BE OSBD AS DIS-* 

* PLACBHBBT *K« * 
***************** 



* COBPOTB LOB * 

* POIMTBB IB * 

* HBKRG<t * 
***************** 



*****E5**** ****** 

* SAVB POB * 

* POIMTEB AMD * 

* BBSTOBB * 
*BBGISTBB POIMT<t* 

* *J» * 
***************** 



****P5********* 

* BBTOBM TO * 

* CALLER * 

* * 
*************** 



*****G2** ******** 

* IMITXALXZE * 
*FOB PBOCBSSIBG * 

* SYSIB * 

* *K3 * 

* * 
***************** 



SYSZZZ01 X 

****«G3*** ******* 

* SriP LOGICAL • 
♦OBIT TYPB FBOB * 
♦TAB IB, ABGOBBBT* 

* PLOS 3 BYTES, * 

* "IN LOBTYP * 
***************** 



*****G4********** 

♦ * 

♦ BBX B000 IS ♦ 

♦ BOVBD TO THE ♦ 

♦ FIELD LOBTIP ♦ 

♦ * 
***************** 



•****J1********** 
« * 

♦ INCBBNEBT ♦ 

♦ OISPLACBBBBT ♦ 

♦ HBKBG2 * 

♦ ♦ 
***************** 



**** 

* * 

♦ B1 ♦ 



***************** 



*****J2*« ******** 
*GBTLAB JB* 

*-*-*-*-*-*-*-*-* 
♦ COBPLETB LOB * 
♦ADDRESS ABD NO.* 
♦IB CLASS *H3 * 
***************** 



*****K2********** 

* BBSTOBB CLASS ♦ 

♦ -LOGICAL OBIT ♦ 
♦TYPE- IN HHKHG2* 

♦ FBOB WBKFLD2 ♦ 

* * 
***************** 



*B3 

1. TBB LiiB ADDBBSS OF TBB 
PIBST DBXT OF A CLASS 
IS BBiOBNED IB TAB 
FIELDS FLOC ABD SLADD. 

2. TBB NIMBBB IB CLASS 
FOB ToB SPBCIFIBD OBIT 
IS BE JOBBED IB TBB 
FIELDS NOC ABD SMICL. 



♦J3 
HRKRG3 CONTAINS LOB. 
ADDRESS OP OMIT HBKBG4 
IS ZBROBJ). 



♦K3 
HBRFLD2 
NBBTTP Bv BBX 
0003. 



*J1» 

1. TBB POB POIMTEB IS 
SAVED IM OLD POB 
PBOB KBKBG4. 

2. BEGISTEB P0IMT4 IS 
BBSTOBBD AS A POINTER 
TO TBB INVALID STATE- 
BBBT BBBOB BODTIBE. 



*R4 
TBE BIBABY VALOB OF XXX 
BOST BE BQOAL TO OB LESS 
TBAB TBE BOBBEB OF PBO- 
GBABBBB OBITS AS SPBCIF- 
IBD IM MOC, TBB HICL 
VALUE. 



**** 

* * 

* AS * 

* * 
**** 
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Refer to Charts 10 to 13* 



*****£ )******* + 

* 
* 

♦ EXCP 

* 
* 
*************** 



****£(|********* 

* * 

* EXCPROG * 

* * 
*************** 



* * 

* BXCP80G1 ♦ 

* * 
*************** 



* SAVE RETURN ♦ 

* ADDRESS IN * 

* LIHKSA * 

* * 
***************** 



**C1********** 

UPDATE * 

SYSIN DTF * 

-IJSYSIN- * 

*C2 * 

* 

************** 



*****D1 ********** 
♦MTNCNT GU* 
*-*-*-*-*-*-*-*-* 
♦RELEASE SYSTEM * 
♦AND SET SYSTEM * 
♦MASK TO HEX'FF'* 
^— "********** 



* MOVE DENSITY ♦ 

* PROM PUB TO * 

* SET NODE CCW * 

* • ■ * 
***************** 



STORE CCH ADDRESS 
REGISTER 0. 
STORE SYMBOLIC AND 
ORDER- IN DTF+6 
FROM REGISTER 1. 



* MOVE DENSITY * 
» FROM PUB TO * 

* SET MODE CCH * 

* * 
***************** 



**C5******* 
* * 

* MODIFY SET ' 
HODB CCW FOR 

* STANDARD 

» * 

*********** 



*****£ 1 ********** 

♦ * SVC * ♦ 

♦ * EXECUTE * * 

♦ * SPECIFIED * ♦ 

♦ * I/O * * 

♦ * * * 
***************** 




X 
.♦. 

F1 *. 
.♦ ♦. 
.♦ I/O *. NO 
'. COMPLETE .♦ 

*. .* 
*. .♦ 
♦ . .* 
* YES 


*****F2******* 

* * SVC 7 

* ♦ WAIT FOR 
. ..X* * I/O TO 

* * COMPLETE 

* * 
************** 



.♦ WRITE 
. TAPEHARK 
*. COMMAND 



*****g<|****** 



SET CHAIN 
BITS OFF 
IN CCW 



*****G1 ********** 

♦MTNCNT GU* 

*_*-*.*_*_*_*_*_* 

* SEIZE SYSTEM * 
♦AND SET SYSTEM * 
♦MASK TO HBX«FF»* 

***************** 



*****H1 ********** 

♦ RESTORE * 
♦RETURN ADDRESS * 

♦ IN LINKR1 * 

♦ FROM LINKSA ♦ 



********* 



EXCPROG4 X 

*****pi}«********* 

♦ INITIALIZE * 

♦ REGISTERS * 

♦ FOR EXCP * 

♦ *F5 * 

♦ * 
***************** 



*****Q4 ********** 

♦EXCP JU^ 

*-*-*-*-*-*-*-*-* 

♦ EXECUTE ♦ 

♦ SPECIPIED ♦ 

♦ I/O ♦ 
***************** 



****Hi»********* 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ * 
*************** 



♦ SBT CHAIN 

♦ BITS ON 

♦ IN CCW 

************** 



SYMBOLIC UNIT ADDRESS, 
CLASS AND ORDER IS 
STORED IN REGISTER 
FROM POINT!. 
CCH ADDRESS IS STORED 
IN RESISTER ZERO. 



**** j 1 ********* 

♦ RETURN TO ♦ 

♦ CALLING SEQ ♦ 

♦ * 
*************** 
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BBBOB SBSSBGB • 



sr: ail:—: 

J6J§» §D5| • * 

lr 5 



as? 



: m 2*r 



•IB • 

V? 



S'-SKifr**: 

icis, lens* *• 



• TOUT tO * 



**•* «£*•••*•••••* 

Ml TO * 

"1S3A6I * 



*****B5**«* *••*** 
• POUT tO * 



IQB 



Si: ♦: 



!•♦•*■!•••*•♦••** 



•IB • 



: -*$v : 




•IB • 
• C5* 



5S F1 

to _ 

MB 3 



13, SltU *• 



"58, 



BBBOB HKSSAGB * 

-*«F : 



■OHBJB X 

****«B5********** 

• POIBI tO * 

• BBBOB HKSSAGB • 



BO^HJSSAC 
*F1 



IhBSSASB* 

:u5bd— 
:usb»— 

Haw""* 



*Di"cBiftioB"*"" 

"iiiiLiD'i/o'issiciBBit**" 

COiPLICTIBC I/O iSSICMBIT 
"lBfi£iD"Dif|CB*tXtB 

"■o'rBBi'JiBs" ......... 

"ii t iiH *£ocici£" oift 'snciwic * 



•6B * 



:•£«•»•"• 
ruiBD"" 



*DB?i;ci*iot*»BHBBD""*"* 

"oiit *c6iiiBTLi"6iissi«iiBLB * 

"iBfi£i»*»BficB*si*tfiS—"" 

"tolsbbbo *iot *FO01D*0i*I0I " * * 
BBBOVBBLB VOLOBB(S) 

"si Sili *Fi£i"i6t"c£6S bd* **"* " 



«* •• 

.* *. 

-* BBOCBDVBB *. BO 
*. BBIIG .♦... 
•.BIBCUTBD .* 



.1. 



IB *-g* *■-* 



.* DOBS *. 

.• vbocIdobb •- B< 

*. COBtAIB -*- 

*- SISIPT .* 

•.DAtA # .* 

"•*IBS 

i! 



IB tO * 

16 SBQ * 



• SBt BOIBTBB * 

• 10 BBBOB * 

• HBSSAGE 1B5BD * 



*G¥ * 
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Refer to Charts 10 to 13, 



****A1* ******** 

* * 

* GETPUB * 

* * 
*************** 



FIRST 
ENTRY OF 
, LIST 



**£1******* 

* 

INDICATOR FOR * 



***• 

* * 

* 83 * 



**** 

* * 

* K3 * 

* • 
**** 



* POINT TO * 

* NEXt INFO *X 

* TABLE ENTRY * 

* * 
***************** 



TURN OFF 
"DICATOR Fl 
IRST ENTRY 

* * 

*********** 



*****D1******* 

* GET BEGIN 

* ADDRESSES 



***************** 



*****£ 1 ********** 

* SAVE BEGIN * 

* ADDRESS AS * 

* NEW ENTRY OF * 

* INFO TABLE * 

* * 

***************** 



*****jp J********** ■ 

" "TIALIZE * 

ftBBR OF * 

IES LEFT * 

IN INFO TABLE * 
m * 

***************** 



* INITIA 

* NURBS 
*, ENTRIES 



**S1******* 

* TURN OFF * 
INDICATOR 

FOR END OF 
INFO LIST 

* * 
*********** 



*****[] 1 ********** 



* , CLEAR * 

* 3800 PUB * 




* SAVE AREAS • 




* * 




***************** 




*•** I ■ 




* * .X..* 




* J1 *.x. 




* ♦ 




**** , 




NOIBTENT X 




*****j |********** 




* * 




* POINT TO * 




* NEXT I»FO * 

* TABLE ENTRY * 






* * 




***************** 




X 




.*. 




K1 ♦. 




.* ANY *. 




.* INFO *. NO 


*. table entries.*, 
*. left .* 






*. .* 




*. ,* 




* YES 






* 




* 


X 


* 


**** 




* * 




* A2 * 




* ■ • * 




**•* 





*****B2********** 
♦PUBCUUSC KC* 
*-*.,*-*-*-*»*-*».* 

* FIND A * 

* PUB ENTRY * 

* * 
***************** 



X 

*****C2********** 

* GET ADDRESS * 

* OF NEXT INFO * 

* TABLE ENTRY * 

* AND SAVE If * 

* * 
***************** 



**l)2********** 



* ENTRIES LEFT .* 

* * 

***************** 

**** , 

* * 

* &2 *.X 



END 
OF PUB 
REACHED 



END OF 

PUB TABLE 

. REACHED .' 



* PUB * 

DEVICE TYPE 
*. HATCH .* 



*****03********* 
* 

* POINT TO 
.* NEXT PUB 

* ENTRY 
****************< 

**** 

* * 

* B3 *... 



.* iAS *. 
.* A 3B00 *. N< 
♦1-FEAT. SUPER-.*. 
*.SET SAVED.* 



**** 

* * 

* A5 * 

* * 

•*** 



ENTRIES LEFT * 

* 
**************** 



*****C<t********** 

* * 

* POINT TO * 

* BEGIN OF * 

* PUB TABLE * 

* * 
***************** 



..X* E2 * 

* * 
**** 
.*. 

Da *. 

.* HAS *. 

.* A 3800 *. 

.X*2-FEAT. SUPER-.* 

♦.SET SAVED.* 



*****g<l ********** 

* LOAD THE * 

* CORRESPONDING * 
•PUB ENTRY ADDR *. 
♦FROH SAVE AREA * 

* * 
***************** 

*•** 





* AS * 








* * 








**** 








X 






GPBXIT2 .*. 








AS *. 








* *, 






.* 


3800 


*. 


NO 


*. 


FEATURES 




*. .. . 


* 


SPECIFIED 
*. .* 


* 


* 




*. .* 




X 




* YES 




**** 

* * 

* P5* 



**** 

* * 

* FU* 

* * 
**** 





* K5* 




* * 




**** 




X 


NOFEAT 






Db *. 




* *. 


.* 


DEVICE *. YES 




HITH .*.... 


* 


1-FEATUHB.* 




* . . * " . 




*. ..* X 




* MO **** 




• ■ .■■■■* * 




* H5* 



G2 *. 
,* IS IT *. 

POB OF *. 
A 7^TRACK .* 
. TAPE .* 



*****P3********** 

* LOAD THE * 

* CORRESPONDING * 
*PUB ENTRY ADDR * 
*FROH SAVE AREA * 

* ..* 
***************** 



*****q3********** 

* * 

* CLEAR 3800 * 

* PUB SAVE AREA * 

* FOR NEXT PASS * 

* * 
***************** 



NO 


* ASSIGNED * 




...* 


FEATURES ON 

*. DEVICE .* 

*. .* 


* 


X 


*. .* 




**** 


* YES 




* 






K« * 






* 






***• 


X 
.*. 

GU *. 

.* *. 
* DEVICE * 




* 


HITH TWO 
♦.FEATURES .* 


* 



DEVICE *. 
HITH 
.2-FRATURE.* 



**** 

*' . * 

* Ha* 



FOUND 

*****F5«********* 

* POINT -TO * 
*NBXT PUB ENTRY * 

..X* AND SAVE * 

* THIS ADDRESS * 

* * 
***************** 



*****G5********** 



..X* 


F5 


* 




**** 


.*. 




H3 *. 




.* IS IT * 




PUB OF 
A 7-TRACK 


*. 




. TAPE 


.* 



* HU *.X. 

* * . 
**** X 

SAVEBOTH .*. 

H«* *. 

.* HAS *. 

.* 2-FBATURB *. 

*. ALREADY .* 

*. SAVED .* 



**** 

* * 

* J1 * 

* * 
**** 



* 


POINT TO 


* 


* 


PREVIOUS PUB 


*. , . . 


* 


ENTRY AGAIN 


* 






* 


***************** x 






**** 


**** 


* * 


* 


* 


* E2* 


* 


Hb *... 


* * 


* 


* 


**** 


**** X 




VEDNE .*. 






H5 *. 






.* HAS *. 

* 1-FEATUKE * 






. YES 


X* 


ALREADY 
*. SAVED .* 

*. .* 


.*.... 




*. .* 


X 




* NO 


**** 



**j2******« 

* TURN OPF * 
INDICATOR 

•DEVICE NOT 
DEFINED* 

* * 
*********** 



****K2********* 

* HETUHN TO * 

* CALLING SEQ * 

*************** 



**K3******* 

* * 
INDICATE 

END OF 
INFO LIST 

* * 
*********** 



KJ * 

* 

**** 



*****jit ********** *****j 5** ******** 

* * * SAVg * 
♦SAVE 2-FEATURE * * 1-PEATU8E * 

* IN 3800 * X* IN 3B00 * 

* SAVE AREA * * SAVE AREA * 

* * * ■ * 
***************** ***************** 

**** 1 

* * 

* K<» *... 

* * .X 

**** 
INCRPUB X BOTHFEAT .*, 

*****KI»********** Kb *. 

* * . * *. ' 

* POINT TO * NO ,* DEVICE *. 
...X* NEXT PUB *X*.......«. HITH .*X... 

* ENTRY * *.2-PEATUHE.* 

* * *. .* 
***************** *. .* , 

♦ tUS **** 

. * * 

* K5* 

X X * * 

**** **** **** 

* * * * 

♦ B3 * * Fb * 
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**A1********* 
* 
PUBCUOSC * 

************* 



*****B1 ********** 



****X3********* 

* 

* HODETST 

* 
*************** 



*****U >,********** 



**********; 



.* *. ****c2********* 

.* *. YKS * RETURN TO 
*. END OF PUBS .* X* CALLING SEO. 



*************** 



*****£ 3********** 

* POINT TO * 

* 7-TRACK BOOB * 
♦TABLE. INDICATE* 

* 7-TEACK NODE * 



*** 



******* 



* POINT TO 

* 9-TRACK BODE 

* TABLE 

* 
*************** 



*****g1 ********** 

* * 

* INCREMENT * 
. .*PUB POINTER TO * 

* NEXT ENTRY * 



***** 
*GW * 
* C2* 

* • 



*«***P3********** 

* * 

* POINT TO NEXT * 
.* BODE TABLE * 

* ENTRY * 

* * 
***************** 



***************** 



***************: 



**f 5******* 
* INDICATE * 

* FIRST ENTRY * 
, ,X*FOH SUBROUTINE 

* GETPUB * 



****tj<l********* 

* HBTURN TO 

* CALLINS SEQ 



NXTPUB X 

*****g:>********** 

•GETPUB KB* 

*_*_*_*_*_*_*-.*_* 

* GET NEXT PUB * 

* BATCHING WITH * 
•INFO TABLE LIST* 

***************** 



.* END 

OF LIST 
*. REACHED 



*****j5********** 

* SET FIRST * 
•7 BITS OF CHAN.* 

* SCBED. FLAG • 

* BYTE TO ZERO • 

* * 
***************** 



. • TAPE UNIT *. 
.TYPE C08RESP.. 
*. WITH .* 
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****A1********* 

« * 

* DEVTBST * 

* * 

*************** 



DEVTEST 

**$\******* 

* INDICATE * 

* FIRST ENTRY * 
*POR SUBROUTINE * 

* GETPUB * 

* * 
*********** 

**** * RBFBRENCBS 
**** . TO KDC1: 

* * *.X. KBB3* KEGS 

***** : K8J1 

NXTTYPE X 

*****C i********** 

♦GETPUB KB* 

*-*-*-*-*-*-*-*-* 
X* GET NEXT PUB *X... 

* HATCHING WITH * 
♦INFO TABLE LIST* 

***************** 



**** 

* * 

* BJ * 

* * 
**** 



.* HFCH/HFCU *. NO 
♦.TO BE TESTED .*... 
*. .* 

*. .* 
*. .* 
* YES 



END 
OF LIST 
REACHED 



TAPE 

TO BE 

TESTED 



****D2********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



**** 

* * 

* B3 * 

* * 
**** 



*****pj ********** 

* * 

* GET ZONE * 

* OF PUB * 

* DEVICE TYPE * 

* * 
***************** 



*****H 1*********1 
* 

* GET HHOLB 

* PUB DEVICE 

* TYPE 
* 
**************** 



***** 
*KA * 
* B2* 



* B!> * 

* * 
**** 



**£)•>******* 

* * 

indicate: 

A DISK 
FOUND ' 

* * 
*********** 



****c<>********* 

* RETURN TO * 

* CALLING SEU * 



***** 

• KB * 

* A1* 

* * 



* YES 

'.X.... 
X 

•*•* 

* * 

* B5 * 

* * 

**** 
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Chart KE. $JOBCTLD - Subroutines 

Refer to Charts 10 to 13.. 



* 11 * 

* * 
**** 




NSTADSK .*. 

AI *. 
.* *. 
.* SYSRES *. NO 


NOTSTRBS .*. 

A2 *. 

.* * 
.» DISK 
....X*. TO BE 


*. TBSTBD .* 
. *. .* 

*. .* 
* * YES 

* * 
*KD * 

* * . 
***** 


*. TBSTBD 
». .* 
*. .* 
* YBS 


B1* '*. 
.* *. 
NO .* *. 
....*. 33*0 .* 


B2* **. 

.* *. 
.* CKD 
*. DEVICE 



.* SYSRES 
*. ALSO 
*. 3340 



NO .* 33J0 *. 
..♦.HOD 1, 2, 11 .* 



.* SYSBES *. YE 
•.ALSO 3330 NOD.*.. 
♦ .1, 2, 11 .* 



NO3330 . . 

F1 *. 

.* DBV *. 

.* TYPE OF *. 

*. ASSIGN SANE . 

*.AS SYSRES.* 



DEVICE 
TYPE 
LIST 



***** 
*KD * 
♦ C1* 



***** 
*KA * 
* B2* 

* * 



22US 
PRINTS* 
TEST 



NO 


* 


224b *. 


* . .*. 




DEVICE .* 




*. 


.* 






*• . * 


X 




*. .* 


***** 




* YES 


*KA * 

* B2* 










* * 




X 


* 




***** 


INDVTP 




*KD * 
• cl* 

* « 

* 

NXTTXPtf 



****p2********* 

* RETURN TO * 
.X* CALLING SEO. * 

* * 
*************** 



1052 *. 
DEVICE 

.* 


YBS 
*.... 




.* 

*. .* 
* NO 

X 
.*. 

F3 *. 

*. 
CRT * 
DEVICE 

.* 
.* 
*. .* 


X 

***** 
♦KD * 
* C1* 

* * 

• 

MXTTYPE 




NO 
* 


**pit******* 

* INDICATE A 
X* NON 1052/CRT 

* DEVICE 

• 
*********** 



LAST 
ENTRY OF 
. LIST 



****GI»********* 

* RETURN TO * 

* CALLING SEQ * 

*************** 



NO .* 


FBA 


. . .*. 


DEVICE 


• 






*. . : 


X 


*. .* 


***** 




1 mi 


*KD * 






* cl* 




X.. 


* * 






* 






NXTTYPE 






**Mb*< 


»•**« 


• 




* 


INDICATfi 


* 


A DtSK 


* 


FO 


JND 



*********** 



****J •)********* 

* UfiTUHH 10 • 

* CALLING SEU * 

* * 
*************** 



X 

***** 
*KA * 
* B2* 
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REFERENCES 
TO KFAtt: 
ILH2, JAG1 
JLG3, KGF3 
KGG1, KGJil 



****A1 ********* 

* * 

* SYSYYY * 

* * 
*************** 



SYSYYY 

*****B1 ********** 
♦SYSZZZ JT* 



***************** 



*****ci ********** 

♦SAVE UNIT TYPE * 

* LUB ADDRESS * 

* PUB ADDRESS * 

* * 
***************** 



****D1******** 

RETURN TO 

CALLING SEQ 



****F1********* 
* 
SYSXXX * 

* 
*************** 



***************** 



*****H 1********** 



*********** 



***** j 1 ********** 

* SAVE LOG * 

* UNIT TYPE * 

* LUB ADDRESS * 

* PUB ADDRESS * 

* FOR SYSXXX * 
***************** 



****A2********* 

- * 
DISKDEV * 
* 
*************** 



DISKDEV 

*****B2********** 

* LOAD LUB * 

* ADDRESS OF * 
♦PREVIOUS ASSIGN^ 

* IN HRK3G3 ♦ 

* * 
***************** 



DISDBV2 X 

*****(; 2********** 
♦CHKASG3 GU^ 

, *_*-*-*_*_*..*-*_* 

♦ CHECK ♦ 

♦ ASSIGN ♦ 

- * * 

***************** 



****A<4******** 
* 
♦ SYSTBRR 

************** 



SYSTERR 

*****B<I* ********* 

♦ UNPACK AND ♦ 

♦ TRANSLATE THE ♦ 

♦ RETURN CODE ♦ 

♦ TO CHARACTER ♦ 

♦ * 
***************** 



♦ MOVE 

♦ RETURN CODE 

♦ TO MESSAGE 

* 
*************** 



.♦PUB DEVICE *. YES 
♦.TYPE FOR CKO .♦..X 

♦. DISK .♦ 



.♦PUB DEVICE ♦. YES 
♦.TYPE FOR FBA .♦..X 

♦. DISK .♦ 



.♦PUB DEVICE ♦. YES 
♦. TYPE FOR .♦... 

♦. 35U0 .♦ 



♦ NO 



RETURN TO ♦ 
CALLING SEQ ♦ 

*************** 



*****£()********** 

* * 

♦CORRECT MESSAGE^ 

* NO. IN SUB- ♦ 
♦ROUTINE 'ERRTN'^ 

* * 
***************** 



****F4* ******** 

♦ EXIT TO ♦ 

♦ ERRTN IN ♦ 

♦ JJOBCTLA ♦ 

*************** 
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****Al******** 

* FBASLD 

* *A2 

************** 



*k2 
CSBCT HITH 
BASE REGISTER 
MRKRG5 



FBASLD X 

*****£ 1********** 

* HOVE SYSCLB * 
*DIR START ADOR * 

* PROH FETCH * 

* TABLE TO STOW * 

* TABLE * 
***************** 



****Ci ********* 

SAVE 
BASE REG 

*************** 



*****01 ********** 

* * 

* GET 10K PART. • 

* GETVIS AREA * 

* FOR JHAINDIP * 

* * 
***************** 



*****B3********** 

* * 

* SAVE SHAINDIP * 

* RETURN CODE * 

* PROM BEG IS * 

* * 
***************** 



****C3********#* 



RESTORE 

REGISTER 

9-15 

************ 



D3 *. 


FBASLDH 

*****Q4* ********* 


.* *. 


* « 


.* *HAINDIF *. YES 


* SAVE * 


. RETURN CODE . * 


..X* BASE REG * 
» 15 * 


*. ■ .♦ 



* GETVIS • 

RETURN CODE 
*. ■ .* 



***************** 



HOVE GETVIS * 

TO SYSTEM * 

ERROR MESSAGE * 

* 
**************** 



* SAVE * 
.X* GETVIS AREA * 

* ADDRESS * 

* * 
***************** 



*****F2********** 

* * 

* GET ADDRESS * 

* OF $HA£NDIF * 

* ENTRY POINT * 

* * 
***************** 



*****G2********** 

* * 

* LOAD ADDR * 

* OF STOW TABLE * 

* IN REG * 

* * 
***************** 



************** 



*****P3********** 

* * 

* ROVE SBAINDIF * 

* TO SYSTEB * 

* ERROR BBSSAGB * 

* * 
***************** 



***************** 



***EU ********** 

* 

PBRB * 

GETVIS * 

AREA * 

* 

**************** 



*****pi4********** 
' * * 

* SAVE PREEVIS * 

* RETURN CODE * 

* FROH REG 15 * 

* * 
***************** 



***** 
*KF * 
* Al»* 



* FREBVIS * 
RETURN CODE 

*. as .* 



****3 •>********* 

* RETURN TO * 

* CALLING SEU * 

* * 
*********** **** 



****H2********** 

SAVE * 

REGISTER * 

9-15 * 

* 
**************** 



***J2********** 

* CALL 

fHAINDIP 

*J3 * 

*************** 



BUILD SLD POR 
SYSCLB ON FBA 
DEVICE R14 IS 
RETURN REGISTER. 



********** 



*****j4********** 

* * 
♦HOVE •FREBVIS' * 

* TO SYSTEH * 

* ERROR HBSSAGE * 



***** 
*KF * 
* A«* 
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**** 

* ■* 

* A3 * 

* * 
'**** 



****A1******»** 

* * 

* SJQBCTLE * 

* * 



*********** 



**%2******* 

* * 
POST 

OPERAND 
FLAG 

* * 
*********** 



in it 

**in******* 

•SEI S«£TCH * 
* FOR JOB * 
. ..**ACCOUNT RECORD 
X * WRITTEN * 



*********** 



**£1******* 

* * 

* RESET FLAGS * 
FOR •NO PHASE 

* NAME' AND * 

* OPERAND * 

*********** 



EX115 

***** C 2********** 
» SET ERROR * 

* COUNTER TO * 

* ERROR MESSAGE « 

* 1H6ND * 

* * 
************ ***** 



PHASE 

NAME 

PRESENT 



RECORD 

ALREADY 

BRITTEN 



«***C3********** 

GET ADDRESS * 

OF JOB * 

ACCOUNTING * 

TABLE * 

* 

******** 



* FIRST *. 

EXEC AFTER .* 
*. JOB .* 



EXEC 

WIIHIN A 

* PROCEDURE. 



* OVERWRITE *. 
AFTER EXEC . 
*. REQUESTED.* 



*****0 14********** 



***************** 



*****£ 1 ********** 




E2 *. 


•SCAHR2 GK* 




.* HAS *. 


ft.*-*-*-*..*-*.*-* 


NO . 


♦PHASE NAME *« 


* GET FIRST * 


. . **. 


CORRECT . * 


* OPERAND * 




*. LENGTH .* 


* OR KEYWORD * 




*. .* 


***************** 


X 


*. .* 




***** 


• YES 




*GW * 






* C2* 






* * 
* 




X 


NVSERR 


i 


F1 *. 


*< 


***P2********** 


.* ** 


* 


SAVE * 


.* *. NO 


* 


PHASE NAHE * 


*. KEYWORD .*... 


• * 


IN ROOT * 


*. FOUND .* 


* 


PHASE AREA * 



***** 



*****Q 1********** 

* SET ERROR ♦ 

* COUNTER TO * 

* ERROR MESSAGE * 

* 1H7ND * 

* * 
***************** 



.* KEYWORD *. XES 
. EQUAL TO .*».. 

*. PROC .* 



.* KEYWORD *. NO 
. EQUAL TO .*... 
*. PGM .* 



***************** 



*****Q2********** 



***************** 



**H2******* 

* SET OFF * 
SWITCH FOB 
EXEC BLANK 

ALLOWED 

* * 
*********** 



***** 
*LQ * 
* OH* 



*****g3*$******* 

* HOVE * 

* SYSTEM DATE * 

* FROH COHREG * 

* TO WRKFLD * 

* * 
***************** 



*****p3********* 
* FORMAT TO 



**************** 



NODATE X 

*****Q3********** 

* POST VECTOH * 

* TABLE VALUES * 

* POR LOADING *. 

* WOBCPLN * 

* * 

***** 



********** 

**** 

* * 

* H3 *... 

* * . 

**** . F! 
X 
*****H3********** 

* POST * 
» OPERAND FLAG * 

* IF MORE * 

* OPERANDS * 

* PRESENT * 
***************** 



***** 

*GD * 

Bit* 



* PROC. 

LIBRARY ON 
*. FBA 



.* SISFIL 
SUPPORT 
*. AVAILABLE. 



*****G4********** 

* * 

* UPDATE * 
*PROC. DIB FROH * 

* PROCEDURE DFI * 

* * 
***************** 



EX000 
YES .* 



PHASE 

NAHE 

PRESENT 



* EXEC * 
STMT. BEING 

• . INSERTED .* 



***** J !}********** 

•REDUCE CURRENT * 

* RECORD NUMBER * 

* IN PROCEDURE * 

* DIB BY ONE * 

* ;■■■-* 
***************** 



***************** 



INDICATE 

NO SET SVA 

ALLOWED 

* * 

*********** 



**K3******* 

* * 
POST NO 

PHASE NAHE 

* F " G * 

*********** 



160 

**** 



.* SYSFIL *. 
.X*. SUPPORT 

*. AVAILABLE.* 



*****P5********** 
•CLEAR POINTERS * 

* TO BUFFER AND * 

* DIB BXTENSION * 

* IN PROC. DIB * 

* * 
***************** 



* BXBC * 
STMT. BEING , 
•.INSERTED .* 



*****tl5********** 
•REDUCE CURKENT • 

• RECORD NUMBER * 

• IN PROCEDURE * 

* DIB B* ttO • 

* " ; * 
***************** 



*K*»*********i 

* CAUSE 

* RELOAD OF 

* SJOBCTLA 

* 

********•*******! 



**K5******* 

* * 

* RESET 

. X* PROGRAM MASK 

• IN PSW TO ' 

• ZERO * 



**** 

* * 

* A3 * 
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***** 

♦ LA * 

* Kb* 

* * 



*****A1 ********** 


*****A2********** 


*HTMCNT GU* 


* * 


*-*-*-*-*-*-*-*-* 


* GET SAfED * 


* RELEASE * 


. ..X* PHASE NAME * 


* THE SYSTEM * 


* * 


* * 


* * 


***************** 


***************** 




\ **** * 




, * * 




* B2 *.X. 




* * 




**** x 


X 


.NOCAT .*. 


*****£ 1 ********** 


B2 *. 


♦IOHOUTH NQ* 


.* JOB *. 


*-*-*-*-*-*-*_*-* 


.♦ACCOUNTING *. NO 


* WAIT FOR * 


*. INTEBFACE .*.. 


* SYSLOG I/O * 

* * 


*. SUPPORT . ♦ 



***************** 



*****£ 1 ********** 

♦MTNCNT GO* 

*-*-*-*-*-*-*-*-* 

* SEIZE * 

* THE SYSTEM ♦ 

* * 
***************** 



* CLEAR * 

* PHASE NAME * 

* STORAGE ABBA * 

* * 
***************** 



.* PHASE 
BABE 
♦. PRESENT 



*****C2*** ******* 

* PUT PHASE * 

* NAME INTO ♦ 

* ACCT TABLE 



******** 



******\**« 



**D2******* 
* * 

POST JOB 
STEP RECORD 

INDICATOR 



ACCTIGM1 

*****£ 2********** 

* SAVE * 

* PBOGRAM NAME * 

* AND INDICATE * 

* SAVING * 

* * 
***************** 



* B3 * 

* * 
**** 



*****B3********** 

* * EXTRACT * * 

* * PARTITION ♦ ♦ 

* ♦BOUNDARIES * * 
*FOR /370-SYSrBB* 



* * 



* * 



***************** 



*****£ 4* ********* 

* * 

* PREPARE * 
.X* EBBOR MESSAGE * 

* 1S40A * 

* * 
***************** 



* * 






****Q1| ********* 


MORE 


*. 


NO 


♦ BRANCH TO 


OPERANDS 




♦ . . . . 


♦ ERRRTN IN 




* 




♦ fJOBCTLA 


♦. . ♦ 






*************** 


♦ . .* 




X 




♦ YES 




***** 

♦ LB ♦ 

♦ K1* 




X 




* * 




**** 




* 




* * 




NOTVIBT 





DELIMITER 


*. . . . 


. , OB * .* 




*. . * 






X 


* NO 


***** 




♦ LD * 




* B1* 




* * 




* 




PARCHK 


X 




**D5******^ 




* 




SET ON 


> 


REAL SNITCH 


* 



******** 



**************** 



EXbLNK 


.♦. 
F1 *. 

.* *. 




HO .♦ 


EXEC 


*. 


. . .♦. 


BLANK 


.* 


* 


. ALLOWED . 
♦. .♦ 


* 


X 


♦ . .♦ 




***** 


♦ YES 




♦ LO ♦ 






♦ B5^ 






* * 












H1S10D1 


X 




*****(; 1 ********** 






* 


* 


GET SAVED 


* 


* 


PHASE NAME 


* 


* 


INTO PHSNM 


* 


* 


♦ GU 


* 


***************** 



IS IT 

EXEC 

LNKEDT 



IS IT 
EXEC 
RPG 



**H2******* 

* SET OFF ♦ 

* SNITCH FOR 
PROGRAM NAME 

* SAVED 

* * 
*********** 



*G4 
NOTE: FOR A 
LINK-GO OR CATAL-GO 
JOB, THE NAME OF 
THE PHASE TO BE 
EXECUTED IS SAVED 
BY THE LIBRARIAN 
IN THE SYSTEM GETVIS 
AREA AND RETRIEVED 
BY *JOBCTLB VIA THE 
SLA LABEL MACRO. 



*****H 3********* 

♦ MODIFY 

♦ PHASE NAME 

♦ TO RPG1 

* 

■********i 



**j1******* 

* * 
SET OFF 
LINK-GO 
SNITCH 

* * 

*********** 



**K1******* 

SET OFF 

EXEC ALLOH 

SNITCH 

* * 

*********** 



RESFCH 

*****j2********** 

♦ RESET BITS * 

♦ IN OPTN BYTE ♦ 

♦ FOR CU END ♦ 

♦ APPENDAGE AND ♦ 

♦ ANCHOR TAB ♦ 
***************** 
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**** 
* * 

* B2 * 



* Bi * 

* * 
**** 



**** 
X 



* B^ * 

*. * 
**** 



.* DELIMITER ** YBS 



**q%******* 



*********** 



*****])) ********** 

*TBSTRBAL LU» 

*_*_*-*_*_*_*.*..* 

* CHECK POR * 

* REAL * 

* * 
***************** 



s 


.* IS IT 


* 


NO 




». SIZE 




* 








* 








*. .* 








X 


*. .* 






X 


**** 


* YES 






*** 


* 










G1 * 








* K5 


* 








* 


**** 


X 






*** 




*****Q2******t 


*** 






♦SCANR3 


GK* 






* GET 


r 


* 






* NEXT OPERAND 


* 





OPERAND 

TOO 

LONG 



_*_*_*_*_*_*..*_ 



Hi*** ****** * ***** * 



*. DELIMITER 

*. . ; 

*. .* 
*. .* 
* YES 
**** 

* * 

* G1 *.X. 

* * 
**** X 

TESTSIZE 



G1 



***************** 



.* DELIMITER ** YBS 



* K5 * 

* * 
**** 



**D3******* 

* SET AUTO * 

* SWITCH FOR 
* 'AUTO* AND 

* 'AUTO' 

* ONLY * 
*********** 



***** 
*LE * 
* K1* 



*****q 3**** ****** 

* INCREASE * 

* POINTER TO * 
♦SECOND CHAR AND* 

* DECREASE * 

* LENGTH BY ONE * 
***************** 



* H 


i *.X. * 


* 


* . *** 




K* X 


TESTNK 


.*. 




H2 *. 




* *. 


.* 


UPPER *. YBS 


*„ 


BYTE IS .*.... 


* 


K .* 




*. .* 




*. .* X 




* NO *** 


* 


* 


* 


* B5 



*********** 



* B2 * 

* * 
**** 



**QH******* 



*********** 



<-*-> 



,*->-*-*-* 

GE'F * 

* NEXT OPERAND * 

* * 
***************** 



LAST SIGN *. NO 
IS .*..X 

. BLANK .* 



UPPER 
BYTE IS 

± ) 



*****ji|*** ******* 



HAS IT 


*. 


NO 


.* 


TOO *. YES 




* DECREASE 


AUTO , NK) 




*. . . . 


*. 


SMALL .*..X 




* LENGTH 




* 




*, 


** 




* REGISTER 


*. .** 








*. .* 




* 


*. .* 




X 




*. .* X 


************* 


* YES 




**** 

. * * 

* K5 * 




* N0 **** 

* * 

* K5 * 




X 




* * 




X * * 




**** 




**** 




**** **** 




* * 








* * 


X 


* B3 » 








* B4 * 


.*. 


* * 








* * 


Ktt *. 


**** 








**** 


,* * 
.* VALUE 














*. AVAILABLE 



X 

**** 
* * 
» K5* 



.* ALL *. NO 
CHARS .*... 

*. DECIMAL .* 



*****U5**** ****** 



* PACK AND 

* CONVERT THE 

* VALUE FOR 

* SIZE 

************ 



* NO 


**** 




* * 




* K5* 




* * 




**** 


X 








F5 ». 




.* *. 




.* IS IT * 


YES 


. A MULTIPLE . 


*. . . . 


*. OF 2 .* 




*. . * 




*. .* 


X 


* NO 


***** 




*LE * 






* C1* 






* * 






* 


X 




**li5******* 




* * 




♦SET AUTOSWTC * 


FOR ODD N 


* 



***** 

*LE * 
* 81* 



****K5******* 

* BRANCH XO 

* NVSERK IN 

* »JOBC£LA 

*************; 
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* ROUND UP 

* BY ADDING 

* ONE 

*********** 



**** 
*LD * 
* P5 > 



*****£ J********** 

* LOAD POINT1 * 

* HITH ORIGIN * 

* OP VIRTUAL ♦ 

* PARTITION * 

* * 
***************** 



*****!) 1 ********** 

* LOAD POINT2 * 

* HITH END * 

* OF VIRTUAL * 

* PARTITION * 



• 62 ♦ 

* * 
**** 



B2 *. 
.* DOES *. 
PARTITION 

ORIGIN 
. * END . 



** B3 ********* 
BRANCH TO * 
NVSERR IN * 
*JOBCTLA * 

************* 



******** 



******** 



*****F1 ********** 

* LOAD POINT1 * 
♦WITH ORIGIN AND* 
♦POINT2 WITH END* 

* OP REAL * 

* PARTITION * 
***************** 



*****D3********** 



***************** 



*****g2********** 



************** 



* CALCULATE * 
♦PARTITION BEGIN* 

* AND SIZE * 

* * 
***************** 



H1 *. 
.* BEGIN *. 
.* AND SIZE *. XES 
. GT END OF .*.... 
*. PART .* 



*****j J********** 

* * 

* STORE BEGIN * 

* AND SIZE TO * 

* NDBGAR1 * 

* * 
***************** 

**** ' RBPERENCES 
♦♦♦♦ . T o LEK1: 

* * „• LBD3, LBE5 

* *^*.X. LD D3 
**** * 

NOTVIRT X 

*****K1 ********** 

* LOAD POINTS * 

* HITH ORIGIN * 

* KND POINT2 * 

* WITH END OF * 

* PARTITION * 
***************** 



* STORE SAVE * 

* AREA ADDR * 

* IN GPSVSTRT * 

* * 
***************** 



FLOAT 
POINT 
FEAT 



***** J 2*******41** 



***************** 



* F3 * 

* * 
**** 



*****? 3********** 

* * 

* SAVE START * 

* ADDR OF * 

* PARTITION * 

* * 
***************** 



*****Q3********** 

* ADD LENGTH * 

* OF LABEL AREA * 

* TO FIND * 

* PROGRAM START * 

* AREA * 
***************** 



*****H 3*********1 
* 

* SAVE 

* PROGRAH 

* START ADDR 
* 

****************; 



.♦ STHT ♦. 
..X*. OUT OF 

♦.SEQUENCE .* 



GETDIR X 

*****A 5********** 

* MOVE SAVED * 

* PHASE NAflE * 

* FROH PHSNBE * 

* TO IN-COHE * 
♦DIRECTOR* KNTRX* 
***************** 



«****£ 5* ********* 

* LOAD * 
♦PARTITION ADDR * 
♦AND LABEL AREA * 

* IN REGU * 

* * 
***************** 



*****C5********** 

♦ LOAD * 
♦ADDR OP IN-CORE* 
♦DIRECTOR* ENTRY* 

♦ IN REG1 * 

♦ * 
************ 



*****[)5********** 

♦ GET DIRECTOR! * 
♦ENTRY OF PHASE * 
♦TO BE EXECUTED * 
♦VIA HPROG HACRO* 

* * 
***************** 



**P4******* 

* TURN OFF * 
SW FOR STNT 

OUT OF 
SEQUENCE 

* * 
*********** 



* C5* 

* 
N1S10D 



*****? 5********** 

♦ CALCULATE * 

♦ AND STORE * 

♦ LOAD ADDRESS * 

♦ OF PHASE * 

♦ ♦ 
***************** 



.* LINKAREA *. VES 
TO BE .*..., 

♦.SEARCHED .* 



***************** 



**** 

* * 

* Fi * 







*LH ♦ 
♦ B1* 






* * 




X 


TESTAUTO 


X 






*****JII* ********* 


J 5 ♦. 




* * 


.♦ * 




•LOAD IN POINT2 * 


NO .♦ SXSCLB 




* START ADDR OF * 


♦. ASSIGNED 


. * 


* FETCH TABLE * 


*. 


.* 



*****gil ********** 

* ZERO OUT * 
♦LINK-AREA ADDR * 
♦IN FETCH TABLE *X. 

* ENTRX * 

* * 
***************** 



.X. TESTAUTO 



*****K5********* 

♦ CALCULATE IN 

♦ POINT2 ADDR 
.♦OF FETCH TABLE 

♦ ENTRX 

****************; 
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* move 

* SiLNKEDT 

* IN PHSNHE 

******** ********* 



.* LINK *. 
OR CATAL *. NO 
SPECIFIED .*.... 



MOLNKDIR 

*****[)-]********** 

* LOAD ADDR OP * 

* OUTAREA INTO * 

* WRKRG3 AND * 

* SET OP ENTRY * 

* STHT * 
***************** 



*****£ 1 ********** 
♦EXCPHG GQ* 

*-*-*-*-*-*-*-*-* 

* WRITE ENTRY * 

* STATEMENT * 

* * 
***************** 



*****Q J********* 

* 

* POST 
♦WRITE OUT FLAG 

* IN DIB 

* 
**************** 



*****H1 ********** 

♦EXCPRG GQ* 

*_*..*_*_*_*_*_*_* 

* WRITE OUT * 

* SYSLNK BUFFER * 

* * 
***************** 



CLRDIB X 

*****j1 ********** 

* CLEAR * 

* SYWRITLOGD8 * 

* IN DIB TABLE. * 
♦INDICATE SYSLNK* 

* AS CLOSED ♦ 
***************** 



236 DOS/VS IPL and Job Control Logic 
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• AS * 

* # 
**** 



*„ J* LEH5, LBKU 



* 

* LOAD 

* WBKRGJ HITH 

* NDBGAR1 

* 

************** **i 



*****C1 ********* 

* 

* LOAD HRKRG1 

* WITH 

* HIPROG 

* 
****************: 



*****D1 ********** 



*********** 



*****£ 1 ********** 



***************** 



*****Q2* ******** 

* 

* SUBTRACT 

* 1K FROM 

* HRKRGt 

* 

**************** 



TEHPBHD 

*****£2********** 
•CALCULATE TEMP * 

* PART END AMD * 

* STORE IT * 

* IN WRKRG1 * 

* * 
***************** 



*****g i********** 

* LOAD ORRPART • 

* IN WRKRG2 * 

* LOAD EMRPART * 

* IN POINT! * 

* * 
***************** 



*****H1*«* 



***************** 



♦.PARTITION.* 



****G2******»**' 



*************** 

**** '. 

* * 

* H2 *.X. 



SYSLNK 

PILE 
OPEN 



***** 
*L0 * 
* 11* 



LNKNOP X 

*****A3********** 

* WRITE OUT * 

* ANY PENDING * 

* LABELS HITH * 

* LABEL MACRO * 

* * 
***************** 



*****B3*** ******* 

* ' * 

* HOVB * 

* PROGRAM NAME * 
•INTO SAVE AREA * 

* * 
***************** 



* STORE * 
•PROG LOAD ADDR * 

* IN 'LOADADDR* • 

* * 
***************** 



it***** 



*****g3********«; 

* COMPUTE 

* SIZE VALUE 

* FOR REAL 

* PARTITION 

* 
**************** 



*****F3********** 

* * 

* SET REAL * 

* PARTITION * 

* BOUNDARIES * 

* *H4 * 
***************** 



*****Dit ********* 

* COMPUTE 

* SIZE VALUB 

* FOR VIRTUAL 

* PARTITION 
* 
**************** 



*****£4********** 

* * 

* SET VIRTUAL • 

* PARTITION • 

* BOUNDARIES • 

* *H«» * 
***************** 



****?<!********* 

* MSS 1S40A * 
, .X» SYSTEM ERROR * 

* * 
*************** 



****G !»»**»»**** 

* * 
♦SVC 58 VIRTUAL *X. 

* * 
*************** 



*•***&!>***** ***** 



***************** 



***** 05*********1 

* RBG1* 

* PROB PGM 

* PHASE NAME 

* 

********«*******: 



*****£•>****«•**•* 

* * 

* REG J" • 
•ADDR OF VIRTUAL* 
♦PARTITION START* 

* * 
***************** 



****«D5********** 

* * 

* RBG4* * 
•ADDR OF VIRTUAL* 

* PARTITION END * 

* * 
***************** 



*****gS********** 

* ttBG1!>» * 
•UPPERMOST bYTB * 

• AVAILABLE TO * 

• PROB PGM • 

* • 
***************** 



*****P5********** 

* * 

* HUGS9-1«= * 

* FETCH * 

* INSTRUCTIONS * 

* * 
***************** 



AUTO *. YES 


.* SYSLNK ♦. 


ONLY .*.... 


*. ON .* 


.* 


♦. FBA .♦ 


.* . 


♦. .* 


*. .* X 


*. .* 


* mo *•** 


* NO 


* * 




* E2 * 




X * • 




**** **** 




* * 




* B2 * 


X 


* * 


***«*K2********** 


**** 


* * 




♦INITIALIZE NBW * 




♦START ADDR FOR ♦ 




♦SXSLNK IF OPBN ♦ 



********** 



..X* A5 ♦ 

* * 
**** 

*****H3********** 

* SEI * 
•FORCB-HRITB-OUT* 

X* FLAG IN * 

* SYSLNK DIB * 

* * 
***************** 



*****j3********** 
•BXCPRG GU* 

***-*-*-♦-*-*-*-* 

* WRITE OUT • 

* SYSLNK BUPFBR * 

* * 
***************** 



*****K3********** 
•CLEAR POINTERS * 

* TO SYSLNK ♦ 
•BUFFER AND DIB * 

• EXTENSION IN * 

♦ SYSLNK DIB ♦ 
***************** 



****tj5********* 

* * 

* SVC SB RiSAL * 

* * 
*************** 



.X. 

X 

**** 
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Chart LP, 



$JOBCTLE - EXEC PROC- Statement Processor 
Refer to Chart 14, 



***** 

♦ LA ♦ 

• H1* 



**** 

**** 



** PBOC NANS *. N 
*. STARTS HITH .♦. 
*. $$ .♦ 



*****£ I********** 

•REPLACE SECOND * 
* fJlTH ♦ 



***************** 



CALLNOHM 

*****A2*********< 

* SET ERROR 

* COUNTER TO 
...X* HESS AGE 

* 1E800 



**************** 



..* IS *. YES 

♦PROCEDURE BEIHS*...* 
♦.EXECUTED .*■ 



. * PROCEDURE *. NO 
. WITH SYSIPT .*... 
». DATA .* 



*****B3********** 

•IPTDATA LR* 

*„*.*-***.* _*_*_* 

» CHECK IP * 
♦SfSFIL SUPPORT * 
♦IS AVAILABLE * 

***************** 



*LQ * 
V** 



*********** 



****B<1********* 

* BRANCH TO * 

* CONTROL IN * 

* SJ3BCTLA * 

*************** 



i****C2*******»** 

• 

RELOCATE * 

CCE'S AND * 

CCW'S » 

* 

i**************** 



, GK* 

*_*..*.*-*..*.***.* 

* GET PROCEDURE * 

* NANB * 

* * 
***************** 



*****g2********** 

•SYNTAX Lti« 

*.*_*.*.*_*.*.*.* 

* CHECK SYNTAX * 

* OF PROCEDURE * 



*****Cj********** 

♦PTCHJIB LS* 

*-*•*<.*-*-*.*..*_* 

* GET JIB(S) *X 

* TO SAVE * 



♦LR ♦ 
♦ J4* 

***** 



*****D3********** 

♦PROCDIB ^ LT^ 

*.*.*.*.*.*-*.*.* 

* INITIALIZE * 

* PROCDIB * 

* RNTBI X * 

***************** 



*****£3********** 

♦PASSGN LS^ 

*-*_*.*-*.*.*_*.* 

♦ ASSIGN SYSRDR ♦ 
♦TO PROC LIBRARY* 

* * 

***************** 



*****q2********** 
*SCANR3 GK* 

*-*_*.*.*..*-*.*.* 



***************** 



♦ Check operand ♦ 

* * 
***************** 



FIND ^ „ 

****«j2********** 
•FINDPHC LB* 

*.***.. *.**.«.*•*..* 

♦PIND THE CALLED^ 

♦ PROCEDURE IN " 

♦ THE L" 

******** 



****K2*********' 

UPDATE 

EBfiOR 

COUNTER 

*************** 



*«***(33********** 

♦PASSGN LS* 

*•*.*.*•*.*.*.*.* 

♦ ASSGH SYSIPT * 

♦ TO PROCEDURE ♦ 

♦ LIBRARY ♦ 

***************** 



*****|j3*********i 
* 

♦ MODIFY 

♦ SYSIPT DFB 
* 

* 
**************** 



CSBT 

*****J3********** 
SAVE THE 



*****************' 



**K3******* 
« SET FLAG * 

* TO INDICATE * 
THAT INPUT IS 

♦ FROH SYSRDR * 
* * 

*********** 



♦ A3 ♦ 

* « 
***• 



**** 

* * 

* AH * 
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Chart LQ, $JOBCTLE - Syntax Checking Subroutine 
Refer to Chart 14, 



SYNTAX 

*****B2********** 
SET BBROB * 
COUNTER TO • 
BBROR MESSAGE * 
•1B9ND 1 • 
• 
******** 



BRROR HANDLBR: 

CONSISTS DP THE ROUTINE AMD A SET 

OP THREE TABLES 

-OPPTAB: -OBTAINS THE OPPSETS OP IHE 

ASSOCIATED ENTRIES IN THE MVCTAB, 
FLAGS POR OPERAND NUMBERING AND 
AUTOMATIC CANCEL 

-MVCTAB: 

-TXTTAB: CONTAINS THE POSTED EBRJR MESSAGES. 



REFERENCES. ** 
TO LOCU: J * 
LRB5, LRCU * I* 
LBD3, LRG5 %* 
LRK2, LSE1 * 



BLNK .* BLANK *. NTHB 
.*. OR COMMA AS .« 

*. DELIMITER.* 



POST 

•OPERAND* 

FLAG 



COR a EC r *. N 
PROCEDURE .*. 
. NAME .* 



* RELEASE * 

* PROCEDURE * 

* LIBRARY (SVC 64) * 

***************** 

**** ' REFERENCES 

* * *TO LQD<»: 

* * * v*LAD2, LAJ1 

* * LRC1, LRF2 
" **** ^LRHl 

Ierror X 

**Dit******* 

* * 
X • RESET * 

....X* PSMITCH * 
X * TO ZERO * 

* * 
*********** 

***♦ . 

* ***• 

• D»» *LP • 

» • B2 *.X. 
***** * 
*•** 
BRROB2 X 

*****£(| ********** 

* * 
♦COMPUTE ENTRIES* 

* IN OFFTAB * 

* AND MVCTAB ♦ 

* * 
***************** 



*****F2********** 

* * 

* SET BRROR * 

* COUNTER TO * 
♦MESSAGE *1B10D'« 

* * 
***************** 



*****p n ********** 

* * 

* POST ADDRESS * 

* OF ERROR * 

* MESSAGE IN * 

* POINT 1 * 
***************** 



IS STMT 
GIVEN IN 
. COBMAND . 
♦FORMAT.* 



STATEMENTS ABB* 
READ PH SYSLOG) 

*********** 



***************** 



****H3********* 

* • 

* RETURN • 

* • * 
*************** 



* IS CANCEL *. 

FLAG ON IN . 

*. OFFTAB .* 



••Ha******* 

* * 

* SET AUTO * 
CANCEL SNITCH 

* IN JBCSHK * 

* * 
*********** 



.* IS *. 

.* OPBBAND *. 

•NUMBERING FLAG. 

*.IN OFFTAB.* 



*****K<4********** 

* * 

* RESET * 

* OPBBAND *. 

* NUMBER * 

* * 
***************** 



****Kb*** ****** 
bttANCH TO * 
EKBBTN IN * 
♦JOBCTLA • 
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Chart LR- $JOBCTLE - Subroutines 
Refer to Chart 14. 



****ai* ******** 
* # 

* CHKOV * 

* . * 
*************** 



.* BLANK *. 
. POSTED AS . 
*. DELIMITER. ♦ 



OPERAND * 
PRESENT AND 
. EQ «C»« .* 



**A2********* 

■ ' * 
FINDPRC * 

* 
************* 



FINDPRC 

*****B2** ******** 

* UPDATE * 

* ERROR COUNTER * 

* TO MESSAGE * 

* 1NU0D * 

* * 
***************** 



♦LQ * 
* DO* 



**D1******* 



*********** 



****g1********* 

* RETURN * 

* TO CALLER * 

* * 

*************** 



****G1********* 

* * 

* IPTDATA * 

* * 

*************** 

**** 

* * 

* H1 *.X 



.* SYSFIL *. 

♦SUPPORT AVAIL-. 
*. ABLE .* 



♦LQ * 
* Dt* 



• •• 
GU* 

»-* 



*****C2******* 
♦HTNCNT 

*-*-*-*-*-*-*• 

* RELEASE 

* THE SYSTEM 



***************** 



****** 3********** 

* * 

* PREPARATIONS * 

* FOR READING * 

* DIRECTORY * 

* * 

***************** 



*****B3********** 
•DSKINIT LT* 

*-*-*-*-*-*-*-*-* 

* GET * 

* DEVICE TYPE * 

* * 
***************** 



*****£ 3* ********* 
♦BXCPRG GU* 

*.*.*.*.*.*.*.*.* 

* READ FIRST * 

* DIRECTORY * 

* RECORD * 

***************** 



***• 

* * 

• B«* * 
**** 

X 

*****& il* ******** 
* 

* GET NEXT 

* DIRECTORY 

* tiNTRY 
* 
**************** 



* FBAPROC 

* 
************** 



FROC* 

LIBRAKf 

.AVAILABLE. 



***«*C5*****««*4 

* UPDATE 

* ERROR COUNTER 

* TO MESSAGE 

* 1N20D 



* C4* 



♦ LQ * 

* CU* 



*****02********** 


D3 *. 


* ENQUEUE * 

* PROCEDURE * 

* LIBRARY * 


NO .♦ ANX *. 
...*. ENTRX .* 

♦. ACTIVE .* 
*. . * 
X *. .* 
***** * yes 

♦ LQ * 

* C«»* 

* * . 
* 


***************** 


X 

*****£2********** 

*HTNCNT GU* 

*-*-*-*-*-*-*-*«.* 

* SEIZE * 

* THE SYSTEM * 


BRROR1 

X 

*****£ j********** 

* UPDATE * 

* ERROR COUNTER * 

* TO MESSAGE * 

* 1N20D * 



*************** 



P2 *. 

.PROCEDORE. 
LIBRARY 
ACCESS- 

. IBLE 



*****g2********** 

* UPDATE * 

* ERROR COUNTER * 

* TO MESSAGE • 

* 1N50D * 

* * 
***************** 



*****H2********** 

* GET ADDR OF * 

* PROC. LIBRARY. * 

* FROM SLA * 

* CONTROL BLOCK * 

* * 
***************** 



***************** 



*****P3********* 
* 

• INITIALIZE 

• POINTERS 

• FOR SCAN 
* 
*****•****•*****{ 



*****gu* ****** 

*BXCPRG 

*_*-*_*_*_*_*. 

* READ NEXT 

* DIRECTORY 

* BLOCK 

************** 



*F4********** 



**************** 



**j1******* 
♦SET FLAG IN* 

* PSNITCH TO * 
♦INDICATE SXSIPT^ 

♦ DATA * 
* * 

*********** 



****K1 ********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



PROC. 
LIBRARY 
ON FBA 



.* PROC* *. NO 
♦LIBRARY AVAIL-.^... 
♦. ABLE .♦ 



.♦DESIRED*. 

DIRECTORY 

ENTBX 

. FOUND . 



FOUND 

*****H3* ********* 

♦ POST ♦ 
♦DIRECTORY ENTRY^ 

♦ OF CALLED ♦ 

♦ PROCEDURE ♦ 

♦ * 
***************** 



****j 3** ******* 

* RETURN * 

* TO CALLER * 

* * 

*************** 



■***G4* ********* 



*****Q5******* 

* 

* SET UP 

* FBA READ 

* CCi 



**** 

* * 

* Ei> *.X 



PBAREAD X 

*»»gb ************ 
READ 
* PROCEDURE * 
DIRECTOR* 
« BLOCK * 



PROC. 
NAME 
FOUND 



• LQ * 

* C«»* 



i ***HU* ********' 

UPDATE 
ERROR COUNTER 



*************** 



*****H^ ********** 

* * 

* POINT • 

* TO NEXT * 
•DIRECTOR* fiNfRY* 

* * 
***************** 



. .* XERROR1 

* YES ***** 
♦LQ ♦ 



♦LQ 
* CU 



.* PROC. * 


. NO 


.♦ 


END OF *. 


*. MITM SYSIPT 
*. DATA .* 


.* 






BLOCK .* 






** 


.* 


♦. .♦ 










*. . ♦ 




X 




*. . * 


♦ YES 




***** 
•LP * 
• CI* 

* * 

CINIT 




* XES 


*****K4******** 


>* 




»****£ 




* 








* LOAD 


* 






UPDATE * 


* RETURN 


* 






FBA KiiAu * 


* REGISTER 


* 






CCtf * 


* • 
















X 


**** 








\**** 


• * 








• * 


* H1 * 








• BS * 


• * 








• * 


**** 








• ••• 
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Chart LS- 



SJOBCTLE - Subroutines 
Refer to Chart 14- 



•***A1********* 

* * 

* FTCHJIB * 



PTCHJIB X 

*****U1 ********* 

* update error 

* counter 

* to message 

* 1N60D 



*****C 1*********1 



**************** 



GET PAVP 

TO CHAIN OP 

FREE JIBS 

******* *«******i 



YES .* PROCEDURE *. 

....*. WITH SYSIPT . 

*. DATA .* 



* B2 *. 



**** 
FJB3 X 

*****B2*** ******* 

* UPDATE * 

* PAVP TO JIB * 

* CHAIN BY THB * 

* POINTER * 

* PROVIDED * 



****C2********* 

* RETURN TO * 

* CALLING SEU * 

* * 
*************** 



****A3********* 

* * 

* PASSGN * 

* * 
*************** 



CALCULATE 

OFFSET IN 

PICLS 



*****C3********* 
* 

* CALCULATE 

* ADDRESS OP 

* REQUIRED LUB 

**************** 



*****q 4 ********** 

* SAVE * 

* ADDRESS AND * 
.X*CONTENT OP LUB * 

* IN ROOTPHASE * 

* * 
***************** 



X 

***** 
♦Li 



1****23********* 

SAVE LUB 

IN ASSOCIATED 

JIB jPROH 

JIBTAB) 



8 * 
Cn* 

* * 

* 

ERROR1 



*****F1********* 
* 

* SAVE 

* JIB OPPSBT 

* INTO JIBTAB 
* 
**************** 



*****G1 ********** 

* CALCULATE * 

* JIB ADDRESS. * 

* SAVE JIB * 

* ADDRESS INTO • 

* JIBTAB * 
***************** 



*****H1 ********** 

* * 

* GET POINTER * 

* TO NEXT PRBE * 

* JIB * 

* * 
***************** 



*****P3********** 

* • 
•CHAIN JIB ENTRY* 

* 10 LUB-JIB- * 

* CHAIN * 

* * 
***************** 



**G3******* 

* SET * 

PROCEDURE 

PLAG IN 
JIB ENTRY 



* UPDATE 

* POINTER TO 

* JIBTAB 

* 
************** 



*****H3********** 

* • 

* SET PUB * 

* POINTER INTO * 

* LUB * 

* * 
***************** 



***«*j3********* 

* SET JIB 

* POINTER 

* PROM JIBTAB 

* INTO LUB 
• 
************* *** 



****K3********* 

* RETURN TO * 

* CALLING SEQ * 

* • 
*************** 
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Chart LT- $JOBCTLE - Subroutines 
Refer to Chart 14- 



****A1********* 

• * 
» PROCDIB * 

* * 
*************** 



PROC. 
LIBRARY 
ON PBA 



*****£ 1 ********** 

♦DSKDEV LT* 

*-*-*-*-*-»-*-*-* 

* GET OFFSET * 

* IN DEVTAB * 

* * 
******** ********* 



*****D 1 ********** 

* * 

* GET ADDRESS * 

* OP PRCDIB * 

* BNTRY * 

* * 
***************** 



*****£ 1********** 

* BUILD * 

* CURRENT * 

* ADDRESS III * 

* PRCDIB ENTRY * 

* * 
***************** 



****A2********* 

* CNVRT 

* 
*************** 



CNVRT X 

*****B2******** 



SET REG. 
POINT* 
TO POUR 



*****C2********** 

* GET NUMBER * 

* OP BLOCKS * 

* OCCUPIED BY * 
•PROCEDURE INTO * 

* REG. POINT2 * 
********** ******* 



**** 
CNVRTL X 

*****D2********** 

* GET * 

* DISK DEVICE * 

* INFORHATION * 

* INTO REG. * 

* MRKRG1 * 
***************** 



*****B2********** 

* ADD DISK • 
•ADDRESS VAL08, * 

* INDEXED BY * 

* POINT*. TO * 

* POINT? • 
***************** 



•«G1******* 

• * 

* SBT ON * 
* RPS INDICATOR * 

* IN DIB • 

* * 
*********** 



.* VALID *. 

•.DISK ADDRESS . 

*.IN POINT2.* 



* POST POINTER * 

* INTO DISK- * 

* ADDRESS PIELD * 

* * 
***************** 



****A3********* 
* 
• DSKINIT 

* 
*************** 



DSKINIT X 

0000*23********** 
♦DSKDBV LT* 

*.*-*-*.*-*-*-*.* 



***************** 



*****C3 ********** 

* * 

* UPDATE MKDPI * 

* BY VALUES * 

* OP DEVTAB * 

* * 
***************** 



****D3 ********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



*****P3********** 

* * 

• DIVIDE * 
X* POINT2 BY * 

* HRKRG3 * 

• * 
***************** 



**** A** ******** 

* * 

* FBADIB * 

* * 
*************** 



PBADIB X 

*****Bil********** 

* GET ADDR OF * 

* PROCEDURE DIB * 

* FOR BASIC * 

* SUPPORT * 

* * 
***************** 



****A5********* 

* * 

* DSKDBV * 

* • 
*************** 



GET 
SYSRBS 
POINTBH 



SYSFIL *. 
SUPPORT 
.AVAILABLE.* 



*****Oll********** 

* GET ADDR OF * 

* PROCEDURE DIB * 

* FOR EXTENDED * 

* SUPPORT * 



******** 



******* 



*****£I4* ********* 

* * 

* CLEAR DIB. * 

* HOVE EXTENT * 

* LinlTS TO DIB * 

* * 
***************** 



*****p<l*********i 

* INITIALIZE 

* CURRENT 

* RBCDRD NO. 

* TO ZERO 
• 
**************** 



****G«********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



***************** 



i***l>5********** 

SEPARATE * 

SECOND HALF- * 

BYTE OF * 

DEVICE TXPE * 

i** ************* 



****g;>********** 

CALCULATE * 

OFFSET IN * 

DEVTAtt VIA * 

THIS VALUE * 

**************** 



****F5********* 
• UBTUBN TO 
« CALLING SEQ 



*****H |********** 
♦CNVRT LT* 
*-*-*-*-*-*-*-*-* 

* CALCULATE * 

* END ADDRESS * 

* OF PROCEDURE * 
***************** 



H2^ *. 
.* LOAD *. * 

.* AND TEST *. NONE * 

*. QUOTIENT INTO** X* 

*. POINT2 .* * 



*****H3********** 

* * 

REDUCE * 

POINT* * 

BY TMO * 

* 

************* 



*****j i********** 

* HOVE * 

* END ADDRESS * 

* INTO • 

* PRCDIB * 

* * 
***************** 



****J 2** ******* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



*****£ 1 ********** 

ESTABLISH 
RUBBER OF 



****K2********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 
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Chart LU- 



$JOBCTLE - Error Subroutines 
Refer to Chart 14. 



••••• REFERENCES 

• *T0 LUA1: 

* ** LEH1, LHF2 



**Ai******* 
» TURN OH • 

* AUTO CANCEL * 
* SWITCH JBCSW * 

* BIT 5 • 



*****B 1*********1 



• *** 

* * 

* Btt * 



♦TURN ON AUTO * 
* CANCEL SWITCH 
• JBCSHU BIT !> * 

* * 

*********** 



H1S10D1 X 

TURN ON * 
AUTO CANCEL * 
SWITCH * 
JBCSW1 * 

BITS * 
********* 



REFERENCES *• 
TO LUC5: * 
LEF4, LFC1 * 



****C1********* 

* BRANCH TO 

* ERRRTN IN 

* SJOBCTLA 

*************** 



*****Ct| ***••****< 
* 

* POINT TO 

* DE3IHBD 

* MESSAGE 1P20D 
* 
«*********«****< 



* POINT TO 

* UESIHEU 

* NESSAGK 

* 1S10U 

* 

**•****«****«***: 



**D2*****»* 

* TURN ON * 
AUTO CANCEL 

SWITCH 
JBCSW4 

* BITS * 
*********** 



*****£2********** 

* * 

* POINT TO * 

* DESIRED * 

* MESSAGE 1C3NA * 



«***f2********* 

* BRANCH TO * 

* ERRRTN IN * 

* SJOBCTLA « 



***Qt|********* 

BRANCH 10 
ERRRTN IN 
SJOBCTLA 



****D5******** 
* 1'BSTBBAL 



***Qlt*» 

BRANCH TO * 
NVSBRR IN *X. 
SJOBCTLA * 

************** 



Pb *. 

. * *. 
NO .* ». 

X. .♦.LENGTH * •«♦• .* 



.* HEAL 
. PARTIi'lON 
*. SIZB=0 . 



****j ;,********* 

• HETUHN * 

* I'O CALLER * 
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Chart MA, SJOBCTLF - LISTIO Statement Processor (Part 1 of 5) 
Refer to Chart 15- 



**** 

* * 

* A2 * 

* * 
**** 



REFERENCES* * 
TO HAA4: * * 
HBJ3, BCG1 * ** 

HBH4, HJK5 * * 



****A1********* 

* * 

* JJOBCTLF * 

* * 
*************** 



************** 



*****£ 1 ********** 

* LOAD POINT«» * 
*NITH ERBOB EXIT* 

* TO BE USED IP * 

* SSBLSTIO IS * 

* LOADED * 
***************** 



* POINT * 

* TO * 

* OPERAND * 

***************** 



El *. 
.* DID *. 
.* A BLANK * 
*.END THE SCAN 



*****12********** 

* HOVE THE ADDR * 
♦OF THE SYS UNIT* 
♦TABLE. SISTABLB,* 

* TO THE TRANS * 

* LOC. TASYSTAB * 
***************** 



*****B2********** 
♦FNDARG TB* 

*-*-*-*-*«.*-*.*-* 

* DETERHINE * 

* TYPE OP * 

* OPERAND * 
***************** 



****Q2********* 

* EXIT * 

* PER TABLE A * 

* *D2 * 

*************** 



1. THE OPERAND IS ANALYZED AND CONTROL IS 
TRANSFERRED TO THE CORRECT PROCESSING 
ROUTINE USING TABLE A. 

2. REGISTER POINT1 CONTAINS THE 
LOGICAL UNIT CLASS POINTER. 

i. REGISTER MRKRG4S CONTAINS THE 
LOB COUNT. 



****A<t ********* 

RESEI LINE 

COUNT TO 
ZERO WRKRGi 

***************> 



LIOEOJ1 

*****f)l|********** 

♦SAVE rHB BRANCH* 
•TABLE DISPLACE-* 

* BENT IN LOC ♦ 

* COUNT PttON * 

* WRKRSJ * 
***************** 



**QH******* 

♦ SET THE * 

* B-TRAHSIENT 
♦ACTIVE SNITCH, 

* TRANSN,OPP 

* * 
*********** 



****E2* ******** 

* BRANCH TO * 

* NVSBBR IN * 

* BJOBCTLA * 
*************** 



*****? 1 ********** 

* SAVE POINT1 * 

* IN HRKPLD3. * 

* POINT1 IS THE * 
♦POINTER TO THE ♦ 

* OPEBAND ♦ 
***************** 



*****G1 ********** 

♦ LOAD LINKR2 * 

♦ HITH RETURN ♦ 

♦ ADDRESS TO BE ♦ 

♦ USED BY ♦ 

♦ ffBLSTlO ^G2 ♦ 
***************** 



**D(t******* 

* * 
SET 

•ONLY NAIT* 
SNITCH 

* * 
*********** 



♦ WAIT ♦ 

♦ ON ♦ 

♦ LAST I/O ♦ 
***************** 



**?<*♦♦♦♦♦♦♦ 

* * 
BESET 

'ONLY NAIT* 
SNITCH 

* * 
*********** 



***^5********* 
* 
SVCBTHNS ♦ 
* 

************** 



SVCBTRNS X 

**D5******* 
♦ SBT ♦ 

♦ TRANSIENT 
* ACTIVE 

* SNITCH 



ON 

*********** 



*****g 5********** 

♦ LOAD BBU1 ♦ 
» NITH ADDR OP ♦ 

♦ THE TRANSIENT ♦ 

• NHB, $*BLISTIO ♦ 

* * 
***************** 



♦G2 
LINKR2 IS USBD BY THE SSBLSTIO 
TRANSIENT TO RETURN CONTROL TO 
TBE CALLING ROUTINE AT THE 
LABEL RETADD. 



***************** 



*****£$********** 





TABLE A 








OPERAND 


ROUTINE 


CHJ 


*****H 1 ********** 

♦SVCBTRNS HA^ 

*-*-*-*-*-*-*-*-* 


SYS 

PROG 


LIOL 
LIOL 


HB 
HB 


♦ LOAD AND INIT ♦ 

♦ $*BLSTIO ♦ 

♦ *G2 ♦ 
***************** 


FN 
ALL 


LIOL 
LIOL 


HB 
HB 


. 


UNITS 


UNITS 


HC 


. 


CUU 


LIOCUU 


HD 


'. 


DOHN 


DONN 


HE 


ADD X 
*****j1* ********* 

♦HTNCNT GU^ 
*.*.*.*.*.*.*.*.* 


UA 
SYSXXX 


UA 
LIOSYX 


HB 
HD 


♦ SEIZE ♦ 

♦ THE SYSTEM ♦ 


BG 


LIOL 


HB 



***************** 



****(] 14********* 
♦SVC 11 RELEASE ♦ 

♦ THE TRANSIENT ♦ 

♦ AREA ♦ 
*************** 



********** 



***************** 



*****K1 ********* 

♦ HOVE THE 
♦OPERAND TO THE 
♦TRANSIENT AREA 

♦ IN LOCATION 

♦ TARG 
**************** 



HBXOO 
HEX1A 



ROUTINE CHART 
CONTROL GC 
NVSERR GN 



*************** 



***** j >>********** 

* LOAD NHKHGJ ♦ 

* NITH ♦ 

* DISPLACEHBNT ♦ 

* FROM SAVE ♦ 

* AREA COUNT ♦ 
***************** 



**** K 5******* 

* EXIT PEM 

* TABLE b 

* *Ji| 
************* 



**** 

* * 

* A2 * 

* * 
**** 
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♦ AS ♦ 

* * 

**** 



•***Al ********* 

* LIOL * 

* *rs ♦ 

* * 

*************** 



LIOLX 

**B1******* 

* SET LIOSM * 
•ON. INDICATE * 

* LIST I/O IN *X 
• PHOGHESS * 

* * 
*********** 

**** * 

* * 

* C1 *.. 

* * 
**** 

X 
*****ci ********** 

* * 
♦LOAD LUB COUNT * 

* IN MRKRGJ * 

* FROH * 

* URKRG2 * 
***************** 



LIOLL201 X 

*****Q1 ********* 

* SAVE LOGICAL 

* UNIT CLASS IN 

* CLAOBD AND 

* LUB COUNT IN 

* LOC. COUNT 
**************** 



LIOL202 

*****£)*******•** 

* PRINT * 

* A BLANK LINE * 

* TO EFFECT * 

* LINE SKIP * 

* * 
***************** 



LIOL .*. 

A2 *. 

.» HAS *. 
.♦ OPEBAND ♦ . YES 
...X*. SIS OR PROS .♦... 
♦ .OR ASSGN .* 



*****B2** ******* 

* 

* SET LUBSH 

* FOR GETLUB 

* ROUTINE 

* 

****** **********> 



***************** 



*****Q1 ********** 

♦OUTPUTS HQ* 

*-*-*-*_*_*_*_*_* 

♦ PRINT HEADER * 

♦ FROM BUFFER. ♦ 

♦ SKIP 1 LINE ♦ 
***************** 



******** 

* * 

* HOWE HEADER ♦ 

* TO BUFFER * 

* ♦Kl ♦ 

* * 
***************** 



***«*j t***** ***** 

♦OUTPUTS HQ^ 

*.*.*.*-*.*.*.*.* 

♦ PRINT HEADER ♦. 

♦ FBOH BUFFER. ♦ 

♦ SKIP 1 LINE ♦ 

***************** 



LIOL1 

**A3******* 

♦SET TPROGSH* 
♦ON. INDICATES ♦ 
..X^SINGLB UNIT TO 
* BE LISTED ♦ 



**** 



****** 



♦ COMPUTE LUB ♦ 

♦ ADDRESS AND * 

♦ NO. IN CLASS ♦ 

***************** 



*****B3********** 
♦SET LUB COUNT, ♦ 
♦NUMBER IN CLASS^ 
♦AND COUNT CTRL ♦ 

♦ TO 1 ♦ 

* * 
***************** 



*****£ 3**** ****** 

♦ PLACE LOGICAL ♦ 

♦ UNIT CLASS ♦ 

♦ IN CLAORD ♦ 



***************** 



*****Q3*** ******* 

♦ HOVE LUB ADDR ♦ 

♦ FROM LUBAD ♦ 

♦ SLADD FOR ♦ 

♦ SCAM ♦ 

♦ * 

***************** 



LIOL3 

*****£ 3********** 

♦SFPPE2 HR^ 
*-*-*.*.*-*-*-*-* 

♦SCAN LUB TABLE ♦ 

♦ FOR EUUAL PUB ♦ 

♦ POINTERS ♦ 
***************** 



END 

OF LUB 

CLASS 



*****G3********** 

♦ LOAD HRKBG3 ♦ 

♦ WITH CLASS ♦ 

♦ COUNT. LOAD ♦ 

♦ POINT 1 KITH ♦ 
LAST CLASS 



****** 



********* 



*****{] 3**** ***** 
♦INCR POINT1 TO 

♦ POINT TO NEXT 

♦ CLASS 



***************** 



NO .♦ END ♦ 
...♦. OF LUB 

♦. TABLE .♦ 



LI0L2 X 

***** 44********** 

♦ LOAD HRKRGi ♦ 

♦ WITH ADDRESS ♦ 

♦ OF NEXT LUB ♦ 

♦ SAVE AREA ♦ 

♦ -JIBCHH- ♦ 
***************** 



♦ COHPI1TE ♦ 

♦ PUB ADDR IN ♦ 

♦ HRKRG4 ♦ 

***************** 



*****£<}• ********* 

♦ HOVE PUB ADDB ♦ 

♦ TO TRANSIENT ♦ 

♦ AREA, TPUBADD ♦ 

♦ * 

♦ * 
***************** 



*****D t|***« ****** 
♦COHPUTB LOGICAL^ 
♦UNIT HO. WITHIN^ 

♦ CLASS OF ♦ 

♦ CURRENT LUB. ♦ 

♦ STORE IN TLUN ♦ 
***************** 



*****gl4 ********** 
♦HOVE PUB POINT-^ 

♦ BB TO TJIBCHN ♦ 

♦ IN TRANSIENT ♦ 
♦ABEA FROH CURB ♦ 

♦ LUB SAVE AREA ♦ 
***************** 



*****? i) ********** 

♦ LOAD SYMBOLIC ♦ 
♦UNIT ADDR.CLASS^ 

♦ AND ORDER, IN ♦ 

* REG POINT1 ♦ 

* * 
***************** 



****G («*♦♦****** 



********** 



*****(jtt ********** 

♦PUIF TA^ 

*-*-*-*-*-*-*-*-* 

♦ BUILD A PBINT ♦ 

♦ LINE IN WORK ♦ 

♦ AREA ♦ 

***************** 



***** j II* ********* 

♦SULB TC^ 

*-*-*.*.*.*.*.*-* 

♦ BUILD PRINT ♦ 

♦ LINE IN ♦ 

♦ BUFFER ♦ 

***************** 



♦ PRINT 1 ♦ 

♦ LINE FROH ♦ 

♦ BUFFER ♦ 

***************** 



♦♦♦**Bb ********** 

* LOAD LINKR2 * 

* ilTH THE * 

* ADDRESS ♦ 

* LIOLU ♦ 

* * 
***************** 



***«C5********* 

* EXIT TO ♦ 

* SFPPB2 ♦ 

* ROUTINE * 
*************** 



♦ Kb 
NOTE: IF OPERAND IS 
SXSXXX, THIS ROUTINE 
IS ENTERED AT LIOL202, 
SO THAT LUBSW IS NOT 
SET. 



I/O-UNIT CHNT CHNL UNIT NODE 



♦ CI ♦ 

* * 
**** 



***** 

♦ HA ♦ 

♦ kH* 



**** 

* * 

* A5 ♦ 

* * 

**** 
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Chart MC 



&JOBCTLF - LISTIO 
Refer to Chart 15 



Statement Processor (Part 3 of 5) 



**** 

* ■ * 

* A3 * 



**** 
♦ At> ♦ 



UHITS1 

*****A1********** 

* PRINT * 

* A BLANK LINE * 

* TO EFFECT *X 

* A SKIP ♦ 

* ♦ AU * 
***************** 



*****Bl ********** 

♦PSHRTN TD* 

*.*-*_*_*-*-*..*-* 

♦BUILD PHYSICAL * 
♦UNIT HEADER IN ♦ 
♦ BUFFER ♦ 

***************** 



*****C 1 ********** 
♦OUTPUTS HQ^ 

*-*_*-*-*-*-*_*_* 

♦ PRINT HEADER ♦ 

♦ FROB BUFFER ♦ 

♦ SPACE 1 LINE ♦ 

***************** 



*****D1 ********* 



**** A 2******** 
* 

♦ UNITS 
* 

************** 



♦ SET LUBSW 
.♦ FOR GETLUB 

♦ ROUTINE 

* 
**************** 



♦ HOVE UA TO ♦ 

♦ OUTPUT BUFFER ♦ 

♦ *2J ♦ 

♦ * 
***************** 

**** 

♦ * 

♦ B3 ♦.! 

♦ * 
**** 

UNITS*02 

*****83********** 

♦GETLAN JH* 

*.*.*.*•*-*.*.*_* 

♦ COMPUTE LUB ♦ 

♦ ADDRESS AND ♦ 

♦ NO. IN CLASS ♦ 
***************** 



UNITSS 

*****C3********** 

♦SFPPE na* 

*-*-*.*.*-*.*-*.* 

♦SCAN LUB TABLE ♦ 

♦ FOR EQUAL PUB ♦ 

♦ POINTERS ♦ 
***************** 



LOAD PUB 

ADDRESS IN 

HRKRG3 



♦*** 

♦no ♦ 

♦ K1 ♦.X. 

♦ ♦ 
♦*** 

0NITS401 X 

*****£ 1********** 

♦ CALCULATE PTR ♦ 

♦ TO BG SYSTEM ♦ 
..!♦ CLASS USING ♦ 
. ♦PIK OF CURRENT ♦ 
. ♦ PARTITION ♦ 
. ***************** 

**** 

♦ ♦ 

* El * 



*****F1 *********! 

♦ HOVE PUB 

♦ ADDRESS TO 

♦ TRANSIENT 

♦ AREA LOC 

♦ TPUBADD 
**************** 



***** 
♦HA ♦ 
♦ hH* 



UNITS i 

***** H 2********** 
♦PUIF TA^ 



X^ BUILD PRINT ♦ 

♦ LINE IN ♦ 

♦ HORKAREA ♦ 

***************** 



*****K1 ********** 
♦TXCUU3 no* 

*-*-*-*-*-*-*-*-* 

♦ COMPUTE PUB ♦ 

♦ POINTER IN ♦ 

♦ NEWLUB ♦ 
***************** 



-*-*-*-*-*-*- 

♦ BUILD ♦ 

♦ PRINT LINE ♦ 

♦ IN BUFFER ♦ 
***************** 



♦PRINT ONE LINE ♦ 

♦ FROM ♦ 

♦ BUFFER ♦ 
***************** 





♦ END ♦ 


. YES 


* 


OF 


* 






♦. LUB .♦ 








♦. . ♦ 








♦ . .♦ 




X 




♦ NO 




**** 
* 
♦ A5 


















* 










**** 




X 






*****£3********** 




*' 


COMPUTE TLUN, 


* 




• 


LOGICAL UNIT 


* 




* 


NUMBER WITHIN 


* 




* 


LUB ( 


:lass 


* 





***************** 



♦ BUILD PRINT 

♦ LINE IN WORK 

♦ AREA 

**************** 



♦ BUILD ♦ 

♦ PRINT LINE ♦ 

♦ IN BUFFER ♦ 

***************** 



*****H3********** 

♦OUTPUT 1 «<!♦ 
*.*-*-*-*.*-*.*.* 
♦PRINT ONE LINE ♦ 

♦ FROH ♦ 

♦ BUFFER ♦ 
***************** 



*****j3********** 

♦ LOAD LINKR2 ♦ 

♦ HITH THE ADDR ♦ 
♦UNITS9 TO CTRL ♦ 

♦ RETURN FROM ♦ 

♦ SFPPE ♦ 
***************** 



****K3********* 

♦ EXIT TO ♦ 

♦ SFPPE ♦ 

♦ ROUTINE ♦ 
*************** 



**•* 

* * 

* CU ♦ 

* * 
**** 



0NITSS01 X 

*****£|| ********** 

♦CLEAR TEMPORARY^ 

♦ FIELDS. THDDE ♦ 

♦ AND fCHNT, IN ♦ 

♦ TRANSIENT ♦ 
♦AREA TO BLANKS ♦ 
***************** 



♦ ****Q| t ********** 

♦PUIF TA» 

*-*-*-*-*-*-*-*-* 

♦ BUILD PRINT ♦ 

♦ LINE IN WORK ♦ 

♦ AREA ♦ 
***************** 



*****g<l********** 

♦ HOVE CHANNEL ♦ 

♦ AND UNIT TO ♦ 

♦ BUFFER PROM ♦ 
♦TCHNL AND TUNIT^ 

♦ * 
***************** 



UNITS6 X 

*****£<>* ********* 

•ADD ONE TO NUJ-^ 
*BER OF PARTI'f- ♦ 

* IONS AND MULT ♦ 

* BY * 

* X»1U» ♦ 
***************** 



*****D5********** 

* * 

* LOAD VALUE ♦ 

* CALCULATED ♦ 

* IN WRKRGi ♦ 



*****C5********** 

* * 
♦CALCULATE STOP ♦ 

* VALUE FOR LUB ♦ 
♦SCAN IN WRKRG3 ♦ 

* * 
***************** 



**** 

* * 

♦ B3 ♦ 



END 
OF 
LUBS 



**** 

* * 

* C« ♦ 

* * 
*•** 



IS 

UA IN THE 

. BUFFER .' 



*****G <!***** ***** 

♦ OUTPUT 1 HQ* 

*_*_*-*_*_*_*_*-* 

♦ PRINT1 LINE ♦ 

♦ FROM ♦ 

♦ BUFFER ♦ 
***************** 



UNITSB X 

*****f]il ********** 

♦ INCR PUB ADDR ♦ 

♦ IN WRKRGi BY ♦ 

♦ 8 TO POINT ♦ 

♦ NEXT PUB ♦ 

♦ * 
***************** 



**** 

♦ A3 ♦ 

* * 
**** 
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*****£ J********** 

* RESTORE RES * 

* POINT1 FROM * 

* HBKPLDJ, *X 

* -POINTS TO * 

* HEX CUU- * 
***************** 



*****B1 ********** 
♦TXCDU BQ* 
*-*-*-*-*-*-*-*-* 

* GET DEV TYPE, ♦ 

* PUB ADDR, AMD * 

* PUB POINTER ♦ 
***************** 



*****d********** 

* PRINT * 

* A BLANK LINE • 

* TO EFPECT * 

* A LINE SKIP * 

* * 
*********** 



*****D 1********** 
♦PSHRTH TD* 

*_*-*.*.*.*.*-*-* 

♦BUILD PHYSICAL * 

* UNIT HEADER * 

* IN BUFFER * 

***************** 



*****£ J********** 

•OUTPUTS HQ* 
*-•-*-*-*-*-*-*-* 

* PRINT HEADER * 

* FROH BUFFER * 

* SPACE 1 LINE * 
***************** 



*****f 1*********i 

* LOAD PUB 

* ADDR IN 

* HRKR63 



****************< 



*****Q1 ********** 

* HOVE PUB, * 

* 8 BYTES. TO * 

* NRKFLD2 * 

* *K2 * 

* * 
***************** 



*****H1********** 

* HOVE END OF * 

* PUB FLAG TO * 

* NRKFLD3 * 



****A2********* 
* 
LIOCUU * 
* 

*************** 



* SET LUBSH * 
.* FOR GBTLUB * 

* ROUTINE * 

* * 
***************** 



****A3********* 

* * 

* LIOSYX * 

* * 
*************** 



LIOSYX 

**B3******* 

SET LIOSH ON* 

• INDICATES * 

LIST I/O IN 

" — CESS 



PROCESS 

*********** 



*****£ 3********** 

* RESTORE REG * 

* POINT1 AS * 

* POINTER TO * 
*SYSXXX OPERAND * 

* * 
***************** 



*****q 3** ******** 
•SYSZZZ JT* 
*-*-*-*-*-*-*-*-* 

* CHECK XXX AID * 

* GET SYHBOLIC * 

* UNIT ADDR * 
***************** 



***** 
*HN * 
* B** 



**G3******* 

♦SET PROGSH ♦ 

OH TO INDICATE* 

* PROGRAHHER * 

* UNIT * 

* * 

*********** 



***** 
*HB * 
* El* 



***************** 



*****j J********** 

* LOAD REG * 

* WRKRGJ AS * 

* POINTER TO * 

* HRKFLD * 

* *K2 * 
***************** 



**K1******* 
♦SET SNITCH * 

* UNSN ON TO * 
♦INDICATE SINGLE* 

♦ ARGDHBNT ♦ 
* * 

*********** 



♦ K2 
HRKFLD2 AND URKFLDJ ARE CONTIGUOUS. HHEN 
LOADED IN THIS HANNBR THEY SIMULATE THE 
LAST PUB IN THE PUB TABLE. HRKFLD3 IS 
LOADED TO POINT TO THE PUB IN NRKFLD2 
INSTEAD OF THE PUB IN THE PUB TABLE. 
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**** & ?*******•* 



*************** 



*****$ i ********** 

* paint • 

* A BLANK LIMB * 



**********«*•*•*« 



*****C 1********** 

* • 
♦BOTE U* HEADING* 

* TO BUFFER ♦ 6 * 

* -17 BITES- * 

* * 
***************** 



*****q1********** 

* INIT REG * 

* POIMT1 TO * 
•BRANCH TO TEST1* 

* FOR UA * 

* PROCESSING « 
***************** 



****A3********* 

* * 

* DOWN * 

* * 
*************** 



OOMN 

*****B3********** 

* PRIST * 

* A BLANK LINE * 

* TO EFFECT * 

* A LINE SKIP * 

* * 

***************** 



*****C3********* 
* 

* HOVE DOUN 

* HBAOEB TO 

* BUFFER ♦ 6 

* -12 BYTBS- 

****************: 



*****03********** 

* * 

* INIT REG POINT1* 

* TO BRANCH TO * 

* TEST2 FOR * 
•DOWN PROCESSING* 
***************** 



0A0N5 X 

*****A4********** 

* SAVE CURRENT * 

* PUB ADDRESS * 

* IN TRANSIENT * 

* AREA LOCATION * 

* TPUBADD * 
***************** 



*****£it ********** 

* LOAD HRKRGi * 

* MITH SYSLOG * 

* LUB POINTER * 

* HEX OB * 

* * 
***************** 



*****gi|********** 
♦CHKASG GU* 
*-*-*-*-*-*-*-*-* 

* GET SYSLOG * 

* PU8ADDR IN * 

* HRKRG4 * 
***************** 



UADN1 X 

*****£ 1********** 

♦OUTPUTS BQ* 

*.*.*.*.*.*-*.*•* 

* PRINT HEADER * 

* FROH BUFFER. * 

* SPACE 1 LINE * 
***************** 



*****pi ********** 

* * 
•HOVE SUB HEADER* 
•TO BUFFER ♦ 10 * 

* -H» BYTES- * 

* * 
***************** 



*****G 1 ********** 

♦OUTPUTS HQ* 

*-*_*.*_*_*_*_*_* 

♦PRINT SUBHEADERS 



***************** 



***** H 1 ********** 

* MOVE * 

* **NONE** * 
•TO BUFFBR ♦ 11 ♦ 

* * 

* * 
***************** 



* LOAD PUB 

* ADDR IN 

♦ REGISTER 

♦ POINT2 

*************** 



**** 

* * 

* Et> * 

* * 
**** 



*****E4********** 

* * 

* LOAD CURRENT * 

* PUB ADDR IN * 

* NRKRG3 * 

* * 
***************** 



UADN6 

*****U3********** 

•PDIF TA* 

*.*.*.*.*_*.*_*.* 

* BUILD A PRINT * 

* LINE IN WORK * 

* AREA * 

***************** 



*****J3********** 

* CLEAR BUFFER. * 

* HOVE CHAN AND * 
•UNIT TO BUFFER ♦ 

* FROM TCHNL * 

* TUNIT * 
***************** 



*****K3********** 

♦OUTPUT 1 HQ*. 
*_*_*_*_*_*_*_*_* 

♦PRINT ONE LINE * 

♦ FROH ♦ 

* BUFFER * 

***************** 



..X.X... 
X 

**** 

* * 

* E5 ♦ 



END 

OF PUB 

TABLE 



• HAVE ANY 

UNITS BEEN 
*. LISTED . 



*****D4********** 

•OUTPUT HO* 
*.*.*_*.*.*.*.*-* 

* PRINT LINE ♦ 

* FROM BUFFER * 

* **NONB** ♦ 
***************** 



* INCH PUB 

* POINTtitt BY 

* B TO POINT 

* NEXT PUB 

**************; 



♦ A»» * 

* * 
**•* 



*S5 
REG-POINT 1- 
HAS ADDRESS OF 
TEST1 IF 
PROCESSIM'i-UA, 
OR ADDRESS OF 
TEST2 IF 
PROCBSSINi-DOMN- 
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* RBSBT * 

* • 
*************** 



**** 

* * 

* B2 * 

**** 



IS *. MO 
OPERAND .*... 
ALL .* 



****************i 



*****C1********* 

* ZERO BRKBG' 

♦ -LOB COUNT- 



**************** 



*****D1 ********** 
•SCANH2 OK* 

*.*-*..*..*-*-*-*..« 

* POINT * 



.♦DID A BLANK*. 

END THE 

*. SCAN .* 



*****? 1 ********** 

* * 

* SAVE POINT 1, * 

* POIHT BR TO * 

* OPERAND, * 

* IB POINT2 ♦ 
***************** 



*****G1********** 

* * 
« SET POINT1 * 

* FOB SYSTBH * 

* CLASS -0- * 

* * 

***************** 



****H1*«******* 

* BBANCH TO * 

* NVSEBB IN * 

* JJOBCTLA * 

*************** 



*INCR LUB COONT * 
*BX 1 IN UBKBG1 * 

* -VALUE EQ 1- * 

* * 
***************** 



IS 

OPEBAND 
SYS 



BESBT01 

.* 
YES 



*****03********* 

* SBT POINT1 

* FOB 

* PB06BAHHBB 

* CLASS -1- 
* 
****************. 



**B2******* 






E3 *. 


* 






* 


BBSBT * 


YBS 


,*' 


IS 


BDB81T AND * 


......* 




OPBBAND 


IPT81T BITS * 




*, 


PROG 


* 






*. " . 


*********** 


1 




*. .* 
* NO 


*X 


* 












x 








**** 








* * 



**Bl(******* 
* ASSURE * 

* SINGLE 
OPERAND, SYS 

* XXX. SET 
♦PBOG SM ON.* 

*********** 



*****cu ********* 

* BESTOSB POINT 1 ' 

* TO POINT 

* TO OPERAND 

* SISXXX 
• 
*************** 



*****D4|********** 

♦SYSBZZ JT* 

*-*-*-*-*-*-*-*-* 

* CHECK XXX: * 

* GET SYMBOLIC * 
» OBIT ADDRESS * 
***************** 



.*IS OPERAND 
. SISIN OR 
*. SYSOUT .' 



***** 
*HN * 
* E«l» 



*INCB LUB COONT 
*BI 1BESBT11R-' 
* -V ALOE 



E EQO 
OH 2- 



***************** 



***** 
*HG * 
* B1* 



***************** 



*****' 



****J2********* 

* BBANCH TO * 

* CHKCNL IB * 



*****FU********** 
♦TSTPBOC KA* 
*-*-*-*-•-*_*-*-* 

* TEST LANGUAGE * 

* RESTRICTIONS * 

* * 
***************** 



*****G<1********** 

* * 

* SET BO. IN * 

* CLASS, SNICL, * 

* TO A 1 . * 
♦SINGLE OPERAND * 
***************** 



*****g 4********** 

* LOAD SYMBOLIC * 

* UNIT CLASS IN * 

* BEG POINT1 * 

* FBOH LOC * 

* CLAORD * 
***************** 



*****ji|********** 
•UPDATE SLADD TO* 

* CURRESET101 * 

* ADDRESS. SET * 
•LUB COUNT TO 1 * 

* IN HRKRG1 * 
***************** 



*HG * 

* ci* 

* * 
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$JOBCTLF - RESET Statement Processor (Part 2 of 2) 
Refer to Chart 15. 



****A1 ********* 

* * 

* RESET 11 * 



**** 

X 
*****g1 ******** 

♦GETLUB H 

*-*-*-*-*-*-*-* 

* COMPUTE LOB 

* ADDRESS AND 

* NO. IN CLASS 

*************** 



**** 
RESET101 

*****£ t**4l******* 

♦SAVE LDB COUNT * 

* IN LOC COUNT. * 

* SAVE LOGICAL * 

* UNIT CLASS * 

* IN HRKFLD1 * 
***************** 



•*D1******* 

* SET * 
RESETSH 

ON 
-BLABK1, 

* BIT 7- * 
*********** 



E1 *.X 



**** 
RESET2 X 

*****£ 1 ********** 

* SAVE NO. IN * 

* CLASS AND LOB * 
*ADDR IN HRKPLD2* 

* FBOH SLADD * 

* AND SNICL * 
***************** 



*****? f ********** 

♦SCNLUB JS* 

*-*-*-*-*-*-.*-*-* 
* MOVE LUB TO * 
•JIBCHN. UPDATE * 
♦SLADD AND SNICL* 
***************** 



**•* 

* * 

♦ A3 ♦ 



RESET5 X 

*****A2********** 
♦CHKASG GU^ 

*-*-*-*-*-*-*-*-* 

♦ COMPOTE ♦ 

♦ LOB ADDR OP ♦ 

♦ SYSLST ♦ 
***************** 



.♦ IS *. 

SYSLST 

♦.ASSIGNED .♦ 



NO .♦ CURRENT ' 
X..*. LOB EQUAL 
♦. SYSLST .' 



D2 ♦. 
.♦STORED ♦. 
YES .♦ STANDARD » 
X..*. ASSIGN EQ 

♦. SYSLST .♦ 



*****E2********** 

* * 

♦ RESET JOB ♦ 
.♦ CONTROL LINE ♦ 

♦ COONT TO 1 ♦ 

* * 
***************** 



*****? 2********** 
♦RSTSTD JH* 

*-*.*-*_*.*.*.*.* 

♦ RESET LUB TO ♦X. 

♦ STANDARD ♦ 

♦ ASSIGNMENT ♦ 

***************** 



****A3***^+**+ + 

HOVE LUB ADDR ♦ 

TO LJBAD PROH ♦ 

HRKPLD2 FOR ♦ 

TDYDYF DON- ♦ 

ROUTINE ♦ 

**************** 



♦ COMPOTE LOB ♦ 

♦ ADDRESS OP ♦ 

♦ SYSLOG ♦ 

***************** 





**** 

* * 

* B% ♦ 

* * 
**** 




>ET7 X 

*****B <» ********** 
♦CHKASG GU* 
*-*-*-*-*-*-*-*-* 

♦ COMPUTE LUB ♦ 

♦ ADDRESS OP ♦ 

♦ SYSLNK ♦ 
***************** 



CORRENT ♦. 
LOB EQUAL .♦ 
. SYSLOG .♦ 
♦. .♦ 



.♦ CURRENT ♦. NO 
. LUB EQUAL .*.... X* A2 
♦. SYSLNK .♦ ♦ 



**H1******* 

♦ RESET ♦ 
TEMP. HOPPER 
ASSIGNMENT 

TO H2 

* * 
*********** 



J1 ♦. 

.* IS ♦. 

.♦ STANDARD ♦. YES 

♦. ASSIGNMENT .*... 

♦. FOR .♦ 

♦. H2 .♦ 



YES .♦ IS 
...... IT SYSTEM 

♦. CLASS . 



***************** 



*****F3********** 

* * * * 

* ♦ SVC7 ♦ ♦ 

* ♦ BAIT ♦ ♦ 

* * * * 

* * * * 
***************** 



*****G3********** 
♦MTNCNT GU* 
*-*-*-*-*-*-*-*_* 

♦ PREVENT I/O ♦ 

♦ INTERRUPTS ♦ 

♦ * 
***************** 



.♦STORED ♦. 
STANDARD 
ASSIGN EQ 

. SYSLNK . 



RESBT6 

**?<!******* 

♦ SET LINK ♦ 

♦ OPTION BIT 
♦ OPP IN 

♦ JBCSH1 

♦ BIT ♦ 
*********** 



**** 

* * 

* GU ♦.X 

* * 

**** 



****G I********** 

♦ BRANCH TO ♦ 
♦RSTSTDS ROUTINE* 

♦ IN $JOBCTLD ♦ 

*************** 



**** 

♦ * 

♦ E5 ♦... 

♦ ♦ . 
**** 

RESJ2T3 X 

*****£5********** 

♦ LOAD URKBG1 ♦ 
♦WITH REHAINTING* 

♦ LUB COONT ♦ 

♦ * 
***************** 



*****? 5 ********** 

♦ RESTORE ♦ 

♦ LOGICAL ONIT ♦ 

♦ CLASS IN ♦ 

♦ POINT 1 AMD ♦ 

♦ INCH BY 1 ♦ 
***************** 



NO .♦ REHAING 
...♦. LOB COONT 

♦. EQ . 
. ♦. .♦ 
X ♦. .♦ 
**** * YES 

B1 * 



*****tf 5********** 

♦CHKOPN JS* 

*-*-*-*-*-*-*-*-* 
♦BESET OPEN FLAG* 

♦ IN DFBS USING ♦ 

♦ THIS DEVICE ♦ 

***************** 



NO 



**K1******* 

♦ RESET ♦ 

♦ TEMP. ♦ 
HOPPER ASSIGN ♦. 

♦ TO H 1 ♦ 

* * 
*********** 



*****j2********** 

♦ CALCULATE ♦ 

♦ BIT POSITION ♦ 

♦ OF NEXT ♦ 

♦ LOGICAL ♦ 

♦ UNIT ♦ 
***************** 



RESET8 

*****J3********** 

♦ RESTORE LOB ♦ 
♦POINT.AND COUNTS 

..X^ IN SLADD ♦ 
♦AND SNICL FROM ♦ 

♦ BRKFLD2 ♦ 
***************** 



*****£3********** 

♦SCMLUB JS^ 
*-*-*-*-*-*-*-*-* 
♦ HOVE LUB TO ♦. 
♦JIBCHN. UPDATE ♦ 
♦SLADD AND SNICL+ 
***************** 



***j<l********* .* * 

BRANCH TO ♦ NO . ♦ 

CONTROL IN ♦X *. DDSM ON 

$JOBCTLA ♦ ♦. 



.♦ END ♦. 

.♦OF LOCICAL 

.*♦. UNIT 

♦. CLASS . 



****K5********* 

* * 
♦RETURN TO DVCDN^ 

* ROUTINE ♦ 

***** ********** 



**** 

* * 

♦ B4 ♦ 
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Chart MH- $JOBCTLF - DVCDN Statement Processor (Part 1 of 2) 
Refer to Chart 15.. 



**** 

* • 

• A* * 

* • 
**** 



**** 

* • 

* Ab * 

* • 
**** 



***** 1*** ****** 

* • 

* DVCDN * 

********* ****** 



****A2********* 

* * 

* DVCDN3 • 

* * 
*************** 




**^* ************* 



***************** 



••***A5** ***** 



*•**••*****•***•* 



***************** 



DVCDN3 X 

***•*]} 2********** 

• INITIALIZE • 
•HBKBG1 TO HOLD • 

• BOBBBB OP • 

• PARTITIONS * 

• * 
***************** 



**** *B3* ********* 

* sat LINKB1 * 

* TO EXIT FBOB * 

* 1JVCDB3 TO * 

* DVCDNH * 

* * 

**** ************* 



* SEIZE • 

* TAB SISTEB * 

* *G5 • 
***************** 



•*B5******* 

• • 

* TDBH OFF * 
* PDB2 AITS • 
♦USED Bl OPEM * 

* • 
*********** 

**** 1 



*****£ -|*«******** 

* * 

* SBT LOBSH * 

* FOB GETLUB * 

* BOOTIBB * 

* * 
***************** 



*****C2********** 
•INITIALIZE BEG • 

* -POIMT1- TO * 

* FOB SIS. CLASS * 

• AND STOBB LOB • 

• CBT IB COOBT * 
mm*************** 



• BkllLD COOBT * 

* C0XTBOL FOB * 
•LOB TBL SBABCB * 
***• ************* 



*****Q4|********** 

♦BOTE TOE BBADBB* 

* "BOBE** TO * 

* OUTPUT BOPPBB * 

* ASSUBIB6 BO * 
ASSIGBNBNT 



**** . 

*****Cb********** 

* OKI * 

• PDB POINTEB * 

♦ FOB SXSLOG * 

* IB MBNBGJ • 

• * 
***************** 



* POIBT TO * 

* OPERAND * 

* X 'COO • * 
***************** 



****D2********* 

• * 

• BBTUBB * 

• * 
*************** 



DVCDB* 
DVCDN 2 X 

**** «f>3********** 

•LOGOiR GL* 

*-*-> *-*-*-.*-*-*-.* 

• i. SIT SXSL06 • 
•ASSIGNBBNT SiS * 

• iB COHfiBG • 
***************** 



*****D4»********** 

* CALCULATE PTB * 

* TO BG SISTEB * 

* CLASS USING • 

* PIE OF COBBNT * 
PABTITION 



**************** 



* DID 

BLABK STOP 
*. SCAB 



***** 
*GI * 
* C2» 



**** 

* * 

* F2 * 

* * 
**** 



♦GET DEVICE TXPE* 

* POB ADDBBSS, * 

* ♦ PDB POIBTEB * 
***************** 



DVCDN IN X 

** ***p 2** * * * ***** 

* GET POB PTB * 

* FOB STSLST * 

* II WBKB63 * 

* * 

* * 
***************** 



***• «s3********** 

* * 

* ,OVB BSG * 

* I1 101 TO • 

* OUTPUT * 

* BUPPBR * 

**************** 



TfOT BBLBASE ' 
BSG ON 
STSLOG 



*****K«********** 

* POT COUNT * 

* -* OB 6- FBOB * 

* DVCDB3 BTB * 

* BEG POIBT 2 * 

* * 
***************** 



**** *G3********** 



*****B1********** 

* * 

* BOILD SVC N4 * 

* BBADBB AND * 

* INFOBBATION * 

* * 
***************** 



*****j i ********** 

•SVC44R0 HT* 

*_*_*_*_*_*_*_*_* 

* BUILD BBCOBDS * 

* AND IBITE * 

* ON SISBBG * 
***************** 



*. .* 

I *. .* 
**** * IBS 

* * 

* C5 * 

* * X 
**** **** 

* * 

* AS * 

* * 
**** 



***************** 



-* • . 

.* STSLST *- B( 
*. ASSIGBBD .*. 

*. .* 



**i**g. 3* ********* 

•BSG OUT GJ* 

*_fr^ » ,. « ■. * - * - » - * - ♦ 

• ! SKIP OBB * 

• LIBE * 
(* STSLOG 



DVCDN 14A X 

*****K 2********** 

•LSTOOT GJ* 

*-*_*-*_*_*_*_*_* 

* LOG OB * 

* STSLOG * 

* * 
***************** 



..X. 

X 
**** 

* * 

* A3 * 

* * 
*•*• 



**** *J3* ********* 
•DVCDN 3 _^ _BB» 

♦"TbiIILD COUNT * 
•COBTBOL FOB LUB* 
•TBL FOB SBABCB • 
**$* ************* 



•*#* «n 3********* * 
- * I * 

* i 31 EXIT • 
*FftOA TBANSIBNT • 

* " . iO DVCDB5 • 

* i * 
***************** 



**** 

* . ♦ 

* A4 » 

* * 
**** 



• COBPOTB LOB • 

• ADDBBSS AND • 

• BO. IN CLASS • 
***************** 



••OPNNAND** 

.* E£tUAL TO • 

SXSLOG 

*. DEVICE .♦ 



*G5 
TUB STSTEB HAS 
BBBB BBLEASAD 
IB TBE SVCBTBHS 
BOUTIBB. 



• SCAB LUB TBL 



•**•******•*****• 



.* £1D *. HO 
•.OF LUBS TBIS .*... 
•. CLASS .• 
•. -• 



***** 
*NJ • 
* Bl* 

• * 



•****G5********** 

• UBASSIGN * 

• SXSLOG. • 

• -FF TO BITE * 

• OF LOB- * 

• * 
***************** 



• F2 • 

* * 
**•* 



•as 

RETURN ON AN 
ISO UAL OB END 
OF T*BLtl. 



*****j<t********** 

• DECBEBEBT • 

• COUNT, • 

• INCBBBBBT • 

• CLASS • 

• * 
***************** 



*****j^* ********* 
•BSGOUT GJ* 
*-*-*_*-.*_*-*_*-« 

X* PBINT TttE • 

• CONTENTS * 

* OF BUPFER * 
***************** 
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Chart MJ. 



SJOBCTLF - DVCDN Statement Processor (Part 2 of 2) 
Refer to Chart 15. 



**** 

* B2 * 



****&<!********* 

* * 
*■ SFPPEDQ * 

* * 
*************** 



**** . 

•MS * 

* A5 *.X. 



DVCDNS X 

*****Bf ********** 

* MOVE ADDR. OF * 

* SYSTEM UNIT * 

* TABLE TO * 

* B-TRANSIENT * 

* SSBLISTIO * 
***************** 



*****C i********** 

* CLEAB BUFPBR * 

* HOVE BBADBR * 

* I/O OBIT TO * 

* BUFFBB * 

* * 
***************** 



•***g 1 ********** 

HOVE * 

-OWNER- • 



DFCDNC X 

*****pf ********** 
♦HSGOUT GJ* 

*-*•.*-*.*-*-*.*..* 

* PRINT * 

* BEADING • 

* * 
***************** 



:****G 1********** 



I**************** 



*****(] 1 ********** 

♦HSGOUT GJ* 

*.*_*.*.*.*.*_*.* 

* SKIP * 



*****B2********* 

* STOBE DISP 

* IN 

* TLUN IN 

* TBANSIBRT 
* 
****************< 



*****C2********** 
*PUIF TA* 

*.*.*.*-*-*.*.*-* 

* TBANSLATE AND * 

* CONVERT THE * 

* LUB ♦ PUB IBFO * 

***************** 



*****D2********** 

* SET UP BUFFER * 

* HITH LOGICAL * 

* UNIT. CORHBNT • 

* AB& OHRBR • 

* FIELDS * 
***************** 



***** 22* ********* 
*LOGCRK GL* 

*-*-*-*-*-*-*-*-* 

* CHECK SYSL03 * 

* ASSIGNBENT * 

* *. 
***************** 



*****f2********** 
•BSGOUT GJ* 

*.*-*.*.*.*.*.*.* 

* WRITE * 

* THE * 

* HBSSAGB * 

***************** 



*****q2********** 
♦SFPPEDQ HJ* 

*_*-*.*;*_*_*.*_* 

* DEQUE THIS * 

* ENTRY INLUB * 
*AND JIB *m* 
***************** 



B4 ». 
.* LAST *. 
CURRENT .* ITEM ALT. *. STORED * GBT POINTER 

•STANDARD. STORED* X* TO STORED 

♦OR CURRENT.* STANDARD * STANDARD JIB 
*. *B* i* 
• . ; * • * 
* ALT 
*♦** 

*BS * . 
* J2 *.X. 



***************** 



* GBT POINTER * 

* TO CURRENT * 

* LOB * 

* * 
***************** 



* D3 *.X. 

• • 
**** 

UB1 X 

*****D3********** 

* 

ONASSIGN * 

THE LUB * 

-FF TO BYTE 0- * 

* 

**************** 



**B3******* 

* INDICATE * 
PRIBARI BQ. * 
-X»80« INTO * 

DDSi- * 

* ♦HJ * 
*********** 



**** 
PPBDQ2 
*****C<»********** 

• BEHOVE ALT. * 
♦ASSIGN FROH JIB* 

* UPDATE JIB * 

* TABLE CBAIN * 

♦ ♦ 
***************** 



D* ♦. 
.♦ *. 

ALT ASSGN 



*****C5********** 



***************** 

I **** 

* * 
..X* D3 * 

* * 
**** 

*****0 5********** 

* * 

* UPDATE * 
X* DISPLAY 3 * 

* OF LAST JIB * 

* * 
***************** 



***** 
*HS * 
* B2* 

* * 



DVCDN6 X 

*****j 1********** 
•CALCULATE DISP * 
♦FROH BEGINNING ♦ 
♦OF CLASS IN LUB* 

♦ TBL FOR THIS ♦ 

* LOB * 
***************** 



* B2 * 

* * 
**«* 



*****j2*********t 

* INCREHBNT 

* CLASS 

* DECREHENT 

* COUNT 
• 

****************! 



• Hi 
THIS SB IS USED 
TO INDICATE TO 
SFPPB RTN. THAT 
THIS LOB HAY BE 
TBHPOBARY AND TBBRB 
HAY BE A JIB 
ASSIGNED TO THIS 
DEVICE. 



♦ Ji 
EXIT FROH SFPPB 
IS ON EITHER EQ 
PUB PTR. OR END 
OF LUBS. 



**** 

♦ • 

* F5 * 



**** 

* * 

* F* * 

* * 
**** 



*****gt|********** 

* * 

* UPDATB * 

* DISPL 2*3 *. 

* OR LAST JIB * 

* * 
***************** 



* rn *... 

* * . 
**** . 

DVCDB7 X 

*****pit ********** 

•GETLAN JH* 

*-*-*-*-*-*-*-*-* 

* COMPOTE LUB * 

* ADDRESS AND * 

* NO. IN CLASS * 
***************** 



*****Q(t********** 

•SFPPB HR* 

*-*-*-*-*-*.*-*-* 
♦SCAN FOR EQUAL ♦ 
♦ PUB OR END OF ♦ 
♦LUB *J3* 

***************** 



*****££********** 

♦ ♦ 

* RESTORE * 

* PREVIOUS *. 

• JIB ADDRESS * 

• * 
***************** 



**** 

*HB ♦ 

* Ji *.X 



***** 
•HS * 
♦ CI* 



*H« 
IF A STORED STAND- 
ARD IN THE JIB IS 
ASSIGNED TO THIS 
DBVICB.IT IS 
TEMPORARILY UN- 
ASSIGNED (FF TO 
BYTE OF (JIB) . 
IF THE CURRENT 
ASSIGNMENT jTEHP- 
OBABY OB STANDABD) 
IS ASSIGNED TO 
THIS DEVICE, IT IS 
UNASSIGNBD (FF TO 
BYTE O OF LUB) . 
ANY ALTERNATES 
ASSIGNED TO THIS 

?EVICE ARE REMOVED 
ROM THE JIB TABLB. 



IS 
DEVICE 
TAPE 



• YES 




**** 

* * 

* F5* 

* * 
**** 


X 






.*. 






35 •. 






.* * 






.* IS 


*. 


YES 


DEVICE ALRfiAX. 


*.... 


*. DOWN 


* 





****a<>********** 

* 

RESTORE • 

HODE * 

OF TAPE * 

* 
**************** 



*****j5********** 
•HOVE X'OO* INTO* 

* JOB CTL FLAG • 

• OF PUB TO * 

* INDICATE * 

• DEVICE DOWN * 

***************** 



*****KS********** 
•RESET OWNERSHIP* 
•BITS IN CORRES-* 
•PONDING OWNER-* 

• SHIP TABLE * 

• ENTRY • 
***************** 



***** 
•HA • 
• kH* 



252 DOS/VS IPL and Job Contrbl Logic 



Chart MK. 



$JOBCTLF - MAP Command Processor 
Refer to Chart 15- 



**** 

* A2 * 

* * 
**** 



**** 

* * 
♦A3 * 

* * 
**** 



•***A1 ********* 

* * 

* HAP * 

* * 
*************** 



B1 *. 

.♦ * 

E-SYSTEH 



BULTI- *. MO 
PARTITION .*... 
. SYSTEM .* 



****B2*********< 

SET OP 
PARTITION 
PBIOBITI 

*************** 



IS 
SYSLOG 
A 12SD 



*****D1********** 

* * 

* DBOP NABB * 

* COLUHN PBOH * 

* HAP OUTPUT * 

* * 
***************** 



*****g1********** 

* * 

* SET UP BAP * 

* HEADER LINE * 

* POR /370 * 

***************** 



SKIPRTK 

*****C2********** 

* SET UP * 

* RUN ID * 

* AND JOS NABB * 

* OF PARTITION * 

* * 
***************** 



* SET UP * 

* PARTITION * 

* IDENTiriBR * 

* * 
***************** 



.* ALL *. 
. PARTITIONS . 
♦.PBOCBSSBD.* 



***************** 



SOPV 

*****Q 1********** 

* SET OP * 

* UPPER LIHITS * 

* AND SIZE * 

* OF SUPERVISOR * 



******** 



******** 



PART 

*****HI ********** 

♦HSGOUT GJ* 

*-*_*-*.*.*.*.*-* 

* OUTPUT * 

* PREVIOUS LINE * 

* * 
***************** 



*****j 1********** 

* * 

* SET POINTERS * 

* TO NEXT * 

* PARTITION * 

* * 
***************** 



*****K 1********** 

* SET UP * 

* UPPER LIHITS * 

* AND SIZE * 

* OF PARTITION * 

* * 
***************** 



*****P2********** 
•HSGOUT GJ* 

*-*-*-*-*-*-*-*-* 

* OUTPUT LAST * 
♦PARTITION LINB * 

* * 
***************** 



HULTI- 
PARTITION 
. SYSTEH . 



* SET OP 

* AND OOTPOT 

* SVA LINE 

* 
**************** 



*****j2*********' 

* 

* SET DP 

* AND OUTPUT 

* VIS LINB 

* 

****************; 



*****K2********** 

* * 

* SET UP * 

* AND OOTPUT *. 

* PP LINB * 

* * 
***************** 



* SET UP NAP 

* HEADER LINB 

* FOR E 

* 
**************** 



*****B3* ********* 
•HSGOUT GJ* 
*-*-*-*-*-*-*-*-* 

* OUTPUT BAP * 

* HEADBR LINB • 

* * 
***************** 



BSUPf 

*****C3********** 

* SET UP * 

* UPPER LIBITS * 

* AND SIZE • 

* OF SUPBBVISOB * 

* * 
***************** 



BPABT 

*****D3********** 
•BSGOUT GJ* 

*-*-*.*-*-*-*.*.* 

* OUTPUT *X 

* PREVIOUS LINB * 

* * 
***************** 



*****£3********** 

* * 

* SET POINTERS * 

* TO NEXT • 

* PARTITION * 

* * 
***************** 



*****P3********** 

* SET OP * 

* UPPER LIHITS * 

* AND SIZE * 

* OF PARTITION * 

* * 
***************** 



*****G3*********> 

* SET UP 

* GET VIS AND 

* PFIX SIZES 

* OF PARTITION 
• 
**************** 



.* HULTI- ♦. NO 
. PARTITION .♦... 
*. SYSTBB .* 



****J3********* 

SET OP 

PARTITION 

PRIORITY 

*************** 



* B4 * 

* * 
**** 



NOTE: TM8 NAP 
PROCESSOR USES 
SUBROUTINE CNWBCD 
TO CONVERT THE 
OUTPOT TO PMINT- 
ABLB FOBBAT. 
(SEE CHABT «U) 



* SET OP * 

* RUN ID * 

* AND JOB NAHE * 

* OF PARTITION • 

* * 
***************** 



♦ SET UP 

♦ PARTITION 

♦ IDENTIFIER 

* 
**************** 



.* ALL * 
. PARTITIONS 
*. PROCESSED.* 



.X.. 
X 

**** 



*****E4********** 
*HSGOUT GJ* 
*-*-*-*-*-*-*-*-* 

* OUTPUT LAST * 
♦PARTITION LINE * 

* * 
***************** 



*****pi> ********** 
♦GET OPPER LIHIT^ 
♦AND SIZE OF SVA^ 

♦ AND SIZE OF ♦ 

♦ SYSTEH GETVIS ♦ 

♦ ARE* ♦ 
***************** 



***************** 



*****H l|********** 

♦ GBT ♦ 

♦ TOTAL ANOUNT ♦ 

♦ OF REAL ♦ 

♦ SrOBAGB ♦ 

♦ * 
***************** 



*-*-*-*-*-*-*- 



***************** 

**** * 

* * . 

* K« *.X. 

* * 

**** 



****K<********** 

♦ RETOBN TO 

♦ CONTROL IN 

♦ SJOBCTLA 

*************** 



* k2 * 

* * 
**** 



* KU 

* 
**** 



Program Organization 253 



Chart ML. SJOBCTLF - DVCUP Statement Processor 
Refer to Chart 15.. 



«w**A 2* ******** 
DVCUP 

mm************* 



*************** 



*****C2********** 
*SCANB2 GK* 

*-*-*-*-*-*-*-*-* 

* POINT TO * 

* OPERAND CUU * 

* ■ * 
***************** 



**** 

* * 

* A3 * 



**B3******* 

*NQDIF¥ JOB * 

•CONTROL FLAG * 

* IN PUB TO 

* INDICATE * 

* STO MODE * 

*********** 



**** 

* * 

* C3 * 



****C3********* 

* BBANCH TO * 

* CONTROL IN * 

* SJOBCTLA * 
*************** 



02 *. 

* DID * 

A BLANK 

END THE 

SCAN 

*. .* 

*. .* 



****D3********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 
*************** 



* GET DEV * 
•TYPE PUB ADDR, * 

* PUB POINTER * 

***************** 



*****P2********** 

* LOAD PUB ADDR * 

* FOB THIS UNIT * 

* IN HBKRG3 * 

* FBOH NEHPUB * 

* * 
***************** 



DEVICE 
DOHN 



**H2******* 
*HODIFY JOB * 
*CONTROL FLAG 
* IN PUB TO 
* INDICATE 
* DEVICE UP * 
*********** 



**J2******* 
♦INITIALIZE * 

* VCT TABLE 
VIA SAVRINH 

* RTN 

* * 

*********** 



.* IS DEV A *. 

.MAGNETIC TAPE. 
*. UNIT .* 



.* IS *. NO 
•X*. DEVICE A .*... 
*. J80U .* 



*****(; 3********** 
*GETLUB HU* 

*-*-*-*-*-*-*-*-* 

* GET ADDRESS * 

* OF SYSOOO LUB * 

* * 
***************** 



*****H3********** 

* ASSIGN 3800 * 

* TEHPOBABILY * 

* TO SIS000 * 

* * 
***************** 



*****j3********** 

* LOAD POINT* * 

* WITH ADDR OF * 

* 3800 LUB AND * 

* RESET HASK * 

* * 
***************** 



*****K3********** 



***************** 



*****KU********** 

♦SETAPBT GY* 

*-*-*-*-*_*-*..*-* 

.X* BESET BUFFER * 

* TO DEFAULT * 

* VALUE * 
***************** 



**** 

* * 

* A3 * 
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**** 

* * 

* A2 * 

**** 



****& 1********* 
* UNBATCH * 

*************** 



**************** 



*****£ 1 ********* 

* LOAD ADDR 

* OF NVSERR 

* IN A REG 

* -POINT4- 

* 
**************** 



D1 *. 

* * 

UNBATCH 



.♦ PART *. YES 
•CONTROLLED BY.*..X 
♦.POHER/VS .♦ 



*****A 2* ********* 

* HOVE BLANK * 

* TO THE SCAN * 

* STOPPER LOC * 

* -SCNSTP- * 

* * 
***************** 



*****B2********** 

* GET * 

* PIB-ADDR * 

* OF PARTITION * 

* CONTAINING * 

* JCL PROGRAM * 
***************** 



*****C2********** 

* * 

* SET POB * 
•OWNER BASK FOR * 

* AFFECTED * 

* PARTITION * 
***************** 



****D2********** 

* 

SAVE PROGRAM * 

INTERRUPT KEY * 

IN PIKSAVE+1 * 

**************** 



**** 

* * 

* B3 ♦ 

* * 

**** 



*****P2** ******** 
*UNA1A HN* 

*-*-*-*-*-*-*-*-* 

* DNASSIGB ALL * 

* LOBS FOR TBIS * 
•PARTITION *F5* 
***************** 



* DECREASE * 

* PART. COUNT * 

* BY ONE * 

* * 
***************** 

**** * 

* * 

* C3 *.X. 

* * 
**** 

ACCTIGN X 

*****C3**« ******* 



***************** 



*****Q3********** 

* LOAD START * 

* ADDRESS OF * 
•TBIS PARTITION * 

* INTO REG 1 * 

* * 
***************** 



*****g3********** 

* LOAD END * 

* ADDRESS OF * 
♦THIS PARTITION * 

* INTO REG 1 * 

* * 
***************** 



DETCONT X 

*****? 3********** 

•HTNCNT GU* 

*.*.*.*-*.*-*.*-* 

* RELEASE * 

* THE SISTBH * 

* * 
***************** 



POINT 1 IS 
USED AS A 
DISPLACEMENT 
FROM ENTRY POINT 
IN FICL AND NICL. 



*BS 

check sxshdh, 
ipt, pch, and 
lst for Assignment 
to tape or disk. 



***Dtt********* 

* 
DETACHR * 

* 
************** 



* MOVE POINTER * 

* TO SYSTEM * 

* CLASS ONIT * 

* *B5 * 

***************** 



***************** 



G1* *. 




G2 *. 




*****Q3********** 




G4 *. 


.* *. 




.* JOB *. 




* DECREASE * 




.* UNIT *. 


.* IS *. YES 




.♦ACCOUNTING ♦. NO 


* COUNTER ♦ 


YES 


.♦ASSIGNED TO*. 


*. THIS A JOB .*..X 




*. INTERFACE .* 




* OF VIRTUAL * 


. . .♦ 


.TAPE DISK OR . 


*. STEP .* 




*. SUPPORT .* 




* PARTITIONS * 




♦.DISKETTE .♦ 


*. .* 




♦. .♦ 




* BY ONE ♦ 




♦ . .♦ 


*. .* X 


♦ . .♦ 


X 


***************** 


X 




* no ***** 


♦ YES 


**** 




***** 


♦ NO 


*GW * 




* * 




♦ MR * 




* C2* 




* C3 ♦ 




* B5* 




. * * 




* * 




* * 




* 




**** 




* 




NVSBRR 








SFNC 


X 


X 


X 




X 




.♦. 


*****H i********** 


*****U2********** 




**H3******* 




H<» *. 




♦ GET COUNT AND ♦ 




* BBSBT * 




.♦ ♦. 


* CLEAR REG * 


• ADR OF ♦ 




♦BATCHED MODE * 




♦ LAST *. 


* -POINT 1- * 


♦ COBMON ♦ 




♦ INDICATOR AND ♦ 


* 


UNIT 


* *A5 * 


♦ ACCOUNTING ♦ 




♦ DETACH ♦ 




*. . * 


• * 


♦ TABLE ♦ 




♦ PARTITION ♦ 




♦. .♦ 


***************** 




***************** 




*********** 




♦ . .* 



♦ PS 
IMMEDIATE 
RETURN IS MADE 
BY FORCING A 
BLANK IN SCNSTP. 



*********** 



*****K1 ********** 
♦DETACHR MM* 
*-*-*-*-*-*-*-*-* 

* CHECK SYSTEM * 

* ASSIGNMENTS * 

* * 
***************** 



ONLY ♦. 
PARTITION . 
. ACTIVE .* 



**K2******* 

* SET NO * 

* PARTITION * 
ACTIVE SWITCH 

* LEAVE COUNT * 

* AT ONE ♦ 
*********** 



****jll******** 

* RETURN TO 

* CALLINS SEO. 

************** 



* B3 * 

* * 
**** 



*K3 
INVALIDATE 
PAGE TABLE OR THAT 
PARTITION IN WHICH 
UNBATCH WAS GIVEN. 



* C3 * 

* * 

**** 
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***** 

•bl * 

* 62* 



*** *4 i********* 

* * 

* OBA * 



**** 

* * 

* J»3 * 



I?»S X 

******«**•*•***•• 

* POXBT TO * 

* BBBOB * 

* BBSSAGB * 

* -1A7BD- * 
*E3 



OVA X 

*****B t********** 
*IBITL HO* 



CI *. 
.♦HOLTI- *. 
.♦PROGRAMMING*. MO 
. BHFIROHBBBT .*... 



*****D1********** 
•IHITL^ ^ _ HQ* 



*POIHT TO PIBST * 

* OPBBABD * 

* -PI TO F4- 

*************i 



*BP * 

* 03 *.X. 



**** 
OXAB 



-* *- IBS 

XBFALID .*..X 
♦.DBLIHITEB.* 



*****G |*«******** 

* SBT OP * 

* LIBK BB6XSTBB * 

* TO BXIT FBOB * 

* THIS * 
BOOTIIB 



**fl l******* 

* BSSKT BOB * 
BASK TO X*PB B A 

* LLOV OBLf 
* F6 * 

* OHBBBSHXP * 



B2 *. 

.* *. 

.* HAS *. 

OPBBXBD X FALID' 

*.PABTITIOH.* 

*. .* 

*. .* 

* IBS 



X 

.*. 

C2 *„ 

.* *. 

IBS .* *- 

X..*. DOPLICATB .< 

••OPBBABDS .* 



*****P2********** 

* ■ * 

* SBT POXNTBB * 
•TO XPPBOPBIXTB * 
♦PARTITION CLASS* 

* • 
***************** 



*****B2********** 

• * 

• GBT COBBBCT * 

• FOB BASK FBOB * 
*OHBBBFLAG TABUS* 

»* »* »»»*»♦»*»»♦*♦ 



"**P2******* 



•SELECTED BBPOBB* 

•FBOB OHBBBFLG* 

* TABLE * 

*********** 



*****C2********** 

*CALCOLATB PIB- * 
•DXSPLACKBBBT OF* 
* AFFBCTXD * 



*h5 * 
* i«* 



.*. 

C3 *. 
.* IS *. 
BO .* PBOGBAB • 
...*. UBTACHBD 

*. *K1 .* 
*. .* 

X *. .* 
**** * IBS 



*****D3********** 

* CALCOLATB * 

* DXSFLACEHBBY 

* F1U 



0BA1A X 

**** *B3********** 

■ tenuis. oh* 



TICDOUb X 
*****Cft**> 

* POXBT TO * 

* BBBOB * 

* BBSSAGB *. 

* -U5ID- * 

* *13 . * 

***************** 



*B5** ******** 
POXBT TO * 

miosi * 

BBSSAGA * 

-1A9QD- * 

*KJ 



Sr 



!%!*. * 
B«« ** 



COBPOTB 
LIB) ADDBBSS 



*****S4********** 
POXBT TO * 



BBSSAGB 



* * 

* 15 * 



.* 
. .* 
* IBS 



**** *p3********** 

* ao?B LOB * 

* 4DDR. TO * 

* iJOBAD AID * 

* BXCL TO * 

* WBKBG1 * 
****«******- - 



*•** 

* ., • 

* G4 * 

* - * 
**** 



TXABBfi X 

•****G4********** 
* POXBT TO * 



*QF 



*****25********** 
♦LOAD WBKBG3 AS * 
*POXBTKH TO LOG-* 
•ICAL TBABSIBST • 
* BOCRKT iB THE * 

***************** 



*****P5**** ****** 

* BODIFY BSM XB * 

* SAFE ABBA TO * 

* FOBCB BBTOBH * 

* TO EBBBTH2 * 



*****G$********** 

* BBLBASB * 

* TBB SYSTBH * 



.* LBBGTH *. IOI 

. OF OPERAS D .* 

2 CHABACTBBS* 



****J2********* 

* BBAMCB TO * 
..X* NTSBBB IB * 

* SJOBCTLA * 
*************** 



* an • 

* • 
**** 



****j4********* 

* BBABCB TO • 

♦ EBBBTB XB * 

• SJOBCTLA 
*•***•**•*•* 



*SFC 11-SXBOLATB* 

* BETOBN FBOB B * 

* TBAMSXBBT * 

*************** 



BBBRTB2 X 

*****j 5**** ****** 
•BTBCBT 



.-*..»: 



***************** 



**** 

* * 

* B2 * 

* * 

**** 



*K1 

TBB PXB FLAG BOST BB 
HEX 80 IBDICATIBG TOE 
PBOGBAB IS DBTACBBD 
(BO LOBGEB IB OSB) . 



*K2 
THIS HAX BB A 
BBGATIFB 
DISPLACBBBET 



*K3 

^BBsH6B"^*DESCBiPTi6B** , *"*" ,,, " ••*•••• ••• — ••• 

Z Mini' * ''.'ihiiLi&'ioGiciL'oiii *spbcxf£catxob * 

rU5BD**"t'DB»ICE"BOT-DEFiBBD" *"**"*" 

!U6BD" * *I # dilT*COBBBBTLI ~OMASSXGHABLB* 

I U7ID" * *£*iBTALXD*DBFXCE *STAT0S 

^n96D"*"^sisTBH"HLB*BOT*CLOSBD"" , " "'" 



* KJ> *.X- 

* * . 
**** 

KRRHTM1 X 

*•***££** ******** 

* BESTOBB BEG. * 

* POXBTl. BXTB * 

* POXiTEB TO * 

* BBSSAGft TO * 

* BE DXS^LAXBD * 
««**•«***•*****«• 
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***** 

*H» * 
* F3* 



**** 

* * 

* A2 * 

* * 
**** 



B1 *. 

* 

STSLOG 



CI *. 

* 

SYSRES 



UNA2A X 

*****£1*********1 

* INITIALIZE 

* POB 

* SOBBOUTINE 

* UNANT 

* *E2 
**************** 

**** I 



***** 

♦ Hit * 

* E3* 

* * 



END 

OF PUB 

TABLE 



**C2********* 

CLEAR 

PUB 

OWNEBSHIP 

************* 



LOAD LUB ADDR IN 
MBKRG3 FBOn LUBAO. 
SAVE THE COBBBNT 
LUB IN LUBCOH. 
NULL THE LOB IN 
THE LUB TABLE BY 
SETTING TO HEX FFFF. 



BLANK 
BND LAST 
. SCAN 



****BU********* 

* RETURN TO * 
. X* CALLING * 

* SEQ * 

*************** 



*****C3********** 
*SCANR3 GK* 

*-*-*-*-*-*-*-*-* 

* GET * 

* NEXT * 

* OPERAND * 

***************** 



.* *. 

.* BLANK *. NO 

BND .* 

*. SCAN .* 
*. .* 
*. .* 
* YES 


****D4********* 

* BRANCH TO 
...X* NVSBRR IN 

* SJOBCTLA 
*************** 


X 

***** 
*HH * 
* F1* 





**** 

0NA2AA X 

*****f\ ********** 

•UNAENT HR* 
*-*..*_*. *.*.*_*_* 

* UNASSIGN * 

* THE * 

* LUB * 

. ***************** 



UWA2B X 

*****G1 ********* 

INCREMENT 
LtlBAD TO 
ADDR OF 
NEXT LUB 

I***************! 



**H3******* 

* TURN * 

CLB PROG 

SNITCH 



POINT 

TO NEXT 

FICL 

* * 

*********** 



* A2 * 

* * 
**** 



RESETCL 

**J2******* 

* TURN * 

* CLB 
* SNITCH 

* OFF 

* * 
*********** 



*********** 



* COHPUTE 

* SYSCLB 

* LUB 

* 
************** 



**** 

* * 

* F1 * 
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****14********* 

* * 

* TXCUO * 

* * 
*************** 



****B1********* 

* * 

* OUTPUTS * 



OUTPUTS 

*****C 1********** 
•OUTPUT BQ* 

*_*_*_*_*_*_*_*_* 

* OUTPUT LINN * 



***************** 



*****q i********** 

* pbint * 

* a blank line * 

* to bfpbct * 

* A SPACB * 

* * 
********** ******* 



****B2********* 

* * 

* OUTPUT 1 * 

* * 
*************** 



.* LOGICAL *. 
OMIT 

*. sisin .* 



*****D2********** 

* PHIilT * 

* A LIMB * 

* ON STSLST * 

* OB STSLOG * 

* * 
***************** 



•***B3********* 

* * 

• OOTPUT * 



.*CBA1ACTBBS 
IN 

*. LENGTH . 



***** 



*PBI«ff A LINE ON* 

• MSLST OB * 

• SISLOG * 

• • 
***************** 



*** «f)3********* 

* BBTUBN TO * 

* CALLING SBQ * 

*** ************ 



***** C 4********** 
♦dEXCOi JJ* 

* CONVENT NBA * 

* CUD TO BINABX * 

* * 
***************** 



*****D4********** 

* LOAD MBKBG3 * 

* NITB PUB * 

* TABLB ADDS * 

* FOB LOOK UP * 

***************** 



OUTP0T2 Z 

***** B 1 ********** 

*CLBAB TBNPOBABI* 

* FIBLDS, TBODB * 

• AND TCHNT, * 
*TBABSIBNT ABBA * 

TO BLANKS 



*****? | ********** 

* * 

* CLBAfi THE * 

* I/O BUFPBB * 

* TO BLANKS * 

* • 
***************** 



****Q )********* 

* BBTUBN TO * 

* CALLING SBQ * 

*************** 



NO •* 


DEVICE *. 


.-.*. 


DBPINBD .* 


*. .* 




*. -* 


A 


*. .* 


***** 


* IBS 


*BB * 




* C4* 




* * 




* 




TXC001*8 




TXCUU4 


A 


*****?*********** 


• SBABCE PUB * 


* 


TABLB POB * 


* 


DESIBBD * 


* 


DEVICE * 



•*•••*•********** 



*. TABLE.* 
*. .* 

* IBS 



XXCUU2 X 

*****H4*********i 

* SAfB 

* TBB 

* DEVICE 

* TIPB 



*****tt5** ******** 



***************** 



***************** 



*** *k 3* ******** 

* BBTUBN TO * 

* CALLING SBQ * 

* * 

*** ************ 



•****K4********** 



***************** 
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****! 1********* 

* • 

* SFPPE * 

* • 
*************** 



SFPPE 

*****g1 ********** 

* HOVE THB PUB * 

* POIHTER TO * 

* LOBCOB PROM * 

* NEWLUB FOR * 

* COMPARISON * 
***************** 



**** 

* • 

* 82 » 

* * 
• *** 



*****B 2* ********* 
» CALCULATE * 

* PREVIOUS LUB * 

* ADDB. AMD * 

* STORE PJIBADD * 

* *B5 * 
***************** 



*•** 

* * 

* B3 * 

* * 
**** 



TORN OFF 

PRIMARY 

EQSH 

* * 

*********** 



**** 

* * 

* * 
*»** 



*B5 
LOCATION SLAOD 
CONTAINS POINTER 
TO TUB 
FOLLOWING LUB. 



*SET SWITCHES 
* RETSi-ON 
* LIOSH-OFF 

* . * 

*********** 



SFPPE2 

*****D1 ********* 

* SET WRKRG2 
♦TO A 1 TO START 1 

* SCAN AT 

* BEGINNING OF 

* LUB TABLE 
**************** 



* Ei *.X 



**** 
SFPPE02 

*****g i ********** 

* STORE SCAN * 

* CONTROL CHAR * 

* IN * 

* CTYPE FROM » 

* NRKRG2 ♦ 
***************** 



* HOVE LUB TO * 

* WORK AREA * 

* JIBCHN * 

***************** 



SSBLSTIO 
TRANSIENT 
. ACTIVE . 



*****[) 2*** ******* 
♦OUTPUT BQ* 
*-*-*-*-*-*-*-*-* 

♦ CLEAR OUTPUT ♦ 
♦AREAS THODB AND* 

♦ TLHNT ♦ 
***************** 



E2 ♦. 
.* ♦ 

LIOSU ON 



* B3 * 

* * 
**** 



****F2********* 

♦ RETURN TO ♦ 

♦ CALLING ♦Hi ♦ 







♦ END ♦ 








NO . 


♦OF LUBS OF 


* 






...♦ 




THIS 




* 




• 


* 


CLASS . 

♦. .♦ 


* 






X 




♦ - .♦ 








**** 
* 
B2 ♦ 




♦ YES 










• 








* 
**** 




X 






♦ H2 
THIS RETURN TO THE 
CALLING SEQUENCE 
INITIATES LINKR4 


SFPPE4 


.♦. 










HI ♦. 






TO RETURN CONTROL 






♦ RETSW ♦. 






TO SFPPE12. 
CHART HS-B2. 


NO 


* 


OR LIOSM 


* 




...» 


* 


ON 
♦ . .♦" 


* 


* 




X 




♦ . .♦ 








***• 

* 

cu * 




♦ YES 


















* 










*J2 


**** 










THIS RETURN TO THE 
CALLING SBQUBNCE 
IS MADE WHEN THE 
















X 






END OF THB LUBS 


****J1********* 


IS DETECTED LINKRU 


* 




RETURN TO 






IS NOT INITIALIZED 


* 




CALLING 




* 


TO RETURN CONTROL. 



.♦ DOBS ♦. 
NO .♦ THIS LUB ♦. 
...♦HAfE EQUAL PUB. 
♦. POINTER .♦ 



NO .* THESE A ♦ 

X....*. PUB ADDR IN 

♦. OLD .♦ 

♦. PUB .♦ 



**£«♦♦♦♦♦♦♦ 

* * 
♦SET FREE PUB ♦ 

♦FLAGS IN OHNER- 
♦ SHIP TABLE ♦ 

♦ OFF ♦ 
*********** 



SFPPB7 

*****D5********** 
♦INCH CLASS BY 1* 

♦ -POINT1 JSU ♦ 

♦ POINT 1*1- ♦ 



***************** 



X 
***** 
*HS ♦ 
* Ctt* 



X NO .♦ SSBLSTIO < 
.♦. TRANSIENT 
♦. ACTIVE .' 



*****G3********** 
♦OUTPUT HQ^ 
*-*-*-*-*-*-*-*-* 

♦ CLEAR OUTPUT * 

♦ AREAS TMODE ♦ 

♦ AND TCHNT ♦ 
***************** 



***** 

♦ HS * 

* Jb* 



SFPPEOi X 

*****P5******** 

* SET POINTER 

* TO SYSTEM 

* CLASS 



*************** 



****Q(l* ******** 

* * 

* UNANENT ♦ 

* * 

*************** 



.UNANBNT 

. *****5ij********** 
•CHKASG GU^ 
*-*-*-*-*-*-*-*-* 

* COHPUTE PUB * 

* POIHTEH IN * 

* NRKRG4 * 
***************** 



*****B5********** 

* SAVE PUB * 

* POINTBB IN ♦ 

* OLD PUB ♦ 



************** 



********* 



SFPPE3 X 

*****J5********** 

♦GETLUB HU* 



***************** 



♦ D1 * 

* * 

**** 
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**** 

* ♦ 

♦ A1 ♦ 
**** 



SFPPB10 X 

**&1******* 

♦SET THE STD* 

* ASSIGNMENT * 
* FOUND SWITCH 

* STDFOSW. * 
* DM. * 

*********** 



*****B1********** 

* SAVE THE STORED* 
♦STANDARD LOB IN* 

* SSTDLUB FROH * 

* BYTES AND 1 * 

* OF JIB * 
***************** 



REFERENCES *****. 
TO HSB2: * * 
HJE3. HRG3 * ** 



♦TURN OFF STD 
* FOUND SNITCH 
* STDFDSW. 

* * 

*********** 



SFPPE8 

*****C1********** 
♦SCHLUB JS* 

*-*.*.*.*-*.*.*_* 

..X* GET ADDRESS * 
. * OF JIB * 

♦ * 

„ ***************** 

**** 

* * 

* CI * 

* * 
**** 



.* SSBLSTIO *. NO 
. TRANSIENT .*... 
*. ACTIVE .* 



*****B3********** 

* HOVE CHARS, * 

* ALT- TO THE * 

* COMMENTS * 

* NORKFIELD * 

* TCHNT * 
***************** 



* ENTBHED * 

FROH LISTIO 
*. ROUTINE .* 



.* DOES *. 
* THIS LUB *. NO 

HAVE EQ PUB .*... 
*. POINTER .* 



.* PRIHARX *. 

.X*. PREVIOUSLY . 

*. EQUAL .* 



**** 

* * 

* C1* 

* * 
**** 



.* *. **** 

.* RETURN *. YES * * 
*. SNITCH, RETSM.*....X* D3 * 



* B4* 

* * 

* 

SFPPEDQ2 



u Sfi 



.♦END OF JIBS*. IBS 



.♦ IS ♦. 
$$BLSTIO ♦. NO 
TRANSIENT .*... 

. ACTIVE .* 



*****pj ********** 

♦OUTPUT2 HQ* 

*.*.*.*-*.*.*.*.* 

♦ CLEAR OUTPUT ♦ 
♦AREAS THODE AND* 

♦ TCHNT ♦ 

***************** 



SFPPE8A .♦. 

G1 ♦. 

.♦ DOES ♦. 
♦JIB CONTAIN* 

STORED 
♦. STD LUB .♦ 



XES 



THE STD 

ASSGN 

FOUND 

*.SN ON.* 



SPPPE1* 

*****P2********** 
♦HOVE THE STORED* 

♦ STD LUB FROH ♦ 
♦SSTDLUB TO THE ♦ 

♦ HORN AREA ♦ 
♦JIBCHN FOR CHP ♦ 
***************** 



*****G2********** 

♦ * 

♦ SAVE LUB ♦ 

♦ ADDRESS FOR ♦ 

♦ DEQUEUE ♦ 

♦ ROUTINE ♦ 
***************** 



**** 

* * 

♦ D3 *.X 



****Q3********* 

♦ RETURN TO ♦ 

♦ CALLING SBQ ♦ 

♦ * G5 ♦ 
*************** 



SFPPE201 

*****g3********** 

♦ LOAD LOGICAL ♦ 
♦UNIT.TAPE, SCAN* 

...X* CONTROL CHAR * 

♦ IN HRKRG2 AND ♦ 

♦ DOUBLE IT ♦ 
***************** 



***** 
*HR * 
♦ E1* 



HI ♦. 

.♦ DOES ♦. 

.♦JIB CONTAIN*. 

. CAT.PROC. .♦ 

♦PROCESSING. ♦ 

♦. BIT .♦ 



.♦ DEVICE 
DOHN 
*. BEQUEST 



**** 

* * 

* Al ♦ 

* * 
**** 



♦ NO 



J1 ♦. 

.♦ DOES ♦. 

.♦JIB CONTAIN*. 

AN ALT 

♦ . ASSGN .♦ 



*****K1 ********** 



***************** 



**J2******* 

* * 

* TURN OFF ♦ 
♦STORED STANDARD* 

♦ SNITCH ♦ 

* * 
*********** 



♦ C4* 

* * 

* 

SFPPBDQ2 



.* $$BLISTIO ♦. 

♦. TRANSIENT . 

♦. ACTIVE .♦ 



**J3******* 

* * 
SET TCHTT 
SNITCH TO 

«STD» 

* * 
*********** 



***** 
♦MR * 
♦ B2* 



**** 
♦HR ♦ 
♦ BH ♦.X 



SFPPE13 

*****C4********** 

♦ HOVE THE ♦ 
♦CURRENT LUB TO ♦ 

♦ JIBCHN FROH ♦ 

♦ LUBCOH FOR ♦ 

♦ ALTSCAH ♦ 
***************** 



SFPPE15 X 

*****D«********** 
♦SCNJIB JS* 

*.*.*.*-*.*„*.*.* 

♦ GET ADDRESS ♦ 

♦ OF JIB ♦ 

♦ *D5 * 

*********** 



END 

OF JIB 

L'HAIN 



*****F4********** 

♦ * 

♦ HOVE THE ♦ 

♦ LUB TO LUBCOH ♦ 

♦ FROM ♦ 

♦ JIBCHN ♦ 
***************** 



♦ LOAD THE ♦ 

♦ ADDBBSS OF ♦ 

♦ THE FAVP IN ♦ 

♦ HRKRG3 ♦ 
***************** 



*****Hl}********** 

* * 

* COHPUTE FREE ♦ 
♦JIB POINTER AND* 

♦ STORE IN FAVP ♦ 

♦ * H5 ♦ 
***************** 



J4 *. 
.* DOES ♦. 
.♦JIB CONTAIN*. YES 
♦. A STORED ...... 

♦. ALT .♦ 
♦. LUB .♦ 

"♦*NO 



****F5********* 

* RETURN TO * 

* CALLING ♦ 

* SEQUENCE ♦ 

**************** 



♦ G5 
THIS RETURN TO THE 
CALLING SEQUENCE 
INITIALIZES LINKR4 
TO RETURN CONTROL 
TO SFPPBB. 



THE FREE JIB ADDRESS IS 

LOADED IN MRKRG4 FROH 

POINT 3. 

THE JIB TABLE ADDRESS 

IS SUBTRACTED FROH 

HRKRG4 LEAVING THE FREE 

JIB DISPLACEMENT IN 

HRKRG4. 

THE DISPLACEHENT IN 

WRKRG4 IS DIVIDED BY 4 

TO DEVELOP THE FREE JIB 

POINTER. 

THE RESULTING POINTER 

IS STORED IN FAVP FROH 

HRKRG4. 



♦ZERO THE FIRST ' 
X* THREE BXTES 
* OF THE JIB 



***************** 



***** 

♦ MR ♦ 

♦ Fb* 



♦ZERO THE FIRST ♦ 

♦ THREE BXTBS ♦ 

♦ OF THE JIB * 

♦ * 
***************** 



260 DOS/VS IPL and Job Control Logic 



Chart MT. $JOBCTLF - Subroutines 
Refer to Chart 15- 



****A1******#*» 

* * 

* Sfcuaao * 

* * 
*************** 



*****B 1 ********** 



*B3 SSABER&3 CALLS SSABBBAR 
WHICH BUILDS BBCOBDS AND 
CALLS SSABBBA1 TO BBCOBO 
THBH ON SfSBEC 



***************** 



*****C1 ********** 

* * SVC44 * * 

* * HBITB * * 

* * BBCOBDS * * 

* * *bj * * 

* * * * 
***************** 



*****l)2********** 

* * * * 

* * SVC7 * * 
X* * BUT * * 

* * * * 

* * * * 
***************** 



*****Ei********** 
•HTBCNT GU* 

*-*-*-*-*-*-*-*-* 

* SVC22 SEIZE * 

* SYSTEM * 

* * 
***************** 



****F1********* 
» BBTUBH TO * 

* CftLLEB * 

* * 
*************** 
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Chart MU. $JOBCTLF - Subroutines 
Refer to Chart 15. 



***** 1********* 
* * 

* GETLUB * 

* * 
*************** 



♦ COMPUTE FICL 



***************** 



CI *. 

.* LOBS *. 

.♦NEEDED FOR * 

♦.CURRENT PART. 

♦ . ONLY .* 

*. *E3 .* 



CONFUSION. 



* SYS TEA * 
LOBS HEEDED 

*. *G3 .* 



YES 



*****D1* ********* 

* ADD FICL TO * 
♦LUB POINTER OF * 

* CURRENT P&RT. * 
♦TO GET CURRENT ♦ 
♦LUB TABLE ADDR.^ 
***************** 



*****£ 1********** 

♦ GET ADDR. ♦ 

♦ OF JIB TABLE ♦ 

♦ AND SAVE ♦ 

♦ IN JIBSAVE ♦ 

♦ * 
***************** 

**** 



**** 
GETNICL X 

*****f 1 ********** 

♦ * 

♦ COHPUTE NICL ♦ 

♦ OF REQUIRED ♦ 

♦ LUB CLASS ♦ 



*****G1********** 

♦ * 

♦ SAVE NICL ♦ 

♦ IN NOC AND ♦ 

♦ SNICL FIELDS ♦ 

♦ * 
***************** 



*****H1********** 

♦ SAVE ADDR. ♦ 

♦ OF LUB TABLE ♦ 

♦ IN SLADD AND ♦ 

♦ FLOC FIELDS ♦ 

♦ * 
******** ********* 



****j1**** 

* RETURN * 

* TO CALLER ♦ 

* * 
*************** 



GETSYS X 

*****Q2********** 

♦ GET ADDR. ♦ 

♦ OF PIB2TAB ♦ 

♦ ENTRY FOR * 



*****E2"******** 

♦ GET ♦ 

♦ CONREG ADDR. ♦ 

♦ OF REQUIRED ♦ 

♦ PARTITION ♦ 

♦ * 
***************** 



*****P2********** 

♦ ESTABLISH ♦ 
♦ADDRESSABILITY ♦ 

♦ FOB NBH ♦ 

♦ PARTITION ♦ 

♦ COHREG ♦ 
***************** 



*****G2********** 

♦ LOAD ADDR. ♦ 

♦ OF LOB TABLE ♦ 

♦ OF NBN ♦ 

♦ PARTITION * 

♦ * 
***************** 



*****{I2"^******« 
♦SAVB LUB TABLE ♦ 
♦ADDR. IN SYSLUB+ 
♦FOR PROGRAMMER * 

♦ LUB PASS * 

♦ *G3 * 
***************** 



*****J2********** 

* * 
♦LOAD JIB TABLE * 
♦ADDR. AND SAVE ♦ 

* IN JIBSAVE ♦ 

* * 
***************** 



*****K2********** 

♦ REESTABLISH ♦ 
♦ADDRESSABILITY ♦ 

♦ FOR CURRENT ♦ 

♦ PARTITION ♦ 

♦ COHREG ♦ 
***************** 



**** 

* * 

* F1 * 

* * 
**** 



*****C3********** 
♦ADD FICL TO LUB* 
♦ADDR. SAVED IN ♦ 
.!♦ SYSLOB DURING ♦ 
•PREVIOUS SYSTEM* 
♦LOB PASS •<*** 
***************** 



**** 

* * 

* F1 ♦ 

* * 

**** 



(ALL.ONITS. X' CUU' . B6-F 
IN THIS CASE. LOBS OF 
PARTITIONS OTHER THAN 
THE AHOONT ONE HOST BE 



LOBSR»X*00* FOR RESET AND LISTIO 



JSYS.PROG.SYSXX1; 

IN THIS CASE. ONLY i.ud 

OF CORREMT PARTITIONS 



♦GJ 
BOO 

FOR 

SINCE A NBH LUB TABLE ADDRESS NEEDS TO BE 
COHPOTED ONLY WHEN THE SYSTEM LOBS OF A 
NBH PARTITION MUST BB ACCESSED, fflE LUB 
TABLE ADDRESS IS SAVED DOBING THE SYSTEM 
LOB PASS. AND THEN USED AGAIN FOR THE 
PROGRAMMER LOB PASS FOR THE SAME PARTITION. 
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Chart NA* SJOBCTLG - JOB Statement Processor (Part 1 of 3) 
Refer to Chart 17. 



REFERENCES « 
TO NAA3: i 
NCD1. HCP1 



**** 

• • 

• AU ♦ 

• * 
**** 



* Ab * 
*•** 



****AJ********* 

* * 

* WOBCTLG * 



***** ************ 



CBJBSQ X 

**A3******* 

* RESET • 
*JCL SilTCHES 

* AND OPTIONS 
* TO STANDARD 

* * 
*********** 



RSSAS6 X 
*****A<t** 
•RSTASG 



***************** 



*****as**»*»*** 

•RSPASG N 

•-*-•-*-*-*-*-*. 

* RESET 



*****B1********** 
•SCANR2 GK* 

*-*-*-*_*-*-*_*_* 

* GET * 

* JOB NAHE * 

* * 
***************** 



*****B2********** 

* • 

* * 

* CLEAR BUFFER • 

* * 

* * 
***************** 



*****B3********** 
♦JIBSCN MP* 

*-*-*-*-*-*-*-*-» 

* GET ADDRESS • 

* OF STSRDR JIB * 

* * 
***************** 



***** 
*GH * 
* C2* 

* * 



**************** 



*****p 1********** 
*USRLBL MJ* 

*-»-*-*-*-*-*-*-* 
* RESET TO USBR * 
*LBL HODE*CLEAR * 
•USER LABEL AREA* 

***************** 



*****U ) ******** 

* 

* BESET 

* LINK CONTROL 

* BYTES 

* 

***************! 



**C2******* 

* * 
INDICATE 
SIMULATED 

EOJ 

* * 
*********** 



*****D2********** 



***************** 



*****£2********** 

* * 

* ALLOW OUTPUT * 

* ON SYSLST * 

* AND SYSLOG * 



.* JOB *. 
. ACCOUNTING . 
*, SUPPORTED.* 



*****G2********** 
•WOVE ADDR. AND * 

* LENGTH OF * 

* JOB NAHE TO * 

* ACC. TABLE * 

* * 
***************** 



X 

***** 

♦ NO • 

* El* 



. * PROCEDURE 
BEING 
♦.EXECUTED . 



************** 



****K 2* ******** 

* BRANCH TO * 

* EHRTN IN * 

* SJOBCTLA * 

*************** 



.* PROCEDURE 
BEING 
♦.EXECUTED . 



*****D3********«* 
♦GETPUB NP*NOr 
*.*-*.*- *.*-*.*. *pQUND 

* GET ADDRESS *. 

* OF SYSRBS PUB * 



.* FBA ♦. HI 
.AND NO SYSFIL.*. 
*. SUPPORT .* 



*****? 3********** 

• CLEAR * 

• DIB POINTERS * 

• AND CLOSE * 

• SYSRES DIB ♦ 

• * 
***************** 



*****Ci|**« ******* 

* * 

* HOVE JOB NAHE * 
♦INTO PARTITION ♦ 

* COBRRG ♦ 

* * 
***************** 



**DI|********* 



********! 



*****£l**********i 



************** 



*****DS********** 
•CLEAR COUNTERS ♦ 

♦ AND HOVE ♦ 

♦ START TIHE ♦ 
« TO ACCOUNTING ♦ 

♦ TABLE ♦ 
***************** 



NL^ 



-».*-*- 



*****pit*« 

♦GETIHE1 
*-*-*-*-* 

* GET TIRE FOR 
•JOB ACCOUNTING * 

* AND PRINT * 
***************** 



.♦ SYSRDR ♦ 


NO 




* *. 


♦. JIB USED BY 


* 




* 


ACCOUNTING .♦ 


♦. PROCEDURE. ♦ 








•.SUPPORTED.* 


♦. . .♦ 








♦ . .♦ 


♦ . .* 




X 




*. .* 


♦ YES 
* 




***** 
*NC * 
* A2^ 

* * 

* 




♦ YES 




STSERR1 




. 


X 








X 


*****H3********** 




*i 


»***tm********** 


♦JIBSCAN ■?♦ 




* 


HOVE JOB NAHE ♦ 


*.*.*.*.*.*.*•* 


•* 




* 


AND USERS ♦ 


♦ FIND 


* 




♦ACCOUNT INPORH.^ 


♦ QUEUED JIB 


* 




* 


TO ACCOUNTING ♦ 


* 


* 




* 


TABLE ♦ 


***************** 




***************** 


1. 








X 










**** 


X 








* * 


STD .♦. 








• D5 * 


J3 ♦. 








♦ * 


.♦ ♦. 








**** 



• GET ADDRESS • 
..X* OF PARTITION ♦ 

» SAVE AREA ♦ 

* • 
***************** 



t****^********** 

* * 
•HOVE START TIHB^ 

* TO PARTITION • 

* SAVE AREA ♦ 

* * 
***************** 



*****;;<,**** ****** 
•TIHOUT NL* 
*-*-*RSTCOH-*-*-* 

* OUTPUT TIME * 

* AND JOB STMT * 

* ON SYSLOG * 
***************** 



* STANDARD *. 


YES 


ASSIGNHBNT .* 




*.IN EFFECT.* 




*. .* 




*. .* 


X 


• NO 


• *** 




* * 




* A* • 




* * 


. 


• *** 


X 




**K3******* 




* * 




INDICATE * 




JOB OUT OF * 




SEQUENCE * 





*********** 
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Chart NB- $JOBCTLG - JOB Statement Processor (Part 2 of 3) 
Refer to Chart 17.. 



* *I REFERENCES 
I * TO NBA1: 
% I* NA65, NEH5 



**** 

* * 

* 12 * 

* * 
**** 



* * 

* SET ♦ 
* CANCEL SWITCH * 

* OPP * 

* * 
*********** 



SHEET 


.*. 




B1 *. 




* * 


YES .* 




. ..*. 


SIMULATED 


.B * 


EOJ 




*. .♦ 


X 


*. .* 


***** 


* NO 


♦ NC * 


.NOP 


* ai* 




* * 




* 


. 


SIHEND 





*****c %********** 

♦GBTDAT NL* 

*-*-*-*-*-*-*-*-* 
♦GET AND PORMAT * 

* SYSTEM DATE * 

* * 
***************** 



*****D1********** 

* RESET * 

* JOB DATE * 

* IN COHREG * 

* FROM SITSTBH * 

* DATE * 
***************** 



****B 1********** 
RESET * 
DATE BIT * 
IN JCSH4 * 
TO ZERO * 
* 
**************** 



SUPPORTED .♦ 
. .* 

*. .* 

*. .* 



*****Gt ********** 

* RESET * 

* JOB ZONE * 
♦IN CONREG PROH ♦ 

* SYSTEM ZONE ♦ 

* * 
***************** 



****** 2********** 

♦ ZBRO SYSLNK ♦ 

♦ DIB ENTRY ♦ 

♦ IP PORBGROONO ♦ 

♦ PARTITION ♦ 

♦ * 
***************** 



•****B2^***^****« 

♦ * 

♦ CLEAR USER ♦ 

♦ SCRATCH AREA ♦ 

♦ AND UPSI BYTE ♦ 

♦ * 
***************** 



*****C2^*"*"*^« 

* * 

♦ TUBN OPP ♦ 
♦SYSRDR PIB EOJ ♦. 

♦ MASK ♦ 

* * 
***************** 



.* RECORDER ♦ 
.X*. PILE BYPASS 
♦.SNITCH ON.^ 



.* SDR ♦ . 

♦COMMUNICATIONS. 

♦. REGION .♦ 

♦AVAIL. .♦ 



YES 
• •••• 

B 



CRTTST .♦. 

B3 ♦. 

• ♦ ♦. 

.♦ PAUSE At ♦. 

♦. BND OP JOB . 

*♦. .♦* 

♦ . .♦ 



***<*** 

♦ SET ♦ 
RECORDER 

PILE BYPASS 
SNITCH OPP 

* * 
*********** 



BND OP JOB 



**** 

♦ ♦ 

♦ C« ♦.*. 



♦ * SJOBCTLN ♦ ♦ 

♦ ♦ VIA ♦ ♦. 

♦ ♦ •PBTCHRP* ♦ ♦ 

♦ * * * 
***************** 



****«D5********** 



.*♦ PRBBVIS ALL ♦ 



ACCTBR2 
NO 



JOB ♦. 
ACCOUNTING . 
. SUPPORTED. ♦ 



****••*••****•*** 



•***gS********* 

♦ BRANCH TO ♦ 

♦ CONTROL IN ♦ 

♦ 4JOBCTLA ♦ 

*************** 



****f5********* 

♦ svc ia ♦ 

♦ GO TO ♦ 

♦ SJOBCTLA ♦ 

*************** 



*****QH********** 



♦ AT PAUSE BOJ ♦ 

* * 
***************** 



*************** 



*****j 1********** 

♦ * 

♦ HOVE JOB DATE ♦ 

♦ TO ACCOUNTING ♦ 

♦ TABLE » 

♦ * 
***************** 



PBTCHH 

*****j3********** 

♦ SET UP ♦ 

♦ REGS TO POINT ♦ 

♦ TO RECORDER ♦ 

♦ INITIALIZER ♦ 

♦ ROUTINE ♦ 
***************** 



♦ RESET BG ♦ 

♦ LABEL AREA ♦ 

♦ LENGTH ♦ 

♦ * 
***************** 



****K3**»**#*** 

♦ PBTCH ♦ 

♦ SJOBCTLN ♦ 

♦ * 
*************** 
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Chart NC. $JOBCTLG - JOB Statement Processor (Part 3 of 3) 
Refer to Chart 17, 



*IIB * 
* B1* 

* • 



***** 
*BA * 
* G3* 

* * 



**A1******* 
* * 

* SET * 
* SIMULATED BO J 

* SWITCH OFP * 



*****&. 1********** 

* BBSTOBB « 

* JOB STATEMENT * 

* INTO BUFPBB * 

* • 
***************** 



SIS ERR 1 X 

*****42********** 

* * 

* • 

* PRBEVIS ALL * 

* * 

* * 
***************** 



****B2********* 

* BB1BCB TO * 

* SISEBR III * 

* SJOBCTLA * 

*************** 



RESTORE 

JBCSNU PROM 

RSTS««» 



01 *. 

.* *. 
.* MODIPIBD *. NO 
*. IB BOJ .*.... 

*. ROUTINE .* B . 
*. .* 

*. .* X 

* YES ***** 
.MOP *MA * 
♦ A3* 
*' * 
* 
CBJBSQ 

*****£ 1********** 

* * * * 

* * SJOBCTLN * * 

* * VIA * * 

* * •PBTCHRP* * * 

* * * * 

***************** 



* POIHTBBS TO * 

* NEB JOB NAME * 
*IN ACCT. TABLE * 

* * 
***************** 



X 

***** 

♦ HA * 

* A3* 
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Chart ND. $JOBCTLG - /£ Statement Processor (Part 1 of 2) 
Refer to Chart 17- 



**** 
* * 

* 42 * 

* * 
**** ■ 



***** j********* 

* * 

* E0JN8F * 

* * 
*************** 



**B1******* 



COBDB 



BBCOBDBB 

FILE BYPASS 

SH ON 

* -PASSRF * 

*********** 



* INDICATE 

* EOJ IN 

* SISBDB POB 

* 
**************** 



EOJPIB 

*****B2********** 
•CHKASG GP* 

*.*.*.*.*.*.*.*.* 

•CHECK IF SYSRDR* 

* IS ASSIGNED * 

* * 
***************** 



*****C2********** 



***************** 



***** 
*NB * 
* A1* 



***************** 



***************** 



****G1********** 

* 

RELEASE * 

PBOCEDOBB * 

LIBBABX ♦ 

* 

**************** 



PENOR1 X 

*****jt********** 

•PENDENT NSf 

*.*.*.*.*.*.*.*.* 

* INVOKE EOP * 

* PBOCBSSOB * 

* • 
***************** 



• A2 * 

* * 
**** 



266 DO'S/VS XPt and Job Control Logic 



Chart NE. $JOBCTLG - /& Statement Processor (Part 2 of 2) 
Refer to Chart 17.. 



***** 

*ND * 
* C2* 



♦USRLBL NJ* 

*.*.*-*-*-*.*_*-« 

♦BESET TO USRLBL* 
♦MODE AND CLEAR * 
* USBRLABELS * 

***************** 



**g1******* 

* TORN ON * 
UNIT EXCEPTION^ 

* SWITCH III * 
* SYSIPT DrB * 

* * 
*********** 



*****C 1********** 
♦RSTASG RH* 

*.*.*-*-*..*.*„*.• 

* RESET ALL * 
♦ASSIGNMENTS IF ♦ 

♦ JOB NOT CUT * 

***************** 



D1 

.* IS * 
STSIPT 
ASSIGNBD 



**** 

* * 

* 12 * 

* * 
**** 



.* IS *. 

* EOP ♦. NO 
POSTED IN .♦... 

♦ . PIB .* 



*****& 3********** 



***************** 



**** 

* * 

* A2 ♦ 

* * 
**** 



**B2******* 

• * 
SET PIB 
EOJ OFF 

FOB SYSIPT 

* * 

*********** 



NOIPT X 

*****Q2********** 

*CHKASG GT* 

*-•-*-*-*-*-*•.*«.* 
..X* CHECK IF * 

* SYSRDR IS * 

* ASSIGNED * 
***************** 



*****D2********** 

* INDICATE * 

* EOJ ON * 

* SYSRDR IN PIB * 

* * 

* * 
***************** 



NOIPT7 X 

***** B2* ****** 
♦RSTASG 

*-*-*-*-*-*-*-i 
* RESET ALL 



*****f 2********** 
♦RSTDPD NQ* 

*.*.*.*.*.*.*.*.* 

* BESET PAGE * 

* DATASBT PUB * 



*****Q2********** 

* SET OP EOJ * 

* MESSAGE * 

* AND RESET * 

* JOB NAME * 

* TO NONAHE * 
***************** 



*****g2* ********* 

* BESET JOB * 

* NAME IN SAVE * 

* ABBA FOR TBIS * 

* PARTITION * 

* * 
***************** 



*****j2*********' 
* 

* PUT TIBER 

* VALUE IN 

* LOC WRKPLD 
* 
**************** 



*****K2********* 
* 

* GET END 

* TIME FOB 

* DURATION 
* 

****************! 



.* BEAD * 

* FROM THE * 

* DEVICE • 

***************** 



**** 

* * 

* D3 * 

* * 
**** 



*****D3* ********* 
♦GBTIHE1 NL* 

*-*-*-*-*-.*-*-* ~* 

* GET END TIME * 

* FOR EOJ TIME * 

* * 
***************** 



**** 

* * 

* lit * 

* * 
**•* 



.* JOB *. 

.♦ACCOUNTING 

. INTERFACE 

*. SUPPOBT . 



**B(t******* 

♦ SET JOB * 
♦ACCTS INTER- * 

•FACE BB. SH AND* 
* EOJ RECORD * 

* INDICATOR * 
*********** 



*****QH********** 

♦ PUT EOJ TIRE * 

♦ IN ACCOUNT * 

• TABLE AS ♦ 
♦PACKED DECIMAL ♦ 

* * 
***************** 



**** 

* * 

* Ai * 

* * 
**** 



RBSBT 

LINE COUNT 

TO 1 

****•*******•**; 



BS *. 

. • PAUSB ♦. 

AT EOJ 

BBQUBSTBD 



**C5******* 

• * 
SET 

JCSH1 FOR 
SJOBCTLA 

• • 
*********** 



ACCTIGN2 .♦. 


NOPSB X 


Dtt *. 


**D5******* 


.* ♦. 


♦BESET LINK ♦ 


NO .* TOD *. 
...♦. SUPPOBT .♦ 


♦CONTROL BYTE 


♦ IN JCSW2 BITS 
♦ U, 2, 3. « 
♦ AND 7 ♦ 


♦. PBESENT .* 

♦. .♦ 


*. .* 


*********** 



*****gn********** 

♦ SET JOB 80NE» ♦ 

♦ SYSTEM ZONE ♦ 

♦ GET BOJ-TIMR ♦ 

♦ FROM WRKPLD ♦ 

♦ FOB FBI ♦ 
***************** 



*****P3**** 

♦ CALCULATE ♦ 

♦ JOB DUBATION ♦ 

♦ AND SAVE ♦ 

♦ IN WBKFLD ♦ 

♦ * 
***************** 



*****G3********** 

♦GBTIHE2 NL* 

*.*•*.*.*.*.*.*_* 

* CONVERT ♦ 

* TIME TO ♦ 

* HH/HM/SS ♦ 

***************** 



♦ SET MESSAGE ♦ 

♦ CHARACTER ♦ 

♦ LENGTH TO 46 ♦ 

♦ * 
***************** 



VALID ♦ . 
JOB NAME 
.IN BUFFER.* 



•**gtt*********< 

SET 
CRSTCOHER 
LENGTH TO 

28 

*************** 



**E5******* 

* * 
BESET 

LINKLiNK 
JCSH5 

* • 
*********** 



**p<j******* 

* * 

♦ BESET JCSWi 
AND JCSMU TO 

♦ STANDABD 

* * 
*********** 



**G5******* 

* BESET * 
TEMPORARY 

OPTIONS TO 
STANDARDS ' 

* * 
*********** 



BNVHB X 

*****d 5********** 

*IF PUBS WAITING* 

* FOB NBHVOL, ♦ 
•RESET WAIT BIT ♦ 

* AND PUBOWEB- ♦ 

* SHIP ♦ 
***************** 



*****J3********** 

♦ HOVE END AND ♦ 

♦ DUBATION TIME ♦ 

♦ FOB PBINTOUT ♦ 

♦ TO LOGTIN ♦ 

♦ * 
***************** 



*****ji(********** 
•TIBOUr NL^ 

*.*.*.*.*-*.*.*.* 

♦ WBITE EOJ ♦ 

♦ MESSAGE AND ♦ 
♦TIME ON SYSLOG * 

***************** 



..X. 

X 

*♦** 

* * 

* A* * 

* * 
**** 
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Chart NF,. $JOBCTLG - CANCEL Processor 
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****& 1********* 

* * 

* CANCEL * 

* « 
*************** 



**** 

* * 

* 82 * 

* • * 
**** 



B1 

* 

SROC___._ 
OCBSSING 



**C<|******* 

♦ INDICA^" 
♦•P80C CA 

BX 0PB8A---. 
* IN PSNTCH 

* * 
*********** 



IB * 
LLEU • 
TOR' * 



*****Ol ********** 

♦PENDl MS* 
*.*.*.*.*.*.*-*.* 

* INVOKE * 

* BOP PROCESSOR * 

* * 
***************** 



**B1******* 

* SET * 

INCLUDE 

BASK OFF 

JBCSltt 



*****B2********** 
♦HSGOUT GJ* 

*-*-*-*-*-*-*-*-* 

* BBITE * 

* MESSAGE OR * 

* SYSLOG * 

***************** 



C2 ♦. 
.* TO BE 
.♦POT OUT Q 
SXSLST 



*****Q2********** 

♦LSTOUT GJ* 

*-*-*-*-*-*-*-*-* 

* VBITB * 

* NBSSAGE ON * 

* SYSLST * 
***************** 



NOT LI ST 

**E2******* 

♦SET CANCEL * 

♦INPUT INDIC- * 

♦ ATOB SHITCHBS • 

* IN JCSB1 * 

♦ »H3 ♦ 

*********** 



PI *. 


P2 *. 


♦ IS *. 


.* HAS * 


JOB IN *. NO 
PBOGHESS .* 


.♦JOB OUT OF 


♦. SBQUBNCB 



*****G1********** 

♦ CLEAB OUTPUT ♦ 

♦ BUFFER. HOVE * 

♦ JOB NABB INTO ♦ 

♦ CANCBL ♦ 

♦ HESSAGE ♦ 
***************** 



*****H f********** 
♦HOVE HSG. 'JOB ♦ 

♦ NAME CANCELED ♦ 

♦ DUB TO OPTB ♦ 

♦ INTR.» TO ♦ 



*****G2^**^**^ 
♦BSTASG NH^ 

*-*-*-*»*-*-*-*-* 

♦ BBSET ALL ♦ 

♦ ASSIGNMENTS ♦ 

***************** 



****H2********* 

♦ SVC14 ♦ 

♦ RELOAD JCL ♦ 

♦ ♦ 
*************** 



THE CANCBL CODE IS 
SET FOR OPERATOR 
INTERVENTION 
CANCEL 
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Chart NG- $JOBCTLG - OPTION Statement Processor (Part 1 of 5) 
Refer to Chart 16, 



****A1********* 

* « 

* OPTION * 
*************** 

**** 

* B1 *.X 

* * 
**** 

OPtlON X 

*****B1 ******** 

•SCANR2 G 



***************** 



* Bi * 

* * 
**** 



.X. 



DID ' 
EQUAL 

EHD 
SCAN 



.* IS * 

OPEBAND 
•SYSPARH»» 



**** 

* * 

* D1 *.X 

* * 



*****Q1 ********** 

* BESET TO » 

* ZEBO THE * 

* fBCTOR ENTRY *X 

* DISPLACEMENT * 

* -P0INT2- * 
***************** 



.* DOES *. 
* OPEBAND 

STABT IITH 
*. •NO* 



*****p-| ********** 

* * 

* ADJ REGS FOR * 

* -NO- OPTION. * 

* *J2 * 

* * 
***************** 



.* IS *. 






.* OPEBAND * 




DO 


*. 1 TO 8 


* 


. . ..X. 


*. CHAB IN .* 




♦LENGTH.* 






*. .* 




X 


* IBS 




***** 
*G« * 
* C2* 
* * 
* 
UVSERR 


*****H1 ********** 




* STOBE OPERAND 


* 




* IN OPTION 


* 




* TABLE AS 


* 




» DELIHITER. 


* 





BTLOOP X 

*****B3********** 

* LOAD ADDBSSS * 

* OP NEXT * 

* OPEBAND ENTRY * 

* INTO POINT1 * 

* * 
***************** 



C3 ♦. 

.* DOBS *. 
* TABLE *. NO 
ENTRY EQUAL .*... 
*. OPBRAND .* 
*. *B1 .* 
*. .* 
* YES 



***** 3********** 
« LOAD ADDR OP * 

* CORRECT * 

* ROUTINE INTO * 

* LINKRG3 * 

* * 
***************** 



***** g3*** ******* 

* EXIT TO * 

* COBBECT * 

* PBOCESSOR * 

* SEE TABLE A * 

* *CH * 
***************** 



P3 *. 

.* DID *. 

NO .* A BLANK *. 

...♦.END THE LAST .* 

*. SCAN .♦ 

*. *CH . * 



♦ YES 



****G3********* 

* BBANCH TO * 

* CONTROL IN * 

* fJOBCTLA * 
*************** 



*****j i********: 

* INIT REG, 

* POINT1, AS 

* POINTER TO 

* OPTION TABLE 

* LESS 12 BYTES 

**************** 



POINT2 EQ 2 
POINT1 EQ ADDR 
OP XX OB XXX 
CHAR COUNT IN 
POINT3 IS REDUCED 
BY 2. 



BECAUSE THE OPERAND HAS 
BEEN STORED IN THE TABLE 
US A DELIMITER. IT IS 
NOT POSSIBLE TO SEARCH 
THE ENTIRE TABLE HITHOUT 
FINDING AN EQUAL. 



*C4 
BACH PROCESSOR RETURNS CONTROL 
TO BLOCK F3 UNLESS AN INVALID 
OPERAND IS SPBCIFIED. CONTROL 
IS TRANSFERRED TO HVOPTN AT 
BLOCK C2 IF AN INVALID OPEBAND 
IS SPECIFIED. 



TABLE 


A 




OPERAND 


CHART 


FLOWCHART LABEL 


DECK 


NH 


DECK 


NODECK 


NH 


NODECK 


LIST 


NH 


LIST 


NOLIST 


NH 


NOLIST 


LISTX 


NH 


LISTX 


NLISTX 


NH 


NLISTX 


SYH 


NH 


SYH 


NOSYH 


NH 


NOSYH 


XRBF 


NH 


XRKF 


NOXRBF 


NH 


NOXREF 


EBRS 


NH 


ERRS 


NOEBRS 


NH 


NOBRRS 


48C 


NH 


C48 


60C 


NH 


C60 


LOG 


NK 


OPTLOG 


NOLOG 


NH 


OPT N LOG 


USRLABEL. 


NJ 


USRLBL 


STDLABEL 


NJ 


STDLBL 


DUMP 


NK 


DUMP 


NODUHP 


NK 


NODUHP 


LINK 


NJ 


LINK 


NOLINK 


NK 


NOLINK 


CATAL 


NJ 


CATAL 


PARSTD 


NJ 


PARSTD 


SYSPARH= 


NK 


SYSPRH 


ALIGN 


NH 


ALIGN 


NOALIGN 


NH 


NOALIGN 


BDECK 


NH 


BDECK 


NOEDECK 


NH 


NOEDECK 


SUBLIB= 


NK 


SUBLIB 


BLD 


NK 


BLD 


NORLD 


NH 


NORLD 


SXBEF 


NI 


SXSEF 


SIZE 


PS 


SIXE 


TERN 


NI 


TERH 


NOTERH 


NI 


NOTERH 


ONLINE 


NI 


OPTONL 


MOONLINE 


NI 


OPTNOONL 
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$JOBCTLG - OPTION Statement Processor (Part 2 of 5) 
Refer to Chart 16- 



****& -i********* 

* * 

* DECK * 

* * 
*************** 



**B1******* 

* SET * 

DECK 

SWITCH 

TO ON 



****** 



***** 2********* 

* * 

* NODECK * 

* * 
*************** 



**B2******* 

* SET * 
DECK 

SWITCH 
TO OPP 

* . * 
*********** 



***** 3********* 

* * 

* LIST * 

* * 
*************** 



**B3******* 

* SET * 
LIST 

SWITCH 
TO ON 

* * 
*********** 



****&(»**•****** 

* * 

* NOLIST * 

* * 
*************** 



**Bi|******* 

* SET * 
LIST 

SNITCH 
TO OPP 

* * 
*********** 



****45********* 

* * 

* LISTX * 

* * 
*************** 



**B5******* 

* SET * 
LISTX 

SNITCH 
TO ON 

* * 
*********** 



****C1 ********* 

* * 

* MLISTX * 

* * 
*************** 



* SET * 
* LISTX SNITCH * 

* OPP * 

* * 

*********** 



****C2********* 

* * 

* SlfH * 

* * 
*************** 



**D2******* 



*********** 



****C3********* 

* * 

* NOSYH * 

* * 
*************** 



*********** 



•***g4********* 

* * 

* XBBP * 

* * 
*************** 



*********** 



**£()******* 

* SET * 
SXBEP 

SNITCH 
OPP 

* * 
*********** 



****C5********* 

* ■- * 

* NOXHBP * 

* * 
*************** 



YH X 


XBEP X 


NOXHBP X 


**D3******* 


**D4******* 


**D5******* 


• * 


* * 


* SET 


* SET * 


* SET * 


* XHEF 


* SIH SNITCH * 


* XBEP SNITCH * 


* SNITCH 


* OPP * 


* ON * 


* OPP 



*********** 



**B5******* 

* SET * 
SXBEP 

SNITCH 
OPP 

* * 
*********** 



****F1********* 

* * 

* BRBS * 

* * 

*************** 



**G1******* 



*********** 



****F2********* 
* 
NOEBBS * 

* 
*************** 



**Q2******* 

* * 
SET 

BBRS SNITCH 
OPP 

* * 
*********** 



****P3********* 

* * 

* c«8- * 

* * 
*************** 



**G3******* 

* * 
* SET * 

* INDICATOB FOB * 
♦48 CHABACTEB * 

* SET • 
*********** 



****FH********* 

* * 

* C60 * 

* * 
*************** 



*SET INDICATOB* 

» POB 60 * 

♦CHABACTEB SET* 

* * 

*********** 



****F5** ******* 

* * 

* OPTNLG * 

* * 
*************** 



**G5******* 

* * 

SET PBOGHAHHEfi* 

* LOG INDICATOB * 

* OPP * 



****H1********* 

* * 

* BLD * 

* • 
*************** 



**j1******* 



*********** 



****H2********* 

* * 

* ALIGN ♦ 

* * 
*************** 



**j2******* 



*********** 



****B3********* 

* * 

* NOALIGN * 

* * 
*************** 



* SET 

* ALIGN SNITCH 

* OPP 

* * 

*********** 



****B 14********* 

* * 

* BDECK * 

* * 
*************** 



**JH******* 



********* 



****H5********* 

* * 

* NOEDBCK * 

* * 

*************** 



* SET 
EDECK SWITCH 

* OPP 

* * 

*********** 



****K 1********* 

* * 

* NORLD * 

* * 
*************** 



*********** 



****KS********* 

* BBTUBN TO * 

* CALLBB * 

* * 
*************** 



270 DOS/VS IPL and Job Control Logic 



Chart NI- $JOBCTLG - OPTION Statement Processor (Part 3 of 5) 
Refer to Chart 16- 



****A1 ********* 

* • 

* SX8EF * 

* • 
*************** 



**B1******* 

* SEX * 

SXBEP 

SWITCH 



****A3********* 
* 
OPTOKL * 



**B3******« 

SET OHL 
SHITCH 



****AI4********* 

* * 

* OPTNOONL * 

* * 
*************** 



*********** 



**Ci******* 

* SET * 
XBEF 

SHITCH 
OPP 

* * 
*********** 



*********** 



*********** 



****01 ********* 

* BETUBH * 

* TO CALLBB * 



****£!********* 

» * 

* TEBH * 



**n******* 



*********** 



****B2*******»* 

* * 

* MOTBBH ♦ 

* * 
*************** 



**F2******« 

* * 
SET 

TEBH SHITCH 
OFF 

* * 
*********** 



****G2********* 

* BBTUBN * 

* TO CALLEB » 

* * 
*************** 
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$JOBCTLG - OPTION Statement Processor (Part 4 of 5) 
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****& i********* 

* CATAL * 

* * 
*************** 



****A2********* 

* * 

* LINK * 

* • 
*************** 



****jU********* 

* * 
» STDLBL * 

* * 
*** ************ 



*****£ 1********** 

♦NVORRR IQ* 

*-*-*-.*-*-*-*-*-.* 
♦CHECK YALIOXTI * 

* -TALID FOR BG * 

* ONLI- *J1 * 

***************** 



X 






.♦. 






B2 *. 






.♦ ♦. 






• PCIL 


* 


. IBS 


SUPERVISOR 




.♦... 



*****C2********** 
♦H?OBRR *Q* 
*_*_*-.*_*-.*-.*-.*-* 
♦CHBCK VALIDITY * 

* -fALID FOR B6 * 

* ONLY- ♦Jl ♦ 
***************** 



***** 

*GM * 

* C2* 

* * 



****44|********* 

* * 

* PAHSTD * 

* * 
*************** 



**B4******* 



*********** 



****A5********* 

* * 

* USRLisL * 



**fl*,******* 



*********** 



«*C3******* 



*********** 



PCILSOP 

*****01********** 

♦CHKLMK iH* 

*_*-*-*_*-.*-.*-*—* 

* CHBCK SYSLHK * 
♦ASSIGNHBNT AID ♦ 

* TYPE *J1 * 
***************** 



.♦ CATAL *. IBS 
OPTION ...... 

♦.SPECIFIED.* 



CLRLBL 

**** «D3********** 

♦ SET OP FOR ♦ 

♦ 'CLEAR GROUP * 

♦ OP LABELS 8 ♦ 

♦ WITH LABEL ♦ 

♦ H1C80 ♦ 
**** ************* 



***************** 



**p|******* 

♦ SET THE ♦ 
EXEC SWITCH ♦ 
TO OFF AND ♦ 
LIHK SW. OH ♦ 

* * 
*********** 



**Gi******* 

* * 

♦ SBT 
CATAL SWITCH 

♦ OH 

* * 
*********** 



*_ *_*-*_*_*-*-*-* 

♦ CHECK SYSLRK ♦ 

♦ ASSIGMHEHT ♦ 

♦ ♦Jl ♦ 

***************** 



*****P2********** 
♦OPHLNK HL^ 
*-*-*-•-*-*_*_*-* 

♦ OPBB ♦ 

♦ STSLRK ♦ 

♦ * 
***************** 



** G 2******* 
* SBT EXEC ♦ 
* SWITCH OFF 
LINK SWITCH 



*********** 



**** ************* 



*****? 3********** 

♦ * 

♦ CLEAR LABEL ♦ 

♦ AREA WITH ♦ 

♦ LABEL-BACRO ♦ 

♦ • 
**** ************* 



****H2***** 1 **** 

* RKTUHW ♦ 

* TO CALLER ♦ 

* * 
*************** 



**** ************* 



*** «u3********* 

♦ RETURN ♦ 

♦ £0 CALLER ♦ 

♦ ♦ 
*** ************ 



*J1 

IP &NT ERROR IS 
FOUND, METORH 
IS NOT TO THIS 
ROUTINE 
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Chart NK- $JOBCTLG - OPTION Statement Processor (Part 5 of 5) 
Refer to Chart 16* 



**** 
* * 

♦ A2 • 



***« 

* * 

: aj : 

**** 



* SYSPRH ♦ 

*************** 



**61*»**»*»**< 
LOAD A DOR 
OF COHH 



**************** 



.* IS *. 

.*CHAR STRING*. YBS 
FIELD .«..,. 
•.EXHAUSTED.* 



A3 *. 
.* IS *. 

* CHAR *. 
STRING 6T 8 .* 



»***A»j*#******* 
* SOBLIB * 



* ru • 

* • 



.* IS *. YBS 
CHAR .*.... 
*. A QUOTE .♦ 






UOR * 

-*****« 



****D 1*********' 

GET ADDR 

Of 

SYSPARH 



*****£ 1 ********** 

•PICK DP POINTER* 

* TO OPERAND * 

• AND SAVE AREA * 

• FOB CHARACTER * 

* STRING * 
***************** 



* A3 * 

* * 



•****B3********** 

* HOVE CHAR * 

* TO SAVE AREA * 

* AND SAVE AREA * 

* POINTER * 

a**************** 



* A2 * 

*♦** 



•PICK UP POINTER* 



***************** 



.* INPUT 



NO 


• 


CHARACTER 
. QUOTE 


. ..*« 


* 






*. '.* 


X 




*. .• 


**•* 




* YES 


fH * 




* 


* 




X 


**** 




•♦** 

« * 

* A2 * 

* * 
♦ *** 



•***B2********* 

* NOLINK * 

» * 

•***•*******•«• 



* * 

*********** 



•«G2******* 



.* 
*XBS 



•****F3********** 

***************** 



* * 
•••• 



****H 1********* 

* * 

* PARTDUNP * 

* * 

*************** 



•SET PARTDUNP 
* INDICATOR 
* -ON- 

* • 

*********** 



****H2********* 

• * 

• NODUNP * 

• • 
*************** 



SET DUMP 
INDICATOR 

-oFf- 

* * 

*********** 

X 



****H3********* 

* * 

* . DUNP ♦ 

**** *********** 



**«)3******* 

* • 
SET DUMP 
INDICATOR 

-ON- 

* * 
**,******«** 

X 



»*D4***»**# 

♦ SET OFF * 
ALTSUBSL *X 

* FLAG IN * 
* COHRBG * 

*********** 

* '*♦** 

* * 
..XJG5* 

**** 



.* A BLANK *. 
X*. OR COBRA 
*.BNP SCAN .* 

**• .** 

* NO 

•#*• ■ , 

* * • 

* F» *.X. 

* * . ■ 

• *** 



«***FH********* 



*************** 



•***GH********* ' 
* OPTLPG ♦ 

■ *************** 



•*HH******* 

•SET PROGRAM- * 

* HER LOGICAL * 

* INDICATOR * 

♦ -ON- * 

*********** 



*****J4********** 
*LSTOUf GJ* 

*_*- *.*.*,.*,.*,*.* 

* WRITE OUTPUT * 



,* SUBLItf *, NO 
*. » DF .*..J 



**** 

* * 

* FU* 

* * 

*f«* 



•*F5****»** 

* * 
SET ON 

ALTSUBSL 
FLAG IN 

* COttBfcG • 
««*****»**« 



**** 

* * 

* G* *,X 

* ■ r ■ 

**** 



****as********* 

* RETURN * 

* TO CALLER * 

* • 
***». *********** 



• ****! 



I8BI. 



•»**•* 



* CON PUT K * 

* POINTER FOR * 

* NEXT ENTRY * 

* * 
***************** 



*****j $«*******•* 

* HOVE LENGTH * 

* AND PARAHETBR ♦ 

* TO SYSPARM * 

* FIELD * 

* * 
***^«******«*«*»* 



*************** 
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Chart NL* $JOBCTLG * Time Stamping Subroutines 
Refer to Chart 17,. 



**** 

* * 

* * 
**** 



****£-) ********* 

* * 

* GBTIMB1 * 

*************** 



* GBTIHE MACRO * 

* GET TIME * 

* IN SECONDS * 

* * 
***************** 



GBTINB2 

*****£ 1********** 

* DISREGARD * 

* FRACTIONS * 

* OP SECONDS * 

* AND CONVERT * 

* TO MINUTES * 
***************** 



*****0 i********** 

* SAVE THE * 

* SECONDS IN R1 * 

* AN(> CONVERT * 

* TO HOURS * 

* * 
***************** 



*****£ 1********** 

* CONVERT * 

* THE HOURS, * 

* MINUTES. AND * 

* SECONDS TO * 

* DECIMAL * 
***************** 



*****pi********** 



"■ j. no nuvn^i T 

* HINUTBS.^AND * 
•SECONDS TO BCD * 



*************'*.*** 



*****G1********** 



***************** 



****.H1 ********* 

* RETURN TO * 

* CALLING SEQ * 

* ■ " * 
*************** 



****A2********* 

* * 

* GETOAT * 

* ■ * 
*************** 



GETDAT 

*****B2********** 

* MOVE * 

* SYSTEM DATE * 

* FROM COHREG * 

* TO MRKFLD * 

* * 
***************** 



*****C2********* 
* 

* FORMAT 

* TO 

: >•/••/•.•: 

**************** 



****D2********* 

* RETURN TO * 

* CALLING SEQ * 

*************** 



****I3********* 

* * 

* TIMOUT * 

* * 
*************** 



.* 
• .* 
* YES 



*****C3********** 



***************** 



*****03********* 
♦GETDAT . . NL 



GET 

* FORMATTED 

* DATE 

**************** 



*****S3********** 

•GETIHE1 NL* 

*-*.*•*.*.*_*.*.* 

* GST * 

* FORMATTED * 

* TIME * 
***************** 



*****P3********** 

* * 

* MOVB DATE * 

* AMD TIME * 

* INTO BUFFER * 

* * 
***************** 



**Q3******* 

TURN ON * 
TIME STAMP 
YSLOG SN 

jBCSH« 
BIT 3 * 
*********** 



ON 



*****(]3********** 

* * 

* SET CCH CHAIN * 

* TO SPACE OVER * 

* PARTITION ID * 

* * 
***************** 



*****j 3********** 

* SET CCW CHAIN * 

* TO SUPPRESS * 

* SPACING OVER * 

* PARTITION ID * 

* * . 
***************** 



TIMOUT 1 

*****K3********** 

•MSGOUT GJ* 
*-*-*-*-*-*-*-*-* 

* HRITE JOB/EOJ * 

* MESSAGE AND * 

* TIME/DURATION * 
***************** 



.* TIME * 
NO .* STAMP ON 
..*. SYSL03 SW 



**Bil******* 

* TURN OFF * 

* TIME STAMP * 
* SWITCH JBCSH4 

* BIT J * 

* * 
*********** 



*****£()********** 

* SUBTRACT 1 * 

* FROM MESSAGE * 

* LENGTH AMD * 

* STORE IN MOVE * 
*TO BUFFER INST * 
***************** 



*****Dit********** 



***************** 



.* LOG ON *. NO 
*.SYSLST JBCSH3.*... 
*. BIT 3 .* 



*****pt}********** 

♦LSTOUr GJ* 

*-*.*.*.*.*.*.*.* . 

•NRITE STATEMENT* 

* ON SYSLST * 

* * 
***************** 



*A5********* 

* 
OPNLNK * 

* 
************ 



**as******* 

* SET * 
SYSLNK FILE * 

AS CLOSED * 
INDICATOR * 

* . . * 
*********** 



*****££***** ***** 

* * 

* LOAD ADDRESS * 

* OF DIB TABLE * 

* INTO HRKRG1 * 

* * 

***************** ■ 



*****05********** 

* * 

* ZERO * 
•SYSLNK ADDRESS * 

* ENTRY * 

* * 
***************** 



****B5********* 

* RETURN TO * 

* CALLING SEQ * 

* * 
*************** 



****6 i» ********* 



*************** 



****({ m********* 

* RETURN TO * 

* CALLING SE« * 

*************** 



274 DOS/VS IPL and Job Control Logic 



Chart NM. SJOBCTLG - Subroutines 
Refer to Chart 17, 



****j^********« 

* * 

♦ SCNINT » 
*************** 



SCHINT X 

*****g1 ********** 

* GET NICL * 

* ENTRY FOR * 
♦THIS PARTITION * 

* AND CLASS * 
♦INTO POINT3 »J2* 
***************** 



CHKLNK * 

* 
************ 



CNKLNK X 

*****#2******** 

♦ LOAD SYSLNK 

♦ LUB ENTRY 

* DISPLACEMENT 

* INTO WRKRG3 



****L3********* 

* * 

* BSPASG * 

* * 
*************** 



*****[> 1 ********** 

* * 

* LOAD NUMBER * 
♦OF SYSTEM LUBS ♦ 

* INTO POINT3 ♦ 

* * 
***************** 



********** 



♦ CHECK ♦ 

♦ FOR ♦ 

♦ ASSIGNMENT ♦ 

***************** 



U2 ♦. 
.♦ ♦. 
♦ NO 
ASSIGNMENT 



****4(l ********* 

* * 

* RSTASG ♦ 

* * 
*************** 



RSTASG 

*****B4 ********** 

♦ LOAD ADDRESS ♦ 

♦ OF INTO ♦ 

♦ B3 FOR SYSTEM ♦ 

♦ CLASS ♦ 

♦ INDICATOR ♦ 
***************** 



♦ INITIALIZE ♦ 

♦ FOB TABLE ♦ 

♦ SCAN ♦ 

***************** 



SBTLAST 

*****g1******* 

♦ SAVE NICL 

♦ ENTRY FROM 

♦ POINT* IN 

♦ SHICL FOR 

♦ LUBSCN 
**************** 



*****Ff ********** 

♦ ♦ 

♦ LOAD ♦ 

♦ FICL ADDRESS ♦ 

♦ INTO POINT3 * 

♦ * 
***************** 



*****G 1********** 

♦ * 

♦ GET FICL ♦ 

♦ ENTRY FOR ♦ 

♦ THIS CLASS ♦ 

♦ * 
***************** 



*****H1 ********** 

♦ DOUBLE FICL ♦ 

♦ ENTRY AND ADD ♦ 

♦ TO LUBADD TO ♦ 
♦POINT TO ADDR. ♦ 

♦ OF FIRST LUB ♦ 
***************** 



***j1********** 

STORE LUB ♦ 

ADDRESS IN ♦ 

SCLBAD FOR ♦ 

LUBSCN ♦ 

* 

*************** 



************ 



♦ RESET TO 

♦ STANDARD 

♦ ASSIGNMENTS 

*************** 



*****& 5********** 

♦SCMIMT NH^ 

*_*_*_*_*_*_*_*_* 

♦ INITIALISE ♦ 

♦ FOR TABLE ♦ 

♦ SCAN ♦ 



RESET 

PUB 
FLAG 



♦ 1 INTO R3 FOR ' 

♦ PROGRAM CLASS ' 

♦ INDICATOR 

****************, 



*****U5********** 

•SCNINT HH^ 

*.*-*-*_*.*.*.*.* 

♦ INITIALIZE ♦ 

♦ FOR TABLE ♦ 

♦ SCAN ♦ 

***************** 



!***£2********* 

GET 
DEVICE 
TYPE 

*************** 



LNAERR 

***** E3 ********** 

♦ POINT TO ♦ 
♦MESSAGE MCIOA'^ 
♦•PLEASE ASSIGN ♦ 
♦(SYSiDR. SYSIPT^ 

♦ OR SYSLNR) • ♦ 
***************** 



****P3********* 

♦ BRANCH TO 

♦ OERRTN IN 

♦ SJOBCTLA 

*************** 



****Q2* ******** 

♦ RETURN TO ♦ 

♦ CALLING ♦ 



NOTBRR 

*****q 3 ********** 

♦ POINT TO ♦ 
♦DESIRED MESSAGE^ 

..X^ 1A20D ♦ 
♦'INVALID DEVICE^ 

* TYPE* ♦ 
***************** 



♦J 2 
FORMAT FOR LOCS 
NICLS AND FICLS 
WHERE— 

SS - SYSTEM CLASS 
PP = PROGHAM CLASS 



****H3********* 

♦ BRANCH TO ♦ 

♦ ERRRTN IN ♦ 

♦ SJOBCTLA ♦ 
*************** 



bg fn pn-1 etc. f1 
niclsIss*pp!ss*ppIss*pp!ss*pp*.ss*ppI 
ficlsIss ppIss ppIss ppIss pp'ss pp! 



1. WHEN THIS ROUTINE IS ENTERED, 
POINT 1 EQUALS 1 FOR PROG CLASS 
AND FOR SYSTEM CLASS. 

2. CALCULATE A DISPLACEMENT BY 
DIVIDING PIK BY B. 

3. ADD THIS DISPLACEMENT TO LOCS 
NICLS-2 TO GET PROPER ENTRY. 



RSPASG X 

*****EH********** 

♦ LOAD ADDRESS ♦ 

♦ OP 1 INTO R3 ♦ 

♦ FOR PROGRAM ♦ 

♦ CLASS ♦ 

♦ INDICATOR ♦ 
***************** 



♦ INITIALIZE ♦ 

♦ FOR TABLE ♦ 

♦ SCAN ♦ 

***************** 



*****QH********** 

♦UASCAN NN^ 

*.*.*.*_*_*.*_*.* 

♦ RESET TO ♦ 

♦ STANDARD ♦ 

♦ ASSIGNMENTS ♦ 
***************** 



*****{]4********* 

♦ LOAD ADDRESS 

♦ OF INTO R3 

♦ FOR SYSTEM 

♦ CLASS 

♦ INDICATOR 
**************** 



*****P5*«* ******* 
♦LOGCHK GL^ 

*-*-*-*-*-*-*-*-* 

♦ RESET LOG/LST ♦ 

♦ ASSGN ♦ 

♦ SWITCHES ♦ 

***************** 



*****y5*******i 

♦ CLOSE 

♦ SYSRDR DFB 

♦ SYSIPT DFB 

♦ SYSLNK DFB 

♦ SYSLST DFB 



*************** 



**** 

* * 

♦ A5 ♦ 



OTSERR X 

*****K it ********** 

♦ POINT TO ♦ 
♦DESIRED MESSAGE^ 

....♦ 1S10D ♦ 
♦•STATEMENT OUT ♦ 

♦ OF SEQU ♦ 
***************** 
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Chart NN. $JOBCTLG - Reset to Standard Assignment 
Refer to Chart 17- 



**** 

* , * 

* A2 ♦ 



**** 

* * 

* Ab ♦ 

* * 
' **** 



****& 1********* 

* * 

* UASCAN * 

* * 

*************** 

**** 

* * 

* B1 *.X 

* * 
**** 

UASCAN X 

*****B1 ********** 
♦GETLUB Hi»* 
*.*.*_*.*_*.*.*_* 

* GET NEXT * 
♦LUBTABLB ENTRY * 

* * 

***************** 



* AMY *. 

HOBS *. NO 
ENTRIES .*.. 



ARNO X 

*****A2********** 
*GETPUB NP*NOT 
*-*-*-*-*-*-*-*-*ASSG 

* GET ADDRESS ♦ . 

* OF FOB ENTRY * 



B2 ♦ . 

.* SUPVR *. 

* WITH FILE 

PROTECTION 



* IS IT A ♦ . NO 

PERMANENTLY .*... 
♦.ASSIGNED .* 
♦.DISK .♦ 



***************** 



***************** 



DQNOT 

*****B2********** 
♦JIBSCN HP^ 

*-*-*.*-*.*.*.*.* 

♦ SET POINT2 TO ♦ 
♦JIB ADDR S HOVE^ 

♦ JIB TO SCNLUB ♦ 

***************** 



ONASGN X 

*****£<t ********** 

♦GBTPOB HP*NOT 

*.*.*-*.*.*.*.*.*ASSG 
♦GET ADDR OP PUB^. 
AND PUBOHNER ♦ 



t****B3********** 

* 
* 
♦ X. 



RESET 
IJBOCDBV 

in siscon 



**************** 



*-*-*-*-*-.*-*-* 

.X'RBSBT BUFPBH OF^ 

♦PERU. ASSIGNED ♦ 



♦HOVE TEMPORARY ♦ 

♦ ASSIGNHRMT ♦ 

♦ TO SCNLUB ♦ 

♦ ■ * 
***************** 



IS 

DBVICE 

TAPE 



*****B5********«* 

* * 

* BESET TO ♦ 

* STANDARD BODE ♦ 

* pub BYTE t> ♦ 

* * 
***************** 



**** 
UANXJB X 
*****C5****« 
* SAVE 



***************** 



•****l>5********** 

♦JIBSCN NP^ 

*.*_*.*.*.*-*.•_« 

* GET JIB * 

* ENTRY ♦ 

* • 
***************** 



*****f i********** 

♦RSTBOF NQ* 

*.*.*.*.*-*.*.*_* 

♦RESET BUFFER OF^ 
♦CURRENTLY ASSIGN 
APRT. I ♦ 

— -*-—***** 



F2 



». 



*********** 



ANY JIBS 

"*. .♦* 

♦ . .♦ 
* YES 



*****£(«•********* 

♦GETPUB HP*NOT 

*-*-*-*-*-*-*-*- *ASSG 

♦ CHECK IF UNIT ♦. 

♦ IS TEMPORARY ♦ 

♦ ASSIGNED ♦ 
***************** 

.ASSIGNED 



•****»U********** 

♦ TURN OFF ♦ 

♦ PUBOfNBR ♦ 

♦ BIT FOR THIS ♦ 

♦ PARTITION ♦ 

♦ * 
***************** 



♦ B1 ♦ 

* * 
***• 

STDASSGN 



NO 



.♦ STD ♦. 
.♦ASSIGNMENT ♦. YES 
.X^.OR PROCEDURE ...... 

♦. ENTRY .♦ 



*****H2********** 

* * 

* SAVE CURRENT * 

* JIB POINTER ♦ 

* IN SAVE AREA ♦ 

* * 
***************** 







J1 ♦. 


*****J2* 


I******** 






♦ ♦. 


* * 


"yes 


* 


*. 


♦ NULL JIB ♦ 


X...* 


UNIT = SYSCAT.^ 


♦ POINTER ♦ 




* 


.* 


♦ IN LUB ♦ 






♦. .♦ 


* * 


X 




♦. .♦ 


***************** 


**** 




* NO 




* 






**** 




A2 ♦ 






* * 




* 




X 


♦ K2 ♦.X 




**** 




**** 

* * 

* B1 * 


* * 

**** 








* * 


X 






**** 


m***&2********* 
♦ RETURN ♦ 








♦ TO C 


ILLBR ♦ 



*****H3********** 

* * 
♦SAVE TEMPORARY ♦ 

♦ ASSIGNMENT ♦ 

♦ IN SCNLBSAV ♦ 

* * 
***************** 



*****j3********** 



***************** 



**** 

* * 

♦ AU ♦ 



•**• 






♦NO 


* 








B1 ♦ 






*x. .. . 


* 




***• 






X 


ARND1 






*. 






jh' 


*. 






.* 


*. 


NO . 


* 


DOES LUB 


.. .♦. 




HAVE PUB 




* 


. POINTER . 






*. 


.* 


X 




* 


.* 


**** 






♦ YES 


t * 








C5 ♦ 








» * 








**** 






X 

♦. ■ 






K4 


*. 






.* 


*. 




* 


HPCH/HFCU 
SPECIFIED 


** 





ANY 

MORE 

ENTRIES 



*****P5********** 

* * 

* GET ADDR OF * 

* FAVP FROM * 

* COM REG. * 

* * 
***************** 



*****G5*********i 
* 

* HOVE FAVP 

* ENTRY TO 

* JIB 
* 
****************< 



♦ ENTRY AND ♦ 

♦ CLEAR FIRST ♦ 

♦ THREE BYTES ♦ 

♦ OF JIB ♦ 

***************** 



.♦ WAS ♦. 

.♦ JIB ENTRY ♦. 

FOB 

♦.ALTERNATE.* 



*****£<)********** 



. X* 



*************** 



RESET TO * 
STANDARD *. 

* HOPPER ♦ 

♦ (PUB. BYTE 5) ♦ 
***************** 



* A* ♦ 

* * 

•*** 
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Chart NP,, $JOBCTLG - Subroutines 
Refer to Chart 17- 



•***A1 ********* 

* * 

* GBTLOB » 

* • 
*************** 



*****B1*******i 
* 

* GET ADDR 

* OP PUB TBL 

* ENTRY INTO 

* POINT 1 
************** 



*****C 1********** 

* COMPUTE THE * 

* ADDRESS OP * 

* NEXT BMTRY * 

* AND SAVE POB * 

* NEXT SCAN * 
***************** 



•****D1**< 

• LOAD THE * 

• LUB COUNT * 

• FBOH SCNICL * 

• IITO NRKRG1 * 

• • * 
***************** 



.* ALL *. YES 
•.SELBCTBD LOBS.*... 
*. DONE .* 



*****pt ********** 

* INCREMENT * 

* LUB COUNT * 

* AND SAVB IN * 

* SCNICL POR * 

* NBXT SCAN * 
***************** 



* SET SCNLUB * 

* TO THIS LUB * 

* ENTRY * 

* * 
***************** 



****H1********* 

* RETURN TO * 

* CALLING SBQ. * 

* * 
*************** 



*J1 

END OP CHAIN 

DECK 

IF NO JIBS ARE 

CHAINED, RETURN TO 

CALLING SBQ 



****A2********* 

* * 

* GETPUB * 

* • 
*************** 



B2 *. 
.* *. 

.* IS *. Ml 
*PUB PTR PRESENT*. 



****j^( t ********* 

* • 

* RASCAN * 



****B3********* 

* RETURN TO * 
.X* CALLBB+0 * 

* * 
*************** 



RASCAN 

*****g.lt********** 

•GBILUB NP* 



***************** 



*****C2********** 

* COMPUTE THB * 

* ADDRESS OP * 

* THB PUB AND * 

* STORE IN * 

* POINT3 * 
***************** 



*****D2********** 

* COHPUTB * 

* ADDRESS OP * 
*PUB ONNBR ENTRY* 

* AND STOBB IN * 

* POINT* * 
***************** 



****g2********* 

* BETUBN TO • 

* CALLEB*<» * 

* * 
*************** 



****D3********* 

* * 

* JIBSCN * 
« • 

*************** 



B3 ♦. 

.* *. 

IBS .* JBSLUB *. 

...*JIB POINTER IID* 

-ICATES X«PF« 

*. *J1 .* 

*. .* 



* NO 



****P3*********: 

CALCULATE 

ADDRESS 

OF NEXT 

JIB *J« 

*************** 



*****Q3********** 

* STORE NEH * 

* PUB AND JIB * 

* POINTERS * 



RANXJB X 

*****05**«******* 

•JIBSCN NP* 

*-*-*_*.«-*-*.*-• 

* GET * 

* JIB * 

* ENTBX * 

•***********•*••« 



*****04********a 

* LOAD ADDR. 

* OP 

* SXSLOG LUB 

* IB 

* A HORK RBG 
*****•*********< 



.* IS *. 
.* CURRENT *. 
*. PUB POR 
*. SXSLOG .* 



.* IS *. NO 

•JIB ALT. STD OR*... 
*. PBOC .* 



BASSGN 

*****g5********** 

•GETPUB NP* 



*-*-*- 



-*.*-*-« 



* PUB ADDRESS *NO 

• *PUB 
*****************PH[) 

.PUB 
.POUND 



* B« * 

• * 
**** 



* DEVICE 

SPOOLED til 
*.POMER/VS . 



*«H5*«***«* 



****j3********* 

* RETURN TO * 

* CALLING SBQ * 

* * 
*************** 



PROH LUB. MULTIPLIED 
BY •». PLUS THE 
STARTING ADDRESS OP 
THE JIB TABLE. JIBADD. 
ROTE - THB LUB USED IN 
THE PRECBEDING 
CALCULATION IS 
IN LOCATION 
SCNLUB. 
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Chart NQ- $JOBCTLG - Subroutines 
Refer to Chart 17. 



**** 

* * 

* A2 * 

* * 
**** 



****A1 ********* 

* - * 

* RSTBUF * 

* * 
*************** 



* STORE DEVICE * 

* ADDRESS IN * 

* RSTTAB * 

* * 
***************** 



**** 
RESETBUF 

*****B2*** ****** 
* 

* SET UP 

* FOB BUFFER 

* RESET 
* 
**************** 



*****C2*** ******* 
♦SETAPRT GY* 
■ *-*-*-*-*-*-*-*-* 

* BUFFER RESET * 

* IN SJOBCTLA * 

***************** 



****A5********* 

* RSTDPD * 

* * 
*************** 



***************** 



*****£ t ********** 

* SET UP * 

* FOR LOOP * 

* THROUGH * 

* RSTTAB * 

* * 
***************** 



************** 



****Ci» ********* 
RETURN TO 
CALLER 



*****U5********** 



*********** 



****E2********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



.* ENTRY *. NO * * 
*. USED IN .*....!* A2 * 

*. RSTTAB .* * * 

*. .* **** 



*F3 
ENTRY IS PROS OPTION 
STATEMENT PROCESSOR. 
LINK AND CATAL OPTIONS 
INVALID FOR FOREGROUND 
PARTITIONS IF NO PCIL 
SUPPORT PRESENT. 



**F4********* 



* D2 

* 
**** 



*****H1******* 
* 

* POINT TO 

* NEXT ENTRY 

* IN RSTTAB 
* 
************** 



****Hi******** 
RETURN 
TO CALLER 



*****g5********** 

* * 

* SET ON * 

* CORRESPONDING * 

* PUBONNSB FLAG * 

* * 
***************** 



*****P5********** 



************* 



*****U5********** 

* POINT TO * 

* DESIRED * 
.X* HKSSAGE 1S00D * 

* 'INVALID * 

* STATEMENT* * 
***************** 



****H5******* 

* BRANCH TO 

* EHRRTN IN 

* SJOBCXLA 

*************: 
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Chart NS*. SJOBCTLG - /* (End of Procedure) Statement Processor 
Refer to Chart 17. 



THE PBOCBDUKB BHD (/* STHT) 
PBOCBSSOB BEIBITIALI2BS THE 
ST ST AS AT TBE EBD OF A PHOCBDOIB. 
■OTB. TBAT PBOC. BAD IS ALSO C1LLBD 
IP BOJ OB CHABBBL STHT ABB DBTBCTBD 

BBTBX POUTS. - PBBD - BOP 

- PHD01 - BOJ, CABCBL 

SISTBB BBBOB 
EXIT. - flA BBTOBB BBGISTBB 

- COBTBOL - BOP 

- CALLBB - EJP. CABCBL 

SISTBB BBBOB 



*************** 



• LOAD BBTDBB * 



***************** 



C1 *. *****C2*****»***« 

.* *. * * 

* Of- OB •. IBS • SET POIBTBB * 

IBSBBT STHT .♦ I*TO BBBORHBSSAGB* 

*. .* * 1H41D * 

*. .♦ • • 

*. .* ***************** 

* BO 

♦*** 

* * . 

* D2 *.*. 

* * 



*****B3********** 

* BLABK Sf * 

* ABBAS POB * 

* iBOC AID * 

* Of , -STHT HAHB * 



.* PBOCBDOBB *. IBS 
*. CALLBD .*.... 

*BT OPBBATOB* 



**p-|******* 



* BBSBT OPBB 
* FLAG IB 

• OfBDB-DPB 



****j)2********* 

• BBAMCH TO * 

• BBBBTB IB * 

• SJOBCTLA * 
*************** 



**B2******* 

* * 

* SBT SXSLOG ' 
* FLAG IB 

* JCSB1 

* * 
*********** 



•♦F2******* 

• * 

BBSBT OPBB 

FLAG IB 

OfLOG-DFB 



• CLBAB 


* 


...♦1 


* PBOCOIB 


* 


• 


* BBTBX 


* 




**** ************* 


1 • 






•*•* 






* * 






* 02 * 






• • 


• 




**** 


*****D3********** 




♦ IMITIALIZB 


* 


< 



.* CABCBL ♦. XBS 
VBBttOBSX POSTED.*. 
•- -JCSB1- .♦ 



•****C*********** 

• * 

* SET POIBTBB * 
•TO BBBOBBB&SAGB* 

1B70D • 

* 
***************** 



****D4********* 

* BBABCfl TO * 

* COBTBOL IM *X. 

* SJOBCTLA * 
*************** 



SIS BBBOB *- 
FLAG 
SBT .* 

*. .* 



*****»4********** 



***************** 



•****G1 ********** 

* * 

* SAfB BOFFEB * 

* COBTBBTS IB * 

* BOFSAf * 

* * 
***************** 



**H1******* 



*********** 



«*** ************* 



***************** 



***************** 



X 






.*. 






J1 *. 






• *. 




SXS BBBOB 


*. 


TBS 


POSTED LM 




♦.... 


JBCSH6 .* 





* LOG ABD * 

* LIST BOP * 

* MESSAGE * 
***************** 



.♦ /♦ ». B 

.X*STATBHBAT BBJLBG*. 
t.BXBCUTBD .* 



* • 

* * 
•♦as******* 



*********** 



•*€&•*••*•* 



**D5******* 

• * 

* BBSBT * 

• Sf ABLB IF SUL • 

•BUILT ACTIfB * 



•*£5******* 

* # 
SBT CABCBL BIT* 

* OFF IF BO JOB • 
* ACTIfB • 

* * 
*********** 



****C5********* 

* MBTUBB flA * 

* BBTUAN * 
BBGISTBB 



*****K4********** 

* ACTIfATE * 

• PBBDIBG * 

♦ OBIBTEBPBbTBU *. 

• STHT * 

* * 
***************** 



**&*>******* 



*********** 



**** 

* * 

* Bi> * 
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Chart NT. IJOBCTLG - EOP Subroutines (frart 1 of 2) 
Refer to Chart 17.* 



chI: 

AMD 



PROC. JIB ENTRY TO 

.. op rses jibs 

R£SetS ORIGINAL LUfi 
POSIBD 



- CHAINED JIB NO 



****kH********* 

* ^- * 

* PitOsB * 

* • 
*************** 



*m**li2' ********* 

* » 

* PFREE * 

* * 

. m * ] ** mm#m **' m ^ l$m l $ 



*****M********* 
* 

* GBT ADDRESS 

* or proc D" 

* P(SYSPI 

**************'**! 



DRESS 

DIB - 
ML) 



* MOVE LOB I*fO « 

* SCNLUB - INIT • 

* POINTERS * 

* * 
■ ***************** 



*****CH********** 

♦ PRBBVIS SPACB * 

* NEEDED POR * 



***************** 



*****Q2********+* 

*JIBSCN 'HP* 

* 68* • 

* GRAINED * 

* JIB * 

***************** 



*****QH********** 

*CLBAR PRQC.OIB * 

* ENTR? * 

* * 

***************** 



X *SBT POINTER YQ * 
. ..«* ERROR HESSAGB * 

* 1M10A * 

♦ * 
***************** 



*****&H********** 

* » 

* CLEAR FRC-DPl * 

* ■ ■ • # 



i*«»*rn******«*** 



MB 

LIBRA 



***************. 



*****q2********** 



***************** 



****Q$********* 



********* 



**m*Qn*m******* 

* RETURN TO • 

* CALLING * 

* SEJOENCE * 

*************** 



*m**4H2***+****** 

* thY entry 



***** j 2********** 

* CLEAR FIRST * 
"THREE BUTRSJJP * 

* JIB ENTRY * 

* * 

***************** 



* RETURN TO * 

* CALLING * 

* SEQUENCE ■ > 

*************** 
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Chart NU. $JOBCTLG - EOP Subroutines (Part 2 of 2) 
Refer to Chart 17.. 



♦♦•♦A ■!♦♦♦♦*♦♦♦♦ 

• * 

* PLOG * 
********* ****** 



*****£2********** 



***************** 



****«B3********** 

* ao»a * 

MESSAGE * 

1H80I *. 

iirro boppeb * 

* • 
***************** 



.1* 



♦OUTPUT MESSAGE • 
* * 

***************** 



*****C2********** 



PBOCESSI1G 



***************** 



**** «£3********** 

* aora ♦ 

* message * 

.1* 1H90I ♦ . 

* XMCrO BOFFBB * 

* * 
***************** 



•OUTPUT MESSAGE * 
* * 

***************** 



***************** 



*** «Q3********* 

* * 

* POOT * 

* * 
*** ************ 



*****£ |********** 

* * 

* BOILD * 

* EOP PROCBDOBB * 

* MESSAGE * 

* * 
***************** 



**p-|******* 

* * 
SET PEOP 

FLAG IH 
JBCSI6 

* * 
*********** 



*****Q |********** 

♦POOT 110^ 

*-*-*-*-*_*-*-*-* 

♦ BBITE ♦ 

♦ EOP ♦ 

♦ HESS AGE ♦ 
***************** 



**** *B3********** 



**** ************* 



**** ************* 



.♦ PROCBDOBB 
. CALLED BI 
♦.OPERATOR „' 



*****j i********** 

♦ hove ♦ 

♦ MESSAGE ♦ 

♦ 1I00A ♦ 

♦ I«TO BOPFEB ♦ 

♦ * 
***************** 



*****K1********** 

♦poot ua* 

*-*-*-*-*-*-*-*-* 

♦ ♦. 

♦ MBITE MESSAGE ♦ 

♦ ♦ 
***************** 



* * 
BESET PEOP 

FLAG 
IN JBCSH6 

* * 
*********** 



****j 2** ******* 

♦ BBTUBH TO ♦ 

♦ CALLIBG SBQ. ♦ 

♦ * 
*************** 



****«H3********** 

♦BTatllT GO* 

*-*- * ■. * , » - » -♦■■ » ., * 

♦ SEIZB ♦ 

♦ TUB STSTEfl ♦ 

♦ ♦ 
**** ************* 



***************** 



♦ LIST ♦ 

♦ MESSAGE ♦ 
***************** 



****ji|********* 

♦ BETOBB TO ♦ 

♦ CALLING SEQ. ♦ 

♦ ♦ 
*************** 
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Chart PA. 



$JOBCTLJ - HOLD Command Processor 
Refer to Charts 18 to 20,. 



****A3********* 

* * 

* SJOBCTLJ * 

* * 
*************** 







* B«4 * 

* * 






**** 


HOLD £ 

*****B3********** 

* LOAD P0INT4 • 

* NITH ADDS OF * 
•INSTR THAT SBTS» 

* HOLD FLAG ON * 

* IN PIB * 
***************** 


R0LD2 X 

**Bi|******* 

* SET HOLD * 

* FLAG ON OB 
•OFF IN CORRECT 

* PIB 

♦ *B5 * 

*********** 



RLSENT .*. 

C3 *. 

.* MULTI ** 
NO .*PR0GBAHHING*. 
...*. BRVIBONHENT .* 



*****J)3********** 

♦SCANB2X PZ* 

***•*. *.*•*. *-*-* 

* POINT TO * 

* FIBST OPEBAND * 

* -F1.F2, ETC. * 

***************** 



B3 *. 

.* DID * 

NO .* A BLANK 

C*. OB GOHHA 

♦.END SCAR 



DID 

BLANK END 

.LAST SCAN.' 



*BS 

1. POINT* CONTAINS ADDR 
OF CORRECT 
INSTBUCTION. 

2. POINT! CONTAINS ADDR 
OF COHBECT PIB. 

3. THE HOLD FLAG IS 
BIT •» OF PIB+12 

1 = HOLD 

" RELEASE. 



****£5********* 

* BRANCH TO * 

* CONTROL IN • 

* 4J0BCTLA * 

*************** 



*****QH********** 

•SCANB2X PZ* 

• *•*-*-*-*-*-*-*-* 

* POINT TO * 
•SECOND OPERAND • 
~ -F1,P2,RTC- * 

...» . m t*** mm ** m 



*****£* 



DID 
BLANK END 
. SCAN 



***** 
*GW • 
* C2» 



OPERAND 
LENGTH EQ 
. 2 CHAR . 



***** 
*GH * 
* C2* 



*****g3********** 
♦LOAD PIB TABLE * 
•ADDR IN P0INT2 * 
•AND FOBEGBOUND • 



* VALID *. 

FOBEGBOUND . 

♦.PARTITION.* 



***** 
*GN * 
* C2* 



***** j 3*********41 

• * 

• Point to * 

• corresponding * 

• PIB • 

• * 

***************** 
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Chart PB,. $JOBCTLJ - UCS Command Processor (Part 1 of 2) 
Refer to Charts 18 to 20- 



****A1 ********* 

* * 
» UCS * 

* * 
*************** 



*****B1 ********** 
•INITL KA» 

*-*-*-*-*-*-*-*-* 

* RELOCATE * 

* ADCONS * 



.* UNIT *. 
* IGNORE OB *. 
UNASSIGHBD . 



***** 



*********** 



.* IS *. YES 
.X*. ASSIGNMENT .*.... 

*. IGNORE .* 



»PV * 
* C1* 

* * 



*•**&(********** 
BRANCH TO * 
CONTROL IN * 
SJOBCTLA * 

*************** 



*****C1 ********** 
•SCANR2 GK* 

*-*-*-*-*-*-*-*-* 
•POINT TOPIRST 0* 

* PERAND-SYSXX ♦ 

* * 
***************** 



1U03U 

DEVICE 

TYPE 



01 *. 






*****!) 2* ****** 


* *. 






* 


DID 


* 


NO 


* HOVE CLASS 


CORN A END 




*. .. . 


•ORDER INTO 


SCAN 


* 




* -WRKDPB+6- 


*. .* 






* 


*. .* 




X 


************* 


* YES 




***** 

*G* * 

* C2* 

* * 

* 

NVSERR 





*****£ 1* ********* 

•CHONCO PT* 

*_*_*_*_*-*_*_*_* 

♦GET UNIT CLASS • 

* AND ORDER * 

* * 

***************** 



*****g2********** 
•SCANR2X PZ* 
*-*-*-*-*-*-*-*-* 

• POINT TO * 
•SECOND OPERAND * 

• -PHASENAHE- * 
***************** 



C3 *. 


*****£ (|*** ******* 


*****C5********** 




* * 


•HSGOUT GJ* 


3BO0 **. YES 


* HOVE HS3 * 


*-*-*-*-*-*-*-*-* 


DEVICE .* 


...X* «UCS IGNORED* *.... 


. ...X* OUTPUT HSG * 


TYPE .• 


* TO BUFPER ♦ 


♦1B08I 'UCS IG- * 


. * 


* * 


♦NOBED FOR Jb00»» 


*. .* 


***************** 


***************** 


* NO 






. **** 






. *PV * 






..X* CI * 




i 


• * 




**** 


**** 




* * 


NDTBHR 




* A4 * 



*****£ 3********** 

♦HTNCNT GU* 

*_*_*_*_*_*_*_*_* 

* RELEASE * 

* THE SYSTEH * 



******* 



******* 



UNIT 

CLASS EQ 





F2 *. 

.* DID * 

NO .* A BLANK 

X..*. OR COHfIA 

*.END SCAN 



*****(j 1 ********** 


G2 *. 


* LOAD LUB 


* 


.* *. 


* POINTER POR 


* 


. NO .* OPERAND *. 


* 1ST BG PROG 


* 


X...*. 1-9 CHAR IN . 


* UNIT IN 


* 


*. LENGTH .• 


* HRKRG1 


* 


*. .* 


***************** 


X *. .* 






***** * YES 






*GN * 


x! 




* C2* 






* * 






NVSERR '. 


UCS1 X 




X 


*****H 1********** 


***** H 2* ********i 


* COHPOTE LUB 


* 


*SET PHASE NAHE 


* TABLE 


* 


• SAVE AREA AND 


* DISPLACEHENT 


* 


* BUFFER TO 


•TO DESIRED UNIT* 


•BLANKS SAVE PHS 


* HITHIN CLASS 


* 


•NAHE IN LODNAN 


***************** 


**************** 



*****J1********** 

•CHKASG GU» 
*-*-*.*.*-*-*-*-* 
•GET LUB AND PUB* 

* ADDRESSES AND * 

* CHECK ASSIGN • 
***************** 



**** 

* * 

* A2 * 



*****P3********** 

• SVC 23 - LOAD * 

• THE UCS PHASE • 

• HEADER INTO * 

• BUFFER. * 

• -LODNAH+8- * 
***************** 



IF PHASE IS CATALOGED THIS 
VALUE CHANGES TO THE PEAS'! 
LOAD ADDRESS. BIT 7 ALWAYS 
BECOMES A ZERO 



*********** 



***** 

• PV * 

* BU* 



'.^BS 



*****K2********** 
•SET 3RD BYTE OF* 

• BUFFER. * 

* LODNAHE+lO, * 

* TO HEX PF. • 

• *GU * 
***************** 



* HODIFY UCS 

* LOAD CCWS 

* *J5 

* 
*************** 



***** 
•PC • 
* B2» 



*J5 
LODCCW2-SBT TO NONFOLD OPCODE 

-HEX PB-. 
LODCCW2+4-SET CHAIN FLAG TO 
CHAIN WRITE CCM 
-HEX 60-. 
LODCCm-SET ALLOW DATA 
CHECK OPCODJS 
-HEX 7B- 



**** 

* * 

* E3 • 

* * 
**** 
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Chart PC, SJOBCTLJ - UCS Command Processor (Part 2 of 2) 
Refer to Charts 18 to 20, 







***** 








*PB * 








* J 3* 








* * 
X 








UCSSCN .*. 








B2 *. 








.* *. 


**♦* 






.* DID BLANK *. YBS 


* * 






*. END LAST .*... 


X» CI * 






*. SCAM . * 


* * 


**** 




*. .* 


**** 


* * 




*. .* 




* CI * 




* NO 




* * 








**** 






*C3 


UCSVH X 




X 


THE PHASE IS LOADED INTO 


*****C 1********** 


*****C2********** 


THE BUFPEB LABELED LODBUF 


♦MTNCNT 


GO* 


♦SCANR3X PZ* 




*-*-*-*-*-*-* 


-*-* 


*-*-*-*-*-*_*_*-* 




* BELEASE 


* 


* POINT TO NEXT * 




* THE SYSTEM 


* 


* OPERAND * 




* 


* 


* *D3 * 




***************** 


***************** 





*****[) 1 ********** 

* * SVC n * * 

* * LOAD THE * * 

* * OCS PHASE * * 

* *FROM CI LIB* * 

* * * C3 * * 
***************** 



*****£ 1********** 

♦MTNCNT GU* 

*.*-*.*.*_*-*.*-* 

* SEIZE * 

* THE SYSTEM * 

* * 

***************** 



*****pi ********* 

* STORE THE UCS 

* CCH ADDR, 

* LODCCW, INTO 

* WRKDFB CCB 
* 
**************** 



*****Q 1********** 

*BXCPBG GP* 
*-*-*-*-*-*-*-*-* 
♦EXECUTE I/O AS * 

* SPECIFIED IN * 

* WBKDFB * 
***************** 



.* DID *. 
BLANK OB ' 
COMMA END 

. SCAN 



LENGTH * 
EQUALS 
4 CHARS. .* 



LENGTH 

EQUALS 

.5 CHARS. 



.* LENGTH 

EQUALS 

*.6 CHARS. 



****£«>***•***** 

* BRANCH TO * 

* NVSERB IN * 

* iJOBCTLA * 

*************** 



**U2******* 

MODIFY LODCCH2 

■* TO FOLD. * 

* -OPCODE EQUAL * 

* HEX F3- * 

* * 

*********** 



*G3* 
MODIFY 
LODCCW 3 
TO INHIBIT 



**QH******* 

MODIFY LODCCM2 
♦SET CHAIN BIT* 
♦OFF TO PROHIBIT^ 
♦ NRITE. ♦ 

* * 

*********** 



.X.X.. 

X 

**** 



****tn ********* 

* BRANCH TO * 

* CONTROL IN * 

* SJOBCTLA * 

*************** 
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Chart PD. SJOBCTLJ - ACTION and INCLUDE Statement Processors 
Refer to Charts 18 to 20- 



****41**« ****** 

* ACTIO! * 



ACTIO! X 

*****31********** 

♦CHRRBADI P0* 
*.*-*-*.*-*-*-*-* 

* CHECK IP • 
♦SISLIK IS BBADT* 
♦CI 



•**• 



.* CATALB * 
♦.OPTIOB SB OB 

♦ . *J2 .♦ 



**D1******* 

* * 

• TORR * 
CATALB S BITCH * 

* OPP ♦ 

* * 
*********** 



*****K1********** 

• * 
♦PRBPARB B OFFER • 

* TO OUTPUT ♦ . 

• ASA CHAB *B* * 

* * 
***************** 



.* LIBR *. 1 
I*. OPTIOI SHITCH.*. 

*. OB .♦ 



• PBBPABB 

• BOFFBB FOR 

• OOTPOT 
* 
****************i 



♦ SET OOTPOT * 
•CHARACTBR COO IT* 
•TO 80 BITES IB * 

* CBTPLD • 





****M3********* 








10 


* * 










* IICLODB • 










* * 










*************** 






•*** 


X 








• * 


***** 








* B« • 


♦p\r * 








* * 


* 63* 








**** 


* • 










* 










OTSBBR 


X 






X 


IBCLO .♦. 






.*. 




B3 *. 






B« *. 




.* ♦. 






.* 2 *. 




-* LIBK *. BO 


.* 


II « 




♦. OPTIOI .*.-.. 


*. 


1ST BITE 




♦. .* 




*. .< 




*. .* 






*. -• 




*. .* 


X 




*. .* 




* IBS 


***** 




• IBS 






*Pf * 










• 63* 










'* * 










* 










OTSBBR 




X 




X 






.*. 




•*** «c3********** 






C« *. 




♦SCA1S2X PB* 

*-*. *_*_*-*_*_*_* 




.* *. 






»* 


BBD < 




• SCAB * 




*. 


CARD 




• PiU OPBRABD * 




*. .* 



**** ************* 



*****D2********** 
♦UPDSAV PO* 
*-*.. » - * - ♦ -»-*-♦-» 

..X*IBCR BLR COOIT * 
♦HOYB STATES BIT * 
^ OUTPUT *F1 



*****B2********** 
•LEEOUT PO* 
*-*-*-•-*-*-*-*-* 
*RBITB STATBHBBT* 

• TO STSLBK * 

• • 
***************** 



.♦. 




.*• 


D3 ♦ . 




D* *. 


..* ♦. 




.* ♦ . 


.* BLAIR *. 10 


.* BBP ♦. IBS 


*. OPBRABD .* 




♦ . CABD .*.... 


*. .* 




*. .* 


•- .* 




*. .* 


*• .* 


X 


♦ . .♦ 


* IBS 


*•** 


• BO 




* ' • 






* cl * 






* • 






**•* 








X 


X 




-*. 


*****B3********** 




B« *- 


* "HIT FOB * 




.* bill *. 


•cop iihg srsiPt * 




.* THIS CARD *. IBS 


* TO SISI.BK * 




*. FILL THE .*.... 


* * 




*. OOTPOT »* 


* *H2 * 




♦.AREA .♦ 


**** ************* 




♦ . .* 



0IBLKD1 .♦. 

CS ♦. 

.* Alt *. 

.♦ CABDS II *- IO 

..X*.SISLIK OUTPUT.*... 

♦ . AREA -* 

♦ . .♦ 

♦* .* 

♦ XES 



LPDOPT m X 

*****£5***« ****** 

♦UPDSA? PO* 

♦IICB BLK COOIT * 
♦HOfE SXATBHEIT * 
* OOTPOT * 
***************** 



*F1 

1. OPDATE THE BLOCK COOIT 
FOB I/O ABBA CORTBOL. 

2. WAIT FOB PBBflOOS I/O 
01 SISLIK TO BE COHPLL 

3. HOPE STATBHEKT TO IBXT 



* P3 ♦.!. 



BOFFBB, LBKBFl. FROB 
IIPOT BUFFER AREA, BOFFBB 



* SfC 7 * 
*IAIT FOR STSLBK* 
♦I/O COBPLBTIOB * 

***************** 



***» 
COPILP X 

*****pj********** 
♦BXCPRG «?♦ 

♦ HEAD FROB * 

♦ STSIPT ♦ 

♦ * 
***************** 



***************** 



******•**••*•***• 



JLF BUT, OUTPUT BJBS5AGK 15' 
AID RETIRE TO ROOT PHASE. 



****62***^****« 

♦ BBAICH TO ♦ 

♦ COITROL II * 

♦ SJOBCTLA * 
*************** 



•HI 2. 

THB BXCPB6 SOBBOOTIBE PLACES 
THE ATTBITIOI. ATBCUU. BOOTIBB 
ADDR II LIIKR1 01 BVBAI RBTORI 3. 
TO CALLIB6 SBQ. ATICOO IS OSBD 
TO DISPLAT THE ATTBITIOI 
HESS AGE, 1C0OA . 



AID BIT 6 OF STSIPT 
DFB FLAG OFF. 
SET OUTPUT CHAB 
COOBT TO 80 BTTBS 
IB CITFLD. 
CHECK, IF SXSLBR 
IS READ!. IF BOT, 
OOTPOT HBSSA6B 
1SU2A AMD BBTUBI 
TO ROOT PHASE. 



G3 *. 




.* HAS *. 




* STSIPT *. 


BO 


BEBI OPBIBD . 


♦ *... 


*. .* 




■♦. .* 




♦. .♦ 


X 


♦ IBS 


***** 




*Pf * 




* PI* 




* * 




• 


X 


II ABBE 


.♦* 


BBDIIC 


H3 ♦. 


•****gi|********** 


.♦ ♦. 


• SAFE LIBKR1 * 


♦ SXSIPT ♦. 


IBS ♦ 11 LIBKR4 ♦ 


BID OF 


♦ X* * 


♦. FILE .♦ 


X * * 


*. .* 


* *H1 * 



BXPASS X 

*****M^«* ******** 

* ♦ SPC 7 * ♦ 

* ♦ BAIT FOR • • 

* •SISLIK I/O • • 

* ♦COBBLE TIOI ♦ ♦ 

* * * * 



♦J2 
EITRI AID PHASE 
STATBHBRT EITBR HERB. 



J3 ♦. 
-*SISIPT ♦. 
♦ OUT 
EXCEPTIOI 



.* AMI *. 
.• CABDS IB *. BO 
* -SISLIK OOTPOT.*... 
*. AREA .* 



*****K4********** 

♦LBROOT PO* 

»- * - * ■ » - » - ♦ - ♦ ■.*-♦ 

* BRITB • 

* TO SXSLBR • 

* * 
***************** 





• F3 • 


.X.. 


X 


• * 


X 


**** 


**** 


**•* 


* • 




* * 


• 84 • 




• as * 


* * 




• - * 


•*•* 




*•*• 



.* 


SISltT 


* 


. XES 




EOF 




.*.... 


*. 


.* 






*- .* 








*. .* 




X 




* MO 




**** 








* * 




• 




* ei* 



****is********* 

♦ BMAICri TO ♦ 

♦ ATICUO II ♦ 

♦ SJOBCTLA ♦ 
*************** 
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Chart PE* $JOBCTLJ - MTC Statement Processor (Part H of 2) 
Refer to Charts 18 to 20.. 



****A1*#******* 

* * 

♦ HTC * 

• * 
*************** 



*****Uf ********** 

♦INITL KA* 

*•*«*-*.*-*.*..*.* 

* RELOCATE * 

* ADCONS * 

* * 
***************** 



*****£ J********** 

* * 

* PUT ADDRESS * 



***************** 



*****Dt ********** 

*SCANR2X PB* 

*_*_*-*_*-*-*-*-* 

♦POINT TO FIRST ♦ 

* OPERAND LOP * 

* CODE * 

***************** 



*****C2********** 

* * 

* SET CHAIN ♦ 

* BIT ON IN * 

* CCW * 

* * 
***************** 



*-*-*-*-*-*-*-*-* 
♦POINT TO SECOND* 

* OPERAND * 

* (UNIT) * 
***************** 



GRTASG _ X 

*****A3********** 
♦CHKASG GO* 

*.*.*.*-*.*„*.*-* 

* CHECK THE * 

* ASSIGNMENT * 

* FOR THIS UNIT * 

***************** 



IS 
THIS UNIT 
.ASSIGNED .' 



.♦IS OPERAND *. NO 
.CHARACTERS IN.*..X 
*. LENGTH .* 



**** 

* * 

* 84 * 

* * 
**** 



*****B4********** 
♦TXCUO PT* 

*.*.*.*.*.*.*•*.* 

* GET DEV TYPE, * 

* PUB ADDR, AND * 

* PUB POINTER * 
***************** 



*****Cit********** 



.* THE UNIT ♦. NO * PICK OP BASK * 


.♦ IS *. IBS 


*. IGNORED .♦. 


* FOB OWNERSHIP * 


♦.THIS A SKSTEM**.... 


*. -IGN- .♦ 


♦ TEST ♦ 


«. CLASS .* 


*. .* 


* * 


♦ . .* 


♦ . .* 


x ***************** 


*. .* . 


* IBS 


***** 
*py * 


* NO 






♦ CI* 








♦ » 








NDTBRR X 


x r 






HTCTEST . ♦. 


.♦. 


X 


0* *. 


05 ♦. 


****D3********* 


-* ♦. 


. * ♦. 


* BRANCH TO * 


YES .•CONFLICTING*. 


.* IS *. NO Jl 


* CONTROL IN * 


...*. OWNERSHIP .* 


*. THIS .*.... 


♦ JJOBCTLA * 


*. .♦ 


*. SYS0O0 .* 


*************** 


*. .* 


*• .* . 




X *. .* 


*. • * 




***** * no 


* YES 




♦ PV ♦ 






♦ P2* 






• * . 
* 




HTC3 


NDSERR X 


X 1 


*****E3********** 


*****gil********** 


**£<)****•** . 


♦SET DEVICE TYPE* 
♦ IN DVCTYP AND ♦ 


♦ SAVE * 


* * 


♦ OWNERSHIP * 


* sysooo * 


..X* SISTEM CLASS * 


* FLAGS AND * 


♦AND UNIT CLASS * 


* PUB * 


• SWITCH * 


* IN HBKBG3 * 


* NUMBER * 

***************** 


* * . 


********< 


********* 


*********** . 








.**.... r 

X 

**** 








* * 






x 


* AJ * ■ . 



X 

***** 
*GN * 
* C2* 

* * 



HTC2 X 

*****(}2^********* 

♦CNUNCO PT* 

*-*. *•*.*. *.*.*.* 

•CONVERT SYSXXX * 
* TO SYMBOLIC * 
♦UNIT ADDR *JJ* 
***************** 



*?? 



*****H 1 ********** 
* 
IOHVERT TAPE * 



*COI 
*AN1 



_ INITIALIZE 

* CCH * 63 » 

***************** 



H2 *. 
t .* IS, *. 
.* THE UNIT 
*. A SYSTEM 
*. ENTRY . 
*. *H3 .* 

*. 4* 

* NO 



Jl *. 

.* *. 

»* IS *. 

•» COMMAND .* 

*. DSE .* 

*. .* 

*. .* 

* YES 


NO 

X 

* * 

* A2 * 

* * 


*****j2********** 

* * 

* UPDATE WRKRG1 * 
♦TO POINT TO 1ST* 

* PROGRAMMER ♦ 

* LUB ♦ 
***************** 

I X.. ..... . 


* 




• 


**** 




X 

*****K1 ********** 




*****K2********** 

■* * 

* COMPUTE LUtt ♦ 

♦ TAtfLE DSPLT ♦ 

♦ FOR THIS OMIT * 

* IN HRKRG3 * 
***************** 


* MODIFY - * 

* CCH CHAIN * 

* FOR DSE < 

******** ********4 




X 

*♦** 




X 

**** 



*****ptt********** 

♦CHKASG GO* 

*.*.*_*-*-*.*-*-* 

* ASSIGN SYSOE * 

* TO DEVICE. * 

* CLASS, ORDER * 
***************** 



HRKRG1 CONTAINS THE 
LOB POINTER TO THE 
FIRST SYSTEM ONIT. 



DEVICE 
MAGNETIC 
. TAPE 



.* DEVICE *. XES 
A TAPE »*..X 

♦.CARTRIDGE. ♦ 
*. RDR .* 





* NO 




***** 
*PV * 
* C1* 

* * 

* 




X 

.*. 




NDTBRR 


♦J 3 


JO *. 






SYMBOLIC OMIT ADDR, 
SYST AND UNIT CLASS, 


.* ♦ 






.* DEVICE 


* 


YES 


IS RETURNED IN THE 


*. DOHN 




*. . . . 


FIELD UNCLOR. BYTE 


*. 


* 




IS SYSTEM CLASS. 


*. .* 






BYTE 1 IS UNIT CLASS 


♦ . .* 




X 




* NO 




**♦** 
*PF * 
* C4* 




X 




* * 




***** 




* 




*PF * 








* A1* 




NDSBRR1 
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Chart PF. $JOBCTLJ - MTC Statement Processor (Part 2 of 2) 
Refer to Charts 18 to 20.. 



PICK OP HASK 

FOR OWNERSHIP 

TEST 



PU* 



******** 



* c« 

**** 



GET EXT 
ADDS FROM 
COM REG 

*************! 



.* COH 

REG EXT 
*. AVAILABLE. 



****B1 ********* 



GET RF 
TABLE 
ADOR 



******** 



**G1******* 

* POST * 
OPEN 

REQUEST 
IN COH REG 

* EXT * 



Hi *. 

.* *. 

* * 

HTH COHHAND 



**J1******* 

* * 
POST HTH 

REQ IN 
COHREG EXT 

* * 
*********** 



* SVC 22 * 

* * 
***************** 



***B 2** ******** 

INITIALIZE * 

REGISTER * 

WITH LOG * 

UNIT * 

* 

**************** 



*****C2********** 
♦KSTVOPEN PF* 
*-*-*-♦-*-*-*-*-* 

* FETCH * 

* *$BOPEN TO * 

* OPEN FILE * 
***************** 



* INITIALIZE * 
X* REGISTER * 

*MITH LOG- UNIT * 

* * 
***************** 



***** £2* ******* 
* 

* INITIALIZE 

* CCB AND CCN 

* *H3 
* 
*************** 



*****P2********** 

* * 

* SET COUNT FOR * 

* SINGLE I/O IN * 

* HRKHGl* * 

* * 
***************** 



.* DID *. 
.* A BLANK *. YES 
.STOP THE LAST.*.... 
*. SCAN .* 



•POINT TO THIRD * 

* OPERAND * 

* -DUP FACTOR- * 

***************** 



*****A3******* 

•N0BCON 

*_*.*.*_*-*_*.*_* 

* CHECK DUP * 
•FACTOR AND COM-* 

♦ VERT TO BINARY • 

***************** 



DUP 

FACTOR 





**** 

* * 

* C3 *.X 

* * 
**** 



**** 

* * 

* K3 * 

* * 
**** 



***** 
*PE * 
♦ J»* 

* * 



VOPi 

**** 


N X 

•Bb********** 


* * 


SVC l- 


* * 




PBTCH 


• * 


* * 


*$BOP£N 


• * 


* * 


TO OPEN 




* * 


FILE 


* * 




************* 



NDSERR1 X 

*****CJ********** **c<i******« 

•EXCPRG GP* * 

*„*_*.*„*_*.*.*-* * sbi 

* EXECUTE * * ERROR 

* DESIRED * * EXIT 

* I/O * * 

***************** *********** 



.* NEH *. 

DUP 

♦.FACTOR .* 



*****(;&*********i 

* INITIALISE 

* REGISTERS 

* *H«* 

**************** 



**** 

* * . 

* E3 *.X. 



*•** 

* • 

* C3 * 

* * 
**** 



**P3******* 

* * 
RESET POB 
OWNERSHIP 

FLAGS 

* * 
*********** 



*************** 



*************** 



* UNASSIGN 

* SYSUSB LUB 

* -SET TO X'FF* 

• 
**************** 



****QH ********* 

* BRANCH TD 

* CONTROL IN 

* SJOBCTLA 

*************** 



SET HODE COHHAND TO CCW. 
HOVE SYS AND UNIT CLASS 
TO CCB AS SYHBOLIC UNIT 
ADDRESS. 



*H4 
X'FF« TO SET SYS HASK 
T3 ALL3W ALL INTERRUPTS. 



* DID * 
A BLANK 
END THE 
SCAN 



*****K 1*********) 



******** 



* A2 * 

* * 
**** 



DUP *. YES 
FACTOR GT .*... 
99 .* 



**** 

* * 

* A3 * 



**** 

• * 

• K3 *.X 



****K3********* 

* BRANCH TO * 

* NVSERR IN * 

* MOBCTLA * 
*************** 
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Chart PS* $JOBCTLJ - SET Statement Processor (Part 1 of 3) 
Refer to Charts 18 to 20- 



****l REFERENCES 

I * TO PGAl: 

% 1* PHG3, PJK3 

%* PKR1, PLG1 



SET EXT 


• *. 




A1 *. 




* DID 


YES .* 


A BLANK 


...*. 


END LAST 


* 


SCAN 





****A2********* 




* 




* SET 




* 


• 


*************** 


*•* 

* 




A1 * 




* 




**• 









.* DID * 
A COMMA 
END LAST 
. SCAN 



****C 1********* 

* BRANCH TO * 

* CONTROL IN * 

* SJOBCTLA * 
*************** 



*****B2********** 
♦SCANR2X PZ* 

*«*.*.*.*.*.*-*.* 

X* POINT TO * 
♦CURRENT OPERAND* 
* *GU * 

***************** 



.* DID *. 
NO .* AN EQUAL ♦. 
...♦.SIGN END TBS .* 
*. SCAN .* 



DATB 

CONFIG» 

.HH/DD/YY 



****B3********* 

SNITCH 
MONTH AND 
DAY REGS 

*************** 



**** 

* • 

* B4 * 



*************** 



X 

***** 
*PR * 
* At* 



C3 ♦. 

.* ARE ♦. 

.♦YEAR MONTH *. 

. AND DAY IN .* 

*. PROPER .* 

*. RANGE.* 

*. .* 

* YES 



.* PIBLD 


*. NO 


*. LBHGTH*b 


.*.... 


♦ . 


* , 


*. fi .* 




*. .* 


X 


* YES 


***** 




♦ GN * 




* C2* 




* * 




* 




NVSERR 


X 




*****Cb********** 


*SCANR3X 


PZ* 


*.*.*.*«*.*.*. 


»*-* 


* GET LIMlSS 


* 


* VALUE 


* 



***** 

*GH * 
* C2* 



***************** 



**** 

* * 

* A1 * 

* * 
**** 



***** 

*G« * 

* C2* 

* * 



***** 

• PL * 

* A1* 

* * 



*pp * 
* B1* 

* • 



. . .*. 


UPSI .*x. 


. * 


.* 




*. .* 


X 


*. .* 


•*** 


* YES 


* * 




* B« * 




* * 




**** 






X 


SYSUPI 


.*. 




G1 *. 




* *. 


.* 


FIELD *. NO 


*. 


LENGTH* .*.. 



* POINT TO UPSI * 

* PARAMETER * 

* -NNHNNNNN- * 

***************** 



J1 ♦ . 

.* SCAN *. 
* ENDED * 

BY BLANK OR 
*. COMMA .* 



***** 

♦ PR * 

* C1* 



YEAR 

8 UAL EVEN 
UMDREDS . 



*****P3«******** 

* ADD 1 TO 

* DAY COUNT 

* FOR LEAP 

* YEAR 
**************** 



* COMPUTE DAY * 

* OF YEAR AMD * 

* STORE IN * 

* CONREG * 
***************** 



♦ • 



************ 



D!> ♦ . 

.* SCAN *. 
ENDED BY ' 
BLANK OR 
COHBA .< 
PAGE* 



YES 



****£it********* 

* * 

* SLINCfl * 

* * 
*************** 



* BIN AH* 

*************; 



.** 

PS *. 

.♦ VALUE *. 

LESS THAN 

30 OH 

. GT *9 . 



***** 
*PU ♦ 
* G1* 



*G« 
THE OPERAND 
POINTED TO BY 
THIS SCAN IfAY 
BE DATE. CLOCK, 
UPSI, LIMBCT, 
RCLST, RCPCH, RF. 



*****j2********** 
♦BINCON PU* 

*-*.*-*- *.*„*.*.* 

* CONVERT DATE * 

* TO BINARY * 

* * 
***************** 



«K2********* 

* STORE DATE 

* IN SYSDAT. 

* COMBEG+79 

* 
**************** 



MMDD1 

*****j 3*** ******* 

* STORE DAY OF * 

* YEAR IN BACH * 

* PARTITION'S • 

* COHREG * 

* * 
***************** 



****Jt| ********* 

* RETURN TO * 

* CALLER * 

* * 
*************** 



****•£ •>********** 

* SAVE OLD LIME * 

* COUNT AND * 
♦STORE NEM COUNT* 

• IN L1NCNT * 

♦ -COHRBG+78- * 
***************** 



*****!)«,*******•** 

* • 

* COMPUTE NEK * 
♦REMAINING LINES* 

* T6K PAGE * 



.* REMAINING ♦. 
COUNT .* 
♦.POSITIVE .♦ 



*****K!>********** 

♦ * 

♦ SET REMAINING * 
.•COUNT TO I«UI« ♦ 

♦INDICATING END ♦ 

♦ OF PAGE ♦ 



**** 

* * 

* A3 ♦ 

* * 

**** 
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Chart PH. $JOBCTLJ - SET Statement Processor (Part 2 of 3) 
Refer to Charts 18 to 20- 



***** 

*PG * 
* B<»* 



*. IBS 

.* 



****A2********* 

* * 

* DATE * 



****A4********* 

* * 

* ZONE * 

* * 
*************** 



***** 
»PJ * 
* B1* 



DATE 

*****B2********** 
•SCANR2X PZ* 

*-*-*-*-*-*-*_*-* 

* POINT * 



**** 

* * 

* B5 * 

* * 
**•• 



***** 
*pj * 
* A3* 



.* DISK *. 

I/O FOR ' 
SYSLST OR 
. SYSPCH . 



*****D 1********** 
•INITIALIZE REGS* 

* HITH DIB TBL • 

* ADDB. POINTtt * 

* HITH SYSLST * 

* DIB AOOSBSS * 
***************** 



IS 

OPERAND 

RCLST 



*****p )*********! 

* SET POINTU 

* AS POINTER 

* TO SYSPCH 

* DIB 
* 
************** 



IS 

OPERAND 

RCPCH 



DIBRC 

*****U1********** 

*SCANR3X PZ* 

*-*-*-*-*-*-*-*-* 

* POINT TO * 

* PARAMETER * 

* -NNN- * 
***************** 



**** 

* * 

* C3 * 

* * 
*•** 



TO 



DID 
BLANK END 
. SCAN 



•CHARACTERS *. NO 



*****g2********* 



**************** 



*****G2********** 

* * 

* SET * 

* DATE BIT ON * 

* IN COHRBG • 

* * 
***************** 



.* SCAM * 
ENDED BY 
BLANK OR 

. COMMA 



NO . * PARAN AT *. 

...*. LEAST 3 CHAR . 

*.IM LENGTH.* 



*****£ 3********** 

*N0RCOH PU* 
*.*-*.*-*.*.*.*-* 

* CONVERT RC * 

* PARAMETER TO * 

* BINARY * 

***************** 



****P3*******«*i 

STOBE 

RESIDUAL 

COUNT 

*************** 



*****C4****** 
♦SCANR2X PZ* 
*-*-*-*-*-*-*-*-* 

* POINT * 

* po * 

* OPERAND * 
***************** 



DID 
BLAND END 
. SCAN 



*****P4********** 
•MUHCON PU* 

*-*-*-*-*-*-*-*-* 
* CHECK AMD * 
•CONVERT HRS AND* 
•SECONDS TO BIN.* 
***************** 



.* RC GT 
*. 65,535 



****H2********* 

* BRANCH TO * 

* CONTROL IN • 

* SJOBCTLA * 
*************** 



. 


* J5 * 


. 


X 


* * 




***** 


**** 




*PG * 




X 


* A1* 




.*. 


* * 




H« * 


* 




.* 


SETEXT 




.* SECS 
•. LT 60 



IS 
ZONE 

*NKST 



* GET NEGATIVE 

* VALUE OP 

* SECONDS 

****************i 



SKIP 

****«P5********** 

* STORE ZONE * 

* VALUE IN * 

* JOBZONB IN * 

* COHftEG * 

* EXTENSION * 
***************** 



****CJ «>********* 

* HETUHH TO * 

* CALLING * 

* SEQUENCE * 

*************** 



*****jlt********** 

* CONVERT HOURS * 

* TO SECONDS * 

* AND ADD * 

* TO SECONDS * 

* * 
***************** 



****ji > *» ******* 

* ttEANCH TO * 

* NVSEBH IN * 

* *JOBCTLA * 
*************** 



* B5 • 

* • 

**** 
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Chart PJ. $JOBCTLJ - SET statement Processor (Part 3 of 3) 
Refer to Charts 18 to 20. 



****ai********* 

* * 

* SISBF * 

• * 
*************** 



*****D1********** 
•SCANBJX PZ* 

*-*-*-*-*-*-.*-*-.* 

* POINT TO * 

* PABAHBTBR • 

* -HC STATUS- * 
***************** 



MO .*SCAN ENDED *. 
X..*.BY A BLANK OR.* 
*. COHNA .* 



F1 *. 

* 

RF«YES 



NO .* IS 
%..*. SYSLOG 
*. A CRT 



*****D3**«******* 
*SCANR3X PZ* 
OPBR* -*-*-*-* -*-*-•-* 
X..* GET * 

* OPERAND * 

• * 
***************** 

.OPBR 
.POUND 



**as******* 

* * 

INDICATE 

NO HC FILE 

SUPPORT 



**BU******* 

* * 
» INDICATE * 

HC FILE TO BE 
* OPENED * 

* • 
*•*«*•***** 



*****C«»********** 
•HSGOUf GJ* 

*-*■-*-*-*-*-*-*..* 

* OUTPUT *. 

* MESSAGE 1I98I * 

* * 
***************** 



F3 *. **pit******* 

* *. * * 

.*. YES * INDICATE * 

HC-YES .*. X* HC FILE TO BE < 

.* * OPENED * 

*•■•■* * * 

*. .* *********** 



RF*CREATE 



FIELD *. NO X 


NO .* 


LENGTH* J .*. ...X.. 


..*. HC'CRBATB 


. .* . 


*. 


*. .* 


*. .* 


*. .* X 


*. .* 


* Y£S ***** 


• YES 


*GH * 




* C2* 




* * 

* 




NVSERR 




X 


X 


**H2******* 


**H3******* 


* 


* INDICATE 


SEX SWITCH * 


• HARD COPY 
• FILE TO BE 


FOR FILE * 


CREATED IN * 
RF TABLE * 


• CREATED 


* 


*********** 


*********** 



**J1******* 

* * 

* SET SNITCH • 
♦FOR FILE TO BE * 

* EVALUATED * 

* * 
- *********** 



* CLEAR * 

* OPTION BITS * 

* IN CRTFLGHC * 

* * 
***************** 



K1 



NO 



X...*. INITIAL IPL 
. *. .* 

*» .* 
X *. .* 

* »ES 



***** 
*G« * 
* C2*NVSBRR 



* SET * 

* OPTION BITS * 

* IN CRTFLGHC * 

* * 
***************** 



***** 
*PG * 
* »1» 

* * 



290 DOS/VS IPL and Job Control Logic 



Chart PK* $JOBCTLJ - UPSI, PAUSE, LOG, and NOLOG Command 
Refer to Charts 18 to 20. 



* UPSXPROC * 

*************** 



*.*B2******* 



UPSIPROC X 

^*«***B15*»******* . _,, 
"*idHB2t P2*IlfVALIl!* 

»-,-*.*.«.«.*. *-*DRLIMITBB * SET PAUSE • 

* POINT TO *.... *POR NEXT ENTRY *X. 

* OPERAND * . * SNITCH ON * 

* -NNMHNNHN- • . * * 
***************** . *********** 



****A5********* 

• LOG * 

* * 
*************** 



US ?. 

.* MAS *. 

.* STATEMENT *. 

.FROM OPBRATOB. 

*. *P4 .* 





.VALID 




**•* 


.DELIMITER . 


*PG ♦ 




* J1 


•.X* 




* * 




***♦ 


X 




SYS0PT1 


• *• 
CI *. 


• 


. > VALID *. 




.* 


LENGTH *. 


NO . 


• 1-8 


CHARACTERS. 


*..x. 


< 


• 




*. .* 


X 




* ybs 


***** 
*6M * 
* C2* 



**C3******* 
* • 

• SET SISLOG * 
•INPUT INDICATOR* 

* OH JCSM1 • 



**£lt******* 

* * 
SET JCStM 
TO LOG ON 

SYSLOS 

* * 
*********** 



«*£!>******« 

* * 
SET JCSM4 

TO WRITE TO 
SYSLST 

* • 
*********** 



*****oi* ********* 



• ON AND L 

* *J2 * 

***************** 



«***D3********* 

• B8ANCH TO * 

• CONTROL IN * 

• SJOBCTLA * 

*************** 



***************** . 



HIS 
BiCT 



* OB BIT ON 

* USING MASK 

* IN HRKRG3 

* * 
***************** 



P2 *. 




.♦ IS *. 




NO .* THIS * 


. NO 


..X*. CHARACTER 

*. A .* 


*.... 




*. .* 




*. .* 


X 


* YES 


***** 




*GH * 




vr 








NVSEBR 


BTOPRT X . 




*****(S2*********« 


* 


* 


• AND BIT OPP 


* 


* USING MASK 

• IN HRKRGH 


* 


* 



***************** 



JOB CONTROL SWITCH 
NO. 4 IS CHECKED 
POR OPERATOR 
COMMUNICATIONS. 



****G<* ********* 

* * 

* NOLOG * 

* * 
*************** 



NXtBIT X 

*****H1********** 

* SHIPT HRKRGJ * 

* AND HRKRGU * 

* RIGHT ONE BIT * 



TO CONTROL 

* NEXT UPSI BIT * 

«******•**•*«**«* 



*****j 1********** 

* INCREMENT * 
•POINT1 TO POINT* 

• TO NEXT CHAR • 

• OP UPSI PARAH • 

* . * 
***************** 



.* MAS *. 

.* STATEMENT *. YES 
*.PBOH OPERATOR.*.... 
*. *P«» .* 



*J2 
POINT3 
HRKRGJ 



LOOP CONTROL 
BIT ON MASK. 
HEX 0080 
BIT OP" - 



• TURN OPP 
• LOG SNITCH 

* IN JCSW4 

* * 

*********** 



I'URN OPP 

LOG SNITCH 

i.N JCSN1. 

* * 

*********** 



K1 ♦. 

* *. 




LAST * 
UPSI CHAR . 
CHECKED .* 
*. .* 


YES 


*. .* 
* NO 


XSBTBXT 

***** 


\ 


«PG * 
* A1* 



• D3 * 

* * 
•*** 



**** 

* • * 

* El * 
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Chart PL* SJOBCTLJ - SET SVA Command Compatibility Processor 
Refer to Charts 18 to 20. 



***** 

*P6 * 

* D2* 

* * 



***** 
*PP * 
* K3* 



****j L 1*** ****** 

* * 

* SBTSfA * 

* *J1 * 
*************** 



SBTSYA 

*****B1********** 
*SCAHR3X PZ* 



***************** 



***************** 



**** 




*pp * - 




* C3 *.I. 




* * 




**** x 




BVSBRRl .*„ 




B2 *. 


**•• *B3********** 


.* *. 


♦HSGJOT 6J* 


.* STATBBEBT *. IBS 


*. FBOH SYSRDR .* 


...X* O0TP0T * 


*. .* 


* STATBRBNT * 



m SYSLOG 
*********** 



.* at least *. ii 

*.1 YALID PRASE.*. 
■*., BABE .* 

*. .* 



*****B*** ******** 

* HO YE * 

* MESSAGE IT 101 * 

* INTO BUFFER * 

* *J2 * 

* * 
***************** 



SDLPOLL X 

•****&«>*•** ****** 

* BOFB * 

* IS* PA*T OP * 
...X* BBSSAGB 1T10I * 

* 1*10 B OFFER * 

* *J2 * 
***************** 



.X. 

X 

.*- 



IS *. MO 
THERE AN .♦.., 
. OPBBAND .* 



THE FOB HIT 



•****g1********** 

*SCANB3X pa* 

*-*-*-*-*-*-* -*-* 

•GET •GBTYSIZB)** 
♦PART OP COBB AND* 

* * 

***************** 



THESE AB 
. OPBBARD . 
*. .* 



NVSLST 

*****C3********** 
♦LSTdDT . ^ ^ GJ* 



. NO .* 


DOBS « 


X...*. OPBBAND END 


*.iITH •!• .' 




*. .* 


X 


*. .* 


***** 


* IBS 


*GH * 




* C2* 


.X.... 


* • 


X 


■ * 


***** 


NVSBBB 


•PG * 


OPBBAND 


* Al* 




* * 



•*** ************* 



*«D3******* 

* * 

* SIHOLATB 
* XBHPOBABI 

* OPTION LOG ' 



LOVBFL X 

**** *C4********** 

* INDICATE * 

* •SDL OYBBFLOtf* * 

* • 

* * 
***************** 



***************** 



BYS1 X 

*****B2** ******** 

* ADD •OPIICB* * 

* TO OPBBAND * 

* MOBBSB * 

* IB BBSSAGB * 



OUTPUT BBSSAGB * 

1S03D ON SYSLOG* 

m *J2 * 

***************** 



*1Si 



*LST( 

*-*-« 



,2**' 



******** 

*-*-*£* 



***************** 



***** 
*pp * 

• B2* 



*** *B3********* 

* * 

* vBAIIBHR * 

* • 
*************** 



SBAINBBB X 

**** *P3** ******** 

* BAKE * 

* BETOBB CODB * 

* PRINTABLE * 

* IK BBSSAGB * 

* * 
***************** 



*****Q3********** 

*BSGG0T GJ* 

*-*_ *_*-*-*-*-*-* 

♦OUTPUT BBSSAGB * 
*1SS0I ON 3 I SLOG* 
* *J2 * 

***************** 



**** 403********** 

♦LSTOOT GJ* 
*-*- *-*_*_*_*-*-* 
*O0T£0T BBSSAGB * 
♦1S5<A ON SYSLSY* 



*PP * 
* A2* 
* ♦ 



****^5********* 

* • 

* FRORfcT * 

* • 
*************** 



*****U4********** 

* BOfB * 

* BBSSAGB 1S52I * 
*TO OUTPUT ABBA * 

• *J2 * 

• * 
***************** 



.*. DIRECTORY 
*. POLL 

*. .* 



*****U5********** 

* BOfB * 

* BBSSAGB 1SS1I * 
•TO OUTPUT ABBA * 

* *J2 * 



*J1 
IGNOBE SET SYA COBBAND 
AND CHECK FOB NEXT 
OPBBAND 



*J2 

TBSSAGBS PBOB SET SDLS 
S20D INYALID PHASE 
INFOBHATIOl 
1S50A ERROR DO RING 

SDL UPDATE, RC=XX 
1S51I BNTBR PHASE BABE 



08 *l 

ENTER */ 

IT 101 SDL IS POL 



1S52I ENTB1 



*** *j3********* 

* BET DEI * 

* 10 CALLER * 

* * 
*** ************ 



*****j (>********** 
*HSG0UT GJ* 

*O0TP0X BBSSAGB * 

* ON SXSLOG * 

* * 
***************** 



****KS********* 

* RETURN * 

* TO CALLER * 

* ' * 
*************** 
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Chart PH. $JOBCTLJ - STOP Command Processor 
Refer to Charts 18 to 20- 



* AJ * 

* * 
**** 



**** 

* * 

* Ab * 

* * 
**** 



****A1********* 

* * 

* STOP ♦ 

* * 
*************** 



.* HULTI- 


* 


. NO 


*. PROGRAMMING 


.*.... 


♦.SUPPORTED. 


* 




*. .* 






*. .* 




X 


* IRS 




***** 

♦G* * 

* C2* 

* * 

* 

NVSERR 


X 






*****C"| ********** 


♦HTNCNT 


GO* 


* RELEASE 




* 


* THE SYSTEM 




• 



**A3******* 

* * 
* TORN ON 

* NO-ACTIVE- 
♦PARTITION SN 

* * 
*********** 

**** * 
*> * 

* B3 ♦ .X. 

* * 
**** 

ACCTIGN7 X 

*****B3*********> 



**************** 



HAITR X 

*****A5********** 
♦HTNCNT GU* 



*********** 



***************** 



I/O *. 
ON SYSLOG . 
.COMPLETE .* 



**£1****** 

* TURN OFF 
RDIMSK 
IN JCSHl 
BIT 2 

* 
********** 



.* JOB ♦. 
.♦ACCOUNTING *. NO 
. INTERFACE .*.... 

*. SUPPORT .♦ 



**G1******* 

* * 

♦ SET BRANCH 
AT -ACCTBR6- 

* TO NOP 

* * 
*********** 



*****H1 ********** 

♦ PICK UP ♦ 

♦ NUMBER OF * 

♦ PARTITIONS * 

♦ FROM ACCTPCNT * 

♦ * 
***************** 



*****Q2********** 

* * * * 

* * SVC 7 * * 
•X* * WAIT ♦ * 

* * * * 

* * * * 
***************** 



**C3******* 

* * 

ZERO 

REGISTER 

(DISABLE) 

*********** 



*****!) j********** 



***************** 



*****g3********** 

♦ DECREASE * 

♦ NUMBER OF * 
♦ACTIVE VIRTUAL * 

♦ PARTITIONS ♦ 

♦ BY 1 * 
***************** 



**F3******* 

* * 

* TURM ON 
STOP COMMAND 

♦ FLAG 

* * 
*********** 



*****Q3********** 

* * 

* LOAD ADDRESS ♦ 

* OF STOPHAIT * 
♦INTO REGISTER 1* 

* * 
***************** 



**H3******* 

♦ LOAD ♦ 

X'FF' INTO 

REGISTER 

(ENABLE) 

*********** 



.♦ HILL ♦. 
YES .♦THIS a& THE*. 
...*. ONLY ACTIVE .* 
♦. PARTITION. ♦ 



*****D !j*********i 



INCREASE 

ACCTPCNT 

BY 1 



ACCTLV1B 

**£S******* 

* TURN OFF ♦ 

* NO-ACTIVK- 
* PARTITION 

♦ SNITCH 

* * 
*********** 



* GET ♦ 

* PARTITION ♦ 

* ACCOUNT TABLE ♦ 

* * 
***************** 



*****J 1********** 

* * 

* DECREASE ♦ 

* NUMBER BY 1 ♦ 

* * 

* * 
***************** 


ACCTU 

** 

* 
* 


POT 

***K2********** 

* 

STORE ♦ 

NUMBER IN ♦ 

ACCTPCNT ♦ 

* 

*************** 

X 

**** 

* * 

* B3 ♦ 

* * 
**** 


*****j 3********** 

* * * * 

* * SVC 22 ♦ ♦ 

* ♦ RELEASE * ♦ 

* ♦ ENABLE ♦ ♦ 

* * * * 
***************** 




X 
.♦. 

K1 ♦. 

.♦ ♦. 
.♦ ♦. YES 


X 

.♦. 
K3 ♦. 
.♦ ♦. 
.♦ STOP ♦. YES 

*. COMMAND .* 

♦. FLAG OK .♦ 
♦. .* 
♦. .♦ 
♦ NO 

X 

**** 

* * 

* A5 ♦ 

* * 
**** 


•****K nm ********* 

* * * * 

♦ * SVC 7 * ♦ 
..X* * WAIT * ♦ 


*. .♦ 
*. .♦ 
♦. .♦ 
♦ NO 

X 

**** 

* * 

* A3 ♦ 

* * 
**** 


* 

** 


* * * * 

* * * * 
***************** 



****H 5*********i 



*************** 



****j !>********* 

* BRANCH TO ♦ 

* CONTROL IN * 

* *JOBCTLA ♦ 
*****••**•****« 
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Chart PN. $JOBCTLJ - CATALR Statement Processor 
fiefer to Charts 18 to 20. 



****A1*** ****** 

* » 

* CATAL * 
*************** 



CATAL .♦. 

B1 ♦. 
-♦ IS *. 
.♦OPTION LIHK*. 
*. CARD 

*- PBBSBBT .♦ 



***** 
♦PV * 
* p3« 

* * 



**** 

* ♦ 

* 82 * 

* * 
**** 

T X 

**B2******* 

* * 
BODIFX 

FOB POBCH 
STACKER 2 

• * 
*********** 



* B3 * 

♦ * 
**** 



Btl X 

*****B3********** 

♦VBB<?CK PM* 



♦PICA OP VBBSIOH* 
♦BOBBER AID MBIT* 
CHABACTBB 



*****B 4****** **** 

* COflVBBT fBBS * 

* BO. TO BIBABX * 

* ABU STOBB IB * 
« BETBI ABBA « 

* FOB V.H * 
***************** 



****45«* ******* 

* • 

* WflBUCK * 

* * 
*************** 



ffBBBCK 

*****K5***«****** 

♦ CLBAB HA RBG2 * 

♦ AMD SKI * 

• IBDBX BEG FOB * 

* A 3-CHAR * 

* SCAB * 
***************** 



**Cf ******* 

* * 

* SET CATALR * 
♦ OPTIOl Si ITCH * 

* JBCSB5, * 

* BIT OB * 
*********** 



.* IS BBXT 

'• CBAB A 

*. PBBIOD 



BXTOPBD X 

*****g i********** 

♦SCANR2X PZ* 



********** ******* 



X 
.*. 

F1 ♦. 

.* * 

* OPEBABD 

DBLIHITBB , 
♦. BLANK 



D2 ♦ . 


**** ^3********** 


.♦ IS *. 


• 


STORE VBBSI0B * 


.* DEVICE A ♦. BO 
♦ . 1442 B2 ...... 


♦BO. IB COBVBBT • 


* 


BUCKET ABD * 


♦. .* 


* 


P03BT TO MEET * 


*- .♦ 


♦ 


CHABACTBB * 


♦. .♦ X 


**** ************* 


* IBS ♦♦♦♦ 






**♦* . * * 






• * . ♦ F2 ♦ 






* E2 *.X- * * 






* ♦ . ♦♦♦♦ 






*♦♦♦ 




X 


T1442 X 




.*. 


**B2******* 




B3 ♦ . 



* BODIFX CCH * 
♦FOB PDMCB 1442 ♦. 

♦ STACKER 2 ♦ 

♦ ♦ 

*********** 

**** 

* ♦ 

* F2 ♦... 

* ♦ 
**** 



.♦ 



„♦. 
F2 ♦ . 
1 IS ♦. 
DEVICE < 
TAPE 

. J 
.♦ 
♦. .♦ 
♦ IBS 



•*G2******* 



ABI 


♦ . BO . 


* 


BODIFX 


OPBBABDS 


.♦..X. 


• 


CCB FOB 




.♦ 


♦ 


TAPE 


♦. .♦ 




♦ 




♦. .♦ 


X 


* 


******** 


♦ TBS 


***** 








♦PV ♦ 








♦ as* 




.X.. 




* * 




X 




* 




***** 


X 


IVSBBR 




*PD ♦ 


.♦. 






♦ C2^ 



P1CKOP HOD 
LEVEL ABD 
SBXT CHAB 



.♦ BLANK ♦. BO 

♦. FALLOWS BOD -♦..! 

♦. LBfBL .* 



•****l)4********** 

♦ COBVEBT BOD ♦ 

♦ LEVEL TO ♦ 

♦ SIM ABI ABD ♦ 

♦ STOBB IB ♦ 

♦ ABBA FOB V.B 



B4 ♦. 
.♦ ♦. 

IBS .♦ IS ♦. 

I....*. BOD LEVEL .♦ 
♦. 6T 255 .♦ 
♦. .♦ 

♦. .♦ 
♦ BO 



* B2 ♦ 

* ♦ 
♦♦♦♦ 



IBS .♦ CHAM 
...♦. VALOE LI 
♦. GT 9 



*****D5** ******** 

♦ POT THE CM AH ♦ 

♦ IB BKBEG4 ♦ 

♦ ABD SET PTR ♦ 

♦ TO BEAT ♦ 
CHAB 



.♦ HATE ♦. MO 
. DIGITS BEEN .♦.. 
♦. TESTED .♦ 



VHBBD 

•***PS********* 

* ♦ 

♦ BETOMB • 

• ♦ 
*************** 



X 
***** 
♦PV ♦ 
♦ B5* 



.* 
„♦ 
IBS 



♦ B2 ♦ 

• * 

♦♦♦♦ 



**** «u3********** 

♦ STOBB BOD ♦ 

♦ iEVEL IB ♦ 

♦ CONVERT ♦ 

♦ BOCKBT ♦ 

♦ ♦ 
*♦** ************* 



***♦ 

♦ ♦ 

♦ B4 ♦ 

♦ * 
**** 



. ♦V.B o OPEBABD*. IBS, 
. COHBIMATION .♦. ~ 
♦.TOO LOBG .♦ 



► . .♦ 


X 


♦ HO 


***** 




♦PV ♦ 


I IVSBBR 


♦ B5^ 


X 


* * 


**** 


* 


it * 




' B3 ♦ 




% ♦ 




**♦♦ 
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Chart PP.* $JOBCTLJ - SETSDL Statement Processor 
Refer to Charts 18 to 20- 



**** 

* * 

* * 
**** 



* At> * 

* * 
**** 







NXTENTRY X 








**A2******* 


****Ai********* 


* * 


* 


* 


♦IF SIMULATED * 


♦ SETSDL 


• 


* OPTION LOG- *X... 
RESET TO NOLOG* 


* 


« 


*************** 


* * 






*********** 

* 
**** . * * 


**** * 




*PG * 




♦PL ♦ . ♦PL ♦ 


* E2 ♦ .X. 




♦ (12 ♦.X. ♦ £<♦♦ 


* * 




* * ***** 


**** 




**** x 


SETSDL X 




NXTENTRX .♦. 


*****B 1******** 


«* 


B2 ♦. 


* MOVE 


* 


.* *. 


* PHASE NAME 


* 


.* INPUT ♦. NO 


* »NONE» INTO 




..X*. PROM SYSRDR ...... 


* MESSAGE 1T10I 


* 


♦.EXPECTED .* 




* 


* 


♦ . .♦ 




*************** 




♦. .♦ 
**** * YBS 

♦ ♦ 

♦ B2 ♦ 

♦ ♦ . 




X 




**** 






X 




CI *. 




m****Q2********** 




.* *. 




♦PROMPT PL^ 




NO .♦ BG * 




*-*-*_*-*-*.*_*.* 




...*. PARTITION 




♦ PROMPT FOR ♦ 




*. .* 




♦NEXT PHASE NAHE^ 




*. .♦ 




♦ OR /♦ ♦ 




♦. .♦ 




***************** 




♦ YES 




*x 




OPERANDS '. 






FOLLOWING X 




GETNAMB X 


*****Di********** 


*****D2********** 


♦SCANR2X PZ* 

gt -m * * 4t — £ «• £ dm ft — £ — •- * 


♦RDSTMT FM* 

*_*_*_*_*_*_*_*_* 

♦GET PHASE NAME ♦ 


* GET OPERAND 


* 


* •CREATE" 


* 


♦ STATEMENT ♦ 





*•** 

* * 

* C3 ♦ 

* * 
**** 



PHASE 

NAME 

VALID 



***************** 
.LAST 
.OPERAND 



E1 ♦. 
.♦OPERAND^. 
= •CREATE" 

OR NO 
. OPERAND . 



********: 



***** 

♦PL ♦ 
* B2^ 



**** 

* * 

* A2 ♦ 

* • 
*•** 



*****AU********** 

* SET * 

* EQUIVALENT * 

* STDWTYPE ♦ 

* IN SDL ♦ 

* * 
***************** 



SDLMEXT 

*****B<4*********> 

♦ MOVE 

♦ PHASE NAHE 

♦ IN MESSAGE 

♦ ITlOI 
* 

****************: 



* UPDAfE NUMBER ♦ 

♦ OF ENTRIES ♦ 

♦ IN SDL ♦ 

* * 
***************** 



*****D4********* 



***************** 



*Ab******* 



*■ uriiun i«vsu . •» 
BESET TO NOLOG^ 



*********** 



*****B5********** 

* IF STATEMENT ♦ 

* FROM OPERATOR ♦ 

* UNASSIGN ♦ 

* TEMPORARY ♦ 

* SYSLST ♦ 
***************** 



♦ ALL ♦ 

PHASE NAMES 
♦. IGNORED .* 



*****D5********** 

♦ LOAD *MAINDIF ♦ 

♦ IF SYSBBS=PBA ♦ 

♦ ELSE LOAD ♦ 

♦ >NAINDIR ♦ 

♦ * 
***************** 



***** 
*GH ♦ 
* C2^ 



NVSERR 

SDL2 X 

*****j?1********** 

* * 

* INDICATE * 
♦BUILDING OF SVA^ 

* IN PROGRESS ♦ 

* * 
***************** 



ENOUGH 

ROOM IN 

SDL 



E2 ♦. 

.* * 

/& OR /* 



.♦ WAS ♦. 
THERE A ♦. 
DIRECTORY . 
.OVERFLOW .♦ 



G2 ♦. 

.♦OPTION ♦. 

.♦LOG ACTIVE ♦ 

. OR 1ST STMT 

♦. AFTER .♦ 

♦. IPL .♦ 



**** 
* 
♦ A5 



SDLFULL 

*****ti 



******** 



**********: 



**** 

* * 

* B2 ♦ 



♦ YES 



*****H2^****^**** 
♦LSTOUT GJ^ 
*.*-*-*..* _*„*.*_* 

♦ LOG STATEMENT ♦ 

♦ ON SYSLST ♦ 

♦ * 
***************** 



INITSCAN X 

*****j2* ********* 
•SCANR2X PZ^ 

*-*-*-*-*-*-*-*-* 



*****E3********** 

♦ * 

♦ GBT POINTER ♦ 

♦ TO NEXT ♦ 

♦ SDL ENTRY ♦ 

♦ * 
***************** 



*****P3********** 

♦ CLEAR ENTRY ♦ 

♦ AND HOVE ♦ 

♦ PHASE NAME ♦ 

♦ IN IT ♦ 

♦ * 
***************** 



*****Q3********** 

♦ IF SYSRES ♦ 

♦ IS FBA. ♦ 

♦ SET USER ♦ 

♦ DATA LENGTH ♦ 

♦ * 
***************** 



ENOUGH 

ROOM IN 

SDL 



ALIGN X 




*****£5********** 




* * 


NO 


* CLOSE SYSLST ♦ 


♦ .... 


♦ IF ASSIGNED ♦ 




♦ TO DISK ♦ 




* * 


X 


***************** 


***** 




♦PL ♦ 




♦ A«»* 




* * 




* 




ERR1T10I 






X 




*****? 5********** 




* * * * 




♦ ♦ »NAINDIR ♦ ♦ 




♦ ♦OR fMAINDIF^ ♦ 




♦ ♦UPDATE SVA ♦ ♦ 



***************** 



*********** 



***************** 



SNITCH 
INPUT TO 
SYSRDR 

* * 

*********** 



**** 

* * 

* C3 ♦ 

* * 

**** 



*****j3********** 

♦SCANR2 GK^ 
*-*-*-*.*-*.*-*-* 

♦ GBT STOWTYPB ♦ 

♦ OPERAND ♦ 

♦ * 

***************** 



K3 ♦. 

* 

•SVA* 



♦ A2*NVSERR2 .X.... 
♦ ♦ X 

* **** 

* * 

♦ AH ♦ 

**** 



**H5******* 

* * 

♦ INDICATE 
♦ SVA BUILT 

♦ FINISHED 

* * 
*********** 



*****j5********** 

* IF STATEMENT ♦ 
♦FROM OPERATOR, ♦ 

* REASSIGN ♦ 

* SYSLST ♦ 

* * 
***************** 



****K5********* 
BRANCH TO ♦ 
CONTROL IN ♦ 
♦JOBCTLA ♦ 

*************** 
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Chart PQ- 3J0BCTLJ - ALLOC(R) Statement Processor (Part 1 of 2) 
Refer to Charts 18 to 20- 



****A 1********* 

* * 

* ALLOC * 
*************** 



INITIALIZE 

PARTWA USING 

VPARTAB 

********** ***** 



***«A2********* 

* • 

* ALLOCR * 
*************** 



* INITIALIZE * 

* PARTWA USING * 

* BPARTAB * 

* * 
***************** 



*****£ 1*********1 

♦ 

* SAVE MB OP 

* PARTITION 

* POINT TO 

* APL LIS 

**************** 



**** 
* D1 * 



GBTPID X 

*****D1 ********** 

♦SCANB2 GK* 



***** 
*GH * 
* C2* 



♦J2 

VIA BOUTINS CHKPABf 

ON CHART PR 



.* CHECK ♦ . 
.♦AND CONVERT*. 
.PARTITION ID .* 
*. *J2 .* 



X 

***** 
*G« * 
* C2* 



*****£ 1 ********** 

* * 

* STORE * 

* PARTITION NO. * 

* IN APL * 

* * 
***************** 



GBTK X 

*****B3********** 
*SCANR3 GK* 

*-*-*-*-*-*-*-*-* 

* GET OPERAND * 

* »NK» * 

* * 
***************** 



OHITTBD 

*. .*' 
*. .* 



* c» * 

* * 
•*** 



E3 *. 

.* IS *. 

.* DELIMITER 

*. A COHHA OR 

*. A BLANK . 



****G3*********' 

DECREMENT 
LENGTH 
BY ONE 

*************** 



J3 *. VALOE 
.* CHECK *. TOO. 
.♦AND CONVEBT*. HIGH 
K-BYTBS .♦. * 
♦. ♦JS .♦ 



***** 
*GM ♦ 
* C2* 



***** 

• GH * 

♦ C2* 



****D«********** 



**************** 



***** 
*PB * 
* B1* 



*****pi(* ********* 

* * 

* POINT 10 * 

* NBXr ENTBY ♦ 

* IN PABTITION * 

* TABLE ♦ 
***************** 



*****(» it******* 
* 

* POINT TO 

* NEXT 

* APL ENTRY 
* 

****************! 



END 

OP APL 

LIST 



* D1 ♦ 

* * 

**** 



♦J5 

VIA ROUTINE CHKUdXTE 

ON CHARI PH 



****K3********** 



***************** 
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Chart PR, $JOBCTLJ - ALLOC (R) Statement Processor (Part 2 of 2) 
Refer to Charts 18 to 20.. 



*PQ * 
* E4* 



CHKKBKTK * 

* 
*************** 



•***B1 *********l 

INDICATE 

VIRTOAL/REAL 

(REGO) 



KPART 
***** B 



****C 1********** 



**************** 



****£) 1********** 



i***'************* 



***E1*********i 



**************** 



3*******«*i 

• POIHT TO 

• PARTITION 

• TABLE 

* 
**************** 



*****C3********** 

* SET * 

* PARTITION * 

* COUITBR * 

* TO ZERO ♦ 

* * 
***************** 

**** 



F1 * 

* 

ROO 



*****Q2********* 

* 

* FLAG TABLE 

* BNTRX AS 

* OCCUPIED 

* 

********** ****** 



****g2********* 

* RETURN • 

* TO CALLER * 

* *H * 

*************** 



****p 2********* 

• EXIT * 

• TO CONTROL * 

• * 
*************** 



****£3********** 

* 
INCRBASB * 
PARTITIOM * 
COUNTER * 

* 
*************** 



***************** 



*E5********** 



****P4********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



* ALL 

CHARACTERS 
*. HOVtfD . 



>****Q1********** 

* 

HAKE * 

RETURN CODE * 

PRINTABLE * 

* 
**************** 



*****j i********** 



HOVB HBSSAGE 

'^01D OR 1P02D 

TO BUFFER 



*1P01D OR 1P02D * 



****K1********* 

* BRANCH TO * 

* ERBTM IN * 
» SJOBCTLA * 

*************** 



* HOVE 4 * 
.X* HBSSAGE 1P03I * 

* TO BUFFER * 

* *J3 * 

***************** 



*****j2********** 
*HSGOUT GJ* 

*.*.*.*_*-*.*.*_« 

•OUTPUT HBSSAGE * 

• ON StSLOG * 

* * 
***************** 



****K 2* ******** 

* BRANCH TO * 

* CONTBOL IN * 

* BJOBCTLA * 

*************** 



* NEXT ENTRY * 

* IN PARTITION * 

* TABLE * 

* * 
***************** 



**** 

* * 

* 03 * 

* * 

**** 



*J3 
HBSSAGBS 
1P01D INVALID ALLOCATION, 

RC*XX 
1P02D INVALID ALLOCATION, 

RC*XX 
1P03I ALLOCATION COMPLETED, 

HARNING RC=XX 



*****£»>***•****** 

* PACK AND * 

* CONVERT VALUE * 

* TO BINARI. * 

* ROUND IT IF * 

* ODD * 
***************** 



****U5********* 

* KKl'UttN * 

* TO CALLiSR * 
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Chart PS, $JOBCTLJ - SIZE Command Processor 
Refer to Charts 18 to 20, 



•♦•♦4 f ********* 

* * 

* SIZE * 

* * 
*************** 



****A4l********* 

* * 

* SETUP * 



**** 



**** 
SUB X 

*****B i********** 



************* **** 



*****£ i********** 
*SCABB2X PZ* 

*-*-*~*-*-*-*-*-*HOT 

* GET PABTITION * 

* IDENTIFIES ♦FOOID 



***************** 



*****C«** ******** 

* .. * 

* POUT * 

* BBGISTBB 1 * 

* TO SLPL * 

* * 
***************** 



*****D4*********i 



INfVALI 

*****g5*********« 

•CONVHBX PI* 

*_*_*_*_*_*_*_*_* 

..X* CONfBBT * 

*BBI0BN CODE TO * 
* PBINTABLB * 
***************** 



*****Cf>*********« 

* aors * 

♦PABTITION BABE • 

* AMD CONTESTED • 

* BBTOBN CODE * 
INTO BESSAGE 



* CHECK AMD 

* CONTEST 

* PABTITIOM ID 



INfSTNl 

*****B2** ******** 

* IHCBBASB * 
OTHBB *LBNGTH OP LAST * 

* .X* PABABBTEB TO * 

X * GET DBLIHITEB * 

♦ * 
***************** 



.GSTSIZB X 

*****? •)********** 

BOT*SCABB2X PZ* 
jpffD*-*-*-*-*-*-*-*-* 

,* GET * 
* SIZE VALUB * 



*****<; i***#****** 
TALOB*CBK KBITS PB* 
TOO *-*-*-*-*-*-*-^ ^ 

....* CHBCK AND 
HIGH * COBTEBT 
"-BITES 



.OK 



*****g i*** ******* 
♦SETUP PS* 

*-*-*-*-*-.*-*-*-* 

* SET OP * 

♦ AMD PEBFOBB * 
•SBTLIBIT HACBO * 
***************** 



LOOPS3 
COHHA 



* Bl * 

• * 
**** 



* bote * 

•LAST PABAHBTBB *X. 

* IBTO BBSSAGB * 

* * 

***************** 



*****G2********** 

* * 

* aoiE * 

* MESSAGE 1P05D * 

* INTO BUFFER * 

* *J3 * 
***************** 



*****I12********** 
•BSGOOT 6J* 
*-*.*-*-*-*-*.*-* 

* ODTPDT * 

* HESSAGE * 

* * 
***************** 



INVSIN2 X 

*****B3********** 

• SBT PABABBTBB * 

♦ POINTBB TO * 

* ■OPBBAND * 

♦ fllSSIIG' * 



*****K4********** 



P« *. 

.* *. 
* IS THE *. 

BETOBN CODE 
*. ZBBO .* 

*. .*■ 

*. .* 

IBS 



*****j)S********** 

* * 

* ao¥K * 

* BBSSAGB 1P04D * 

* INTO BOPPB& * 

* *J3 * 
***************** 



* TO CALLBB * 

* * 
*************** 



*J3 
MESSAGES 

1P04D IBfALID SXZS VALOB 
FOB PABTITIOM XX. 

1P05D SI4IAX BBBOB IN 
SIZE STATBEBNT - 
XXXXXXXX 



****K1********* 

* CONTROL IN * 

* BOOT PHASE * 

* * 
********* ****** 



298 D.0S/VS IPL and Job Control Logic 



Chart PT. $JOBCTLJ - Subroutines 

Refer to Charts 18 to 20.. 



****a i********* 

« * 

• TXC0O • 

* * 
*************** 



* HEXCOB * 

* * 
*************** 



•***A£********* 

• CN0NCO1 • 

••****•**••**•• 



HBXCOM 
■O .*" 



TXC00 X 

*****£ 1*** ******* 
tflBXCOf PT* 

*.5Z«-S-*.. *-* _*_* 
•CONVERT HBX CUU* 

* TO BINART * 

* * 
***************** 



TICDO 1 X 

*****D1*** ******* 

* SEARCH PUB * 

* TABLE FOB • 
♦DBSIBBD DEVICE.* 

* SEARCH FOB • 

* COO * 
***************** 



MO .* DEVICE * 
...*.FO0ND II POB 
*. TABLE .* 



fiLID ♦. 
POBHAT 

*K1 .* 



•••* *$3********** 



* P Jl«T2 FOR *X 

* SXsIPT TABLE * 

* BNTRT * 
***************** 



.* SXSIM, 

*. sxsxxf, 

*.OB OTHER .* 



.• 


. 


.* 


X 


* sxsxxx 


***** 




•GR * 


• 


* C2* 



** ** *c 2***** ***** 

* COMVBRT * 

* EBCDIC TO HBX * 

* AMD SBT OPPBR * 

* CHECK LIBIT * 
TO FF 



FRGONT 

*****C$********** 

• HIT REGISTER * 

♦FOR FR06RABHER * 

...X* OMIT * 



.X. 



*****D 2** ******** 
•CHKRNG JH* 

*-.*-*-*-*-*-*-*-.* 

* CHBCK * 

* CHARACTER * 

* RANGE * 
***************** 



-* CHECK *- 
.* FOR CHAR *. 
RANGE .* 
*.P0 TO FF .* 



**** «f>3********* 
* 

* ADDRESS 

* NEXT 

* BMTRI 
* 
******** *** ***** 



PDSfSU X 

*****j)i|** ******** 

* LOOK OF SIS * 

* OMIT IB * 

* SISTER OMIT • 

* TABLE SISOTB • 

* • 
••***•**♦*•**•*** 



*PV * 

* C3*DNBBRR 

* * . 



TXCD02 X 

*****f1********** 

* SAVE DEUCE * 

* TTPB AND FOB * 

* ADDRBSS. COB- • 

* POTB THB POB * 
♦POINTER. *H1 



X 


*. .* 




***** 


***** 




* XBS 




•GB * 








*P? * 


* C2* 








* C2* 


* * 








• * 


• 








* 


NVSBRR 




X 




NL0BR1 


•****P2********** 




• 






* 




* 


PACK HBX 


• 




• 


TO 


BINARI 


• 




* 


IN 


IOBGSA 


• 





****G 1********* 

* RBTORN TO * 

* CALLING * 
SEQ 

"*** 



***************** 



****Q2** ******* 

* RBTORN TO * 

* CALLING * 

* SEQ * 
*************** 



DNTFND X 

*****F4********** 
•SBT OBIT CLASS * 

* AND SISTBH * 

* CLASS IN SAFE * 

* AREA ONCLOR * 

* *H2 • 



****C4********* 

* RETORH TO • 

♦ CALLING * 

********** 



CMBNC01 X 

*****DS»********** 
*NOBCON PO* 

*-•-*—*-*-*-*—*-* 

* CHECK XXX AND • 

• CONVERT TO • 



*****X$** ******** 

* SAVE * 

* PROGRAMMER • 

* OBIT MOHBER * 

* IB ONCLOR * 

* * 
***************** 



.*. 

Fb *. 
.* IS *. 
NO .* UNIT *. 
...•.MORBER IN LOB.* 
*. TABLE .* 
*. *J2 .* 
X *. .* 

• xks 

•PV * 

* C2* 

* * . 

* 

NLOBBR 

*****ttb********** 

* • 
•SET PROGRAMMER * 

* CLASS IB BITE • 
•0 OF UMCLOR *H2* 

* * 
***************** 



•HI 

1. THE DEVICE TYPE IS 
SAVED IN DVCTTP 
FROM THE POB. 

2. THB POB ADDRBSS IS 
SAVED IN REGISTER 
POINT*. 

3. THB FOB POINTER IS 
COHPOTBD IN NRKRG3. 



•H2 
THB STSTBH CLASS. NICL AND FICL 
POINTER. IS SBT TO A 1 IN 



ruxn&ni as 3A 
ONCLOR BITE 0. 



*H« 
1. POINT 1 IS 

1NCRBBBBTED BT 

3 TO POINT TO TBS 

FIBST CHARACTER 



INITIALIZED TO 

A 2 AS A CHARACTER 

COONT REGISTER. 



•***H5********* 

* RETORM TO * 

* CALLING • 

* SEy * 
*************** 



LOB POINTBR 



HE FUNCTION OF THB 
HB TABLB STSDTB, 
um\.M*j*, oiib v. x J HB STSTBH CLASS , 
NICL AND FICL POINTER. IS SBT 10 BBRO 
BBCAOSE THB BOOTIES IS HORKING BITH 
A STSTBH OBIT. 



LOB POINTBR. IS THE 
SIS ARGOHENT IN THB 
ONCLOR. BTTB 0. THB 



*K2 
CHBCK ONLI LOBS 
FOR THIS PARTITION 



VALID FORMATS ARE: 
X a HNN* OR NNM. IM 

THE SECOND FORMAT, 
LEADING ZEROS CAN 
BE OMITTED. 
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Chart PO. $JOBCTLJ - Subroutines 

fiefer to Charts 18 to 20- 



****l%*** ****** 
* OPDSAV * 



• * 

• LNKOQT • 



****14********* 

* « 

* BOECOB * 

* * 
*************** 



CRBRBI 

c 5bS w 



*****ci********** 
*cobp0tb address* 

* OF IBM ♦ 

♦AVAILABLE ABBA * 
•IB UBK OOTPOT • 
•BOPFBR »C2* 

***************** 



BOFFBR TO * 
STSLRK OOTPOT * 
ABBA 



•B2 

1. THE OLD BLOCK COUNT, 
BLKCBT IS SAVED IB 
REGISTER BRKR61. 

2. BRB BLKCNT BOOALS 
OLD BLKCIT PLOS 1. 



DISPLACEBBlT It 
00 TPOT ABBA. 
DISPLACBBBBT PLOS 
OOTPOT ABBA STABTIIG 
ADDRESS. L0KBF1. 

SOALS ADDRESS OF 
XT AVAILABLE ABBA. 



****«B%********** 
SBT BABGB * 
LIBIT IB • 



*•**&•>••**•**** 

* * 

* BINCON * 



BINCON _ 

*****j*5********** 
♦SCANR3X P2* 



SUS OOTPOT 
B10CK COUNT 

IB CITFLD 
PBOH BLKCBT 



•****C*********** 



;*****. 



.* 



•. 



*NKITB STATBBKNT* 
* Of SXSLNK * 



**** *B3********** 



' CHABACTBR ' 

BABGB FO 

. TO F9 .' 

*. .* 

*. .* 

• TBS 



*****B«********** 

* PACK IBTO * 

• IOBGSA ABD ♦ 

• COBVBBT TO • 

* BIBABX IB * 
BBKRG1 

-—****!-■ 



BBTOBB TO 
CALLIBG 
SBQOBICB * 

••»B********* 



*****P5*«******** 
•CONV PABABETBB • 

* TO BIBABX 10 • 

* BEGS POINT 1. * 
P01WC 2. ABD • 
P0IBT3 *JS • 



♦SET OP FOB BSG * 
..X* a INVAL.NOBBBIC * 
. * FIBLD-XX* * 

. * 



****G5********* 

* RBTO&M TO * 

♦ CALLIBG • 

• SEQOBNCB • 
*************** 



****H -| ********* 

* BETORR TO * 

* BRRRTR IB * 

* ROOT PBASB * 
*************** 



IF PROCESSING Lai. 
DATE OPERAND-- 
POIMT1 CONTAINS 
MB OR M> 
P01MT2 CONTAINS 
DD OR BB 

P0IKX3 CONTAINS XX 
IF PROCESSING TBB 
CLOCK OPBNAND — 
P0IBT1 COBTAIMS Bti 
P0IRT2 COBTAIBS Ba 
P01NT3 CONTAINS SS 
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Chart PV. $JOBCTLJ - Error Subroutines 
Refer to Charts 18 to 20.- 



REFERENCES J** 

TO PVB5: • 
PNG1, PNG3 * 
PNK1 * 



**g!j******* 



REFERENCES 

TO PVC1: 

1 PBA3, PBC3 

PBC3, PERU 



***J REFERENCES 
-,! TO PVC2: 



***** 
*PT * 
* B1* 

* * 



NDTERR X 

*****C1********** 

POINT TO * 

DESIRED * 

MESSAGE * 

1A20D * 

♦ HI * 

**************** 



NLUBRR X 

*****C2********** 

* POIRT TO * 

* DESIRED * 

* MESSAGE * 

* 1A40D * 

* *H1 * 
***************** 



DNEERR X 

*****C3********* 

* POINT TO 

* DESIRED 

* MESSAGE 

* 1A50D 

* *H1 
**************** 



*****C<4 ******* 

* POIRT TO 

* DESIRED 

* MESSAGE 

* IC30A *H1 
* 
************** 



*********** 



****Cb*********' 

POINT TO 

MESSAGE 

1S0UI 

*H1 

*************** 



X X 
X..X 



***** 
*PD * 
* G3* 



***** 
*PE * 
* DU* 



***** 
*PN * 
* B1* 



IRAERR X 

*****pi ********* 

POINT TO 

DESIRED 

MESSAGE 

1C10A 

*H1 

**************** 



****G1********* 

* BRANCH TO * 

* OERRTN IN * 

* SJOBCTLA * 
*************** 



**F2******* 

* NOP * 
ERROR 
EXIT 

EREXIT1 

* * 
*********** 



OTSERR1 X 

**F3******* 

* TURN * 

* AUTO 

* CANCEL SH 

* ON 

* * 
*********** 



REFERENCES **** 
TO PVG3: * * 
PDA2, PDB3 * * *.X. 



*****G2*********' 

* POIRT TO 

* DESIRED 

* MESSAGE 

* -1A70D 

* *H1 

****************! 



**** 

OTSERR X 

*****£ 3********* 

* POINT TO 

* DESIRED 

* MESSAGE 

* 1S10D 

* *H1 
**************** 



*H1 

MESSAGE. DESCRIPTION 

1A20D INVALID DEVICE TYPE 

1A40D INVALID LOGICAL UNIT SPECIFICATION 

1A50D DEVICE NOT-DEFINED 

1A70D INVALID DEVICE STATUS 

1C10A PLEASE ASSIGN-SXSRDR,SXSIPT,SISLNK- 

1C30A PROGRAM NOT FOUND 
1S00I INVALID STATEMENT 
1S10D STATEMENT OUT OF SEQUENCE 



****H3********* 

* BRANCH TO * 

* ERRRTN IN * 

* SJOBCTLA * 

*************** 
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Chart Ptf- $JOBCTLJ - Error Subroutines 
Refer to Charts 18 to 20.. 



****A3*******»* 

• * 

• COB V HEX * 
*************** 



**♦*!»»********* 

* * 

* CHKREADY * 

* * 
*************** 



CALCULATE THE 

LENGTH FIELDS 

FOE UNPK 



.* IS 

SXSLNK 
*. OPENED 



****C3********** 



**************** 



*****03**»******* 

♦TRANSLATE »TO» ♦ 
•INTO PRINTABLE * 

* CHAEACTERS * 

* * 
***************** 



****g3********* 

* RETDSN * 

* TO CALLER * 

* * 
*************** 



***************** 



*****£«*********' 
* 

* GET DEVICE 

* CHARACTBR- 

* ISTICS 
* 
**************** 



.* NOT *. 
.* READY OR 
. NOT OPERAT- 
«. IONAL . 



****F5********* 

* ftETURN * 

* £0 CALLER • 

* * 
*************** 



*G5 
MESSAGE 
1S»»2A INTERVENTION 



*****Gi t ********** 

* * 

* SET OP FOR * 

* MESSAGE 1S42A * 

* *G5 * 

* * 
***************** 



X 

***** 
»G« * 
* D2* 
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Chart PX» $JOBCTLJ - STDOPT Processor (Part 1 of 2) 
Refer to Chart 19- 



» A3 • 

**** 



•***A1********* 
•STDOPT 1 ** 

: « : 

mm******* ****** 



ROBBING 

IV BG 

.PARTITE)!. 



•A2 

THBRB IS A TABLE 
OP STANDARD OPT 10 IS 
OB CHART PT! 



VRNGPART 

*****B2********** 

* SET FOR * 

* MESSAGE 'NOT * 
...X* ALLOBBD IB PG * 

* PARTITIOB* * 



• GET OPT 10 V 



***************** 



***************** 



****C2********* 

* RETURN TO * 

* ERBTB IN • 

* ROOT PHASE * 
*************** 



IBS .* IS THERE *. BO 
.*. AB OPTION .*... 

*. .* 



CHECK FOR < 
aCAMSTOP 
. CHAR. - 1 
*. .• 



. OTHS * HOVE SCABSTOP * 

.* X*IBTO BRROBBODS * 

• FJJBLD • 



****A5********* 

* * 

* ALLCOBM * 

* * 
*****«******••* 



*****B5********** 

* * 
•GET A01IB OP 1ST* 

* PARTITIOB * 

* COBRKG * 



STGETOP X 

**** *c3********** 

*SCANR3X PS* 



GET OPBRAHD 



**** ************* 



•**• 

* * 

* P1 * 

* * 
**** 



*****P1********** 
*SCABR3X PZ* 

- .*-*-*-*-*_*-*-* 

GET OPTIDR * 



•SET OP FOR KSG * 
X* ^OPERAND • 

* HISSING* • 

* * 
***************** 

**** z 

* * .x 

* H2 *-I. 



.* IS THERE ' 
.*. A* OPSRABD 

*. .' 



S3 *. 

•• *• 

1BBGTH OX 



.* COBRBSPG. *. 

*.TAKLB BBTBI* .' 

•BRANCH *C4.* 



*****C5********** 

* BXECOTB * 

* TABLE * 
•1BSTEUCTI0B FOR* 

* THAT COHRBG * 



*****05********** 

• * 

COBR* POIBI TO MBIT * 

...» COHRBG * 

AIL* * 



•***fts********* 

* RBTBR* TO * 

* CALLBR * 

* * 
************ *** 
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*. 



BO .* OFBRAND 
X....*. iOOBD IB 

*. TABLE . 
*. .* 

*. .* 
. * IBS 



THB STDOPT TABLE COBTAISS FOR 

EACH OPTIOH ORB BBTRI. 

AB EBTRX COHTAIBS: 

THB OPTION, 

THB 1ST OPERAND (E.G. *IES») , 

AB IHSTBOCTION FOR IT, 

THB 2ND OPERAND 7e.G. •NO') . 

AB INSTRUCTION FOR IT. 

THB INSTRUCTION CAN BE ANI KIND OF 

4-BITB ASSEHBLBR INSTRUCTION, 

INCLUDING *BRANCH*. 



♦SET HP FOR HSG * 
X* 'INVALID * 

* STHT-XXX* * 

* * 
***************** 



**** *g3********** 

* BXBCDTB * 
•IHS1S0CTI0N OF * 
•TABLE BBTBX IF * 

* BRABCH * 

* *G« • 
**** ************* 



*****j1********** 



****J2********* 

• RBTORB TO • 

• BRRBTB IB * 

• ROOT PHASE • 
*************** 



•ALLU)HR 

*-*—*-*-! 



**** ************* 



* A3 • 

* * 
**** 



**** 

* • OTHS 

* B4 *X....* 



CHBCK FOB 
SCAN STOP 
. CHAR. .' 



****&H********* 

• RBTONB TO * 

* CONTROL IN * 
ROOT PHASE 
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Chart PY» SJOBCTLJ - STDOPT Processor (Part 2 of 2) 
Refer to Chart IS, 



The standard options are set by the instructions in the STDOPT Table as follows: 
DESCRIPTION OF JOB CONTROL OPTION BYTES IN PART*COMREGS 



STANDARD 


LTACT 


I 


S0B1 


1 


SOB2 




SYSLINE 


| STDOPT | 


STDOPT2 


OPTION FIELD J 


X«35» 


I 


X i 36« 


1 


X«37» 




X»4E" 


| X^C 1 | 


X'AE' 


TEMPORARY 


~ — 


t 


JCSW3 




JCSW4 


* +" 


RLNCNT+1 


| TEMOPT | 


TEMOPT2' 


OPTION FIELD 


— « 


I 


X'3A« 


i 


X^B* 




PARTIT* 


i- X'8D" | 


X"AF' 


PERMANENT 




" + " 




■*+* 




r +- 


-*-»—»-•<-» «»«■»«». 


^.VW.M..*.*^.^^, 




OPTIONS 


MASKS 


FOR BIT 


SETTING 






l ll 




1 




I 

»4" 


I 


1 


1 




I 

»—. — -» V ..__.• j 


111 

L- — — — V — — — 4.. 


1 


ALIGN=YES 


r — .— .-. y — —.. 




»— — y _ — . 


•+- 


y »— - 


- +.* 


»—. — -» y — — . — —.| 


f. — — — — n*«*t' 

| X'40» | 


pt-»— — y <— -.— 


ACANCEL=YES 
















X 1 *)! 1 | 




CHARSET=48C 






X«02 f 














DATE=DMY 


X«80' 


















DECK=YES 






X^O' 














DUMP=YES 










X^O 1 










DUMP-PAST 
















| X'20' | 




EDECK=YES 
















I X»80« 1 




ERRS=YES 






X'04* 














LINES=YES 














NUMBER 






LIST=YES 






X'^O 1 














LISTX=YES 






x^o 1 


\l 












LOG=YES 










X 1 10« 










RLD=YES 
















| X" 10" | 




SXREF=YES 
















i xro8« i 




SYM=YES 






XMO 1 














XREF=YES 






X«08< 














TERM=YES 





















NOTE ADDITIONAL FUNCTIONS: 

»DUMP=YES« AND 'NO 1 SETS OFF PARTDUMP INDICATOR 

•DUMP=PART« SETS ON DUMP INDICATOR 

• XREF-YES" AND "NO" SETS OFF SXREF INDICATOR 

l SXREF=YES l SETS OFF XREF INDICATOR 

•LINES=NN« ADAPTS THE JCL-'RLNCNT" IN THE OWN PARTITION 

The temporary options are not affected. At next //JOB or /& processing, the (new) 
standard options are moved into the temporary option fields in *JOBCTLG. 

For the DATE operand, the format of the DATE-f ield will be reset with the next call of 
the GETTIME macro which is done by /& processing- 
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Chart PZ- SJOBCTLJ - Subroutines 



***A1********* 
* 
SCANR2X * 

* 
************** 



****A2********* 

* * 

* SCANR3X * 

* * 
*************** 



****B1 ********** 



******* ********* 



****B2* ********* 



it*************** 



-*_*_*_*_*_ 



* GET OPERAND * 

* * 

* • 
***************** 



*-*-*-*-*-*-*- 



GET OPERAND 



***************** 



*****£ 1 ********* 



**************** 



B1 *. 

.* DOES * 

CURRENT 



IS 
COLUMN 72 
. EHPTX . 
*. .* 



*****F2********** 

* • 

* POINT TO HSG * 
.X* 'COLUMN 71 * 

* EXCEEDED* * 

* * 

***************** 



**G1******* 

* * 

* SET * 
♦CONDITION CODE * 

* POR SCNSTP * 

* *H2 * 
*********** 



****G2********* 

* RETURN TO * 

* ERRRTN IN * 

* ROOT PHASE * 
*************** 



****H1********* 

* HETURN TO * 

* CALLER * 

* * 
*************** 



•H2 

TEST THE SCNSTP CHARACTER AND 

SET THE CONDITION CODE: 

(EQUAL): IT IS A COMMA 
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Chart QA. 



SJOBCTLK - LBLTYP, 
Refer to Charts 2(1 



VOL, TPLAB Command Processors 
to 22* 



**** 

* * 

* au ♦ 

* * 
**** 



****Al ********* 

* * 

* SJOBCTLK * 
*************** 



LBLTYP X 

*****B i********** 

♦SCANR2 GK* 

*_*-*.*. *-*.*-*-* 

* POINT TO * 
OPERAND TAPE * 



DID 
BLANK END 
. SCAN 



*****D1 ********** 

* SET LENGTH OP * 
♦PARTITION LABEL* 

* ABBA 80 IN * 

* HBKRG3 * 

* -ASSURE TAPE- * 
***************** 



.* IS 

OPERAND 
♦ . TAPB 



****&2********* 

* * 

* TPLAB * 

*************** 



TPLAB X 

*****B2********** 

* INITIALIZE « 

* LINKR4 WITH * 

* ADDRESS * 

* OP ERROR * 

* ROUTINE * 
***************** 



.*. 

C2 *. 

.* HAS *. 

.CONTINUATION*. 

CARD 

*. SPECIFIED.* 

*. .* 

*. .* 



***** 2********** 
♦CONCAT OH* 
*-*-*-*-*-*-*.*-* 
♦BUILD COMPLETE ♦ 

* CARD IBAGE * 

* BUFPBR1 * 



* A3 * 

* * 
**** 

**•* 

* * 

* P2 * 

* * 
**** 



.* HAS VOL *. N 

.X*STATBHENT BEEN,*. 
•.PROCESSED.* 



X 

***** 
♦QS * 
* CI* 



t****!^********** 
•HOVE CHARACTER * 

* STRING * 

* TO * 

* LABEL OUTPUT * 

* ABBA HTPID * 
***************** 



*****B3********** 
*SCANR2 GK* 
*.*.*-*-*_*-*-*-* 

* POINT TO * 

* OPERAND * 

* -FILE ID- * 
***************** 



.* FIRST *. 

♦.CHARACTER AN . 

♦APOSTROPHE.* 



****A5* ******** 

* * 

* VOL * 

* * 
*************** 



*****B>j********** 

•PDKTV QC* 

*.*.*.*.*.*.*.*.* 

* STATEMENT * 
♦INITIALIZATION * 

* * 

***************** 



* EH * 

* * 
**** 



*. SHORT STRING 



**** 

* * 

* J5 * 



*****Y 1********** 

* SET EXTENT * 

* AREA COUNTER * 

* TO 20 IN * 

* NRKRG3 * 

* -ASSOHE NSD- * 
***************** 



*****P2********* 
♦COMPUTE LENGTH 

♦ OF PARTITION 

♦ LABEL AREA 

♦ WRKRG3 ♦KS 
* 

** ************** 



.♦. 


LBTOUT X 


G1 ♦. 


*****Q2********** 


*. 


♦ COMPOTE ADDR * 


IS *. 


♦ OF THIS ♦ 


OPERAND .* 


♦PARTITION LABELS 


NSD .* 


♦ SAVE AREA ♦ 


. .* 


♦ FBOH PIK ♦ 


*. .* 


***************** 



*****D3********** 
♦INITIALIZE REG-^ 

♦ ISTER POINT* ♦ 

♦ AS POINTER TO ♦ 

♦ LABEL STORAGE ♦ 

♦ AREA ♦ 
***************** 



**E3******* 

* SET FLAG * 

BIT IN 

HTFLG2 

FOR 

* TPLAB * 
*********** 



YES .* IS GEN- ♦. 

...♦BRATION NUMBER. 

♦. BLANK .♦ 



*****G3********** 

♦CHKRNG1 QR* 
*-*-*-*-*-*-*-$,* 
♦CHECK FOB HUM- ♦ 
♦ERICS IN GEMER-* 
♦ ATION NUMBEB ♦ 
***************** 



*****H i********** 

♦ ADJUST REG- ♦ 

♦ ISTEHS POINT 1 * 
♦AND POINT2 FOR ♦ 

♦ CONVERSION ♦ 

♦ ROUTINE * 
***************** 



.♦IS LAST^. 
♦ CHARACTER 

OF OPERAND 
♦. A PARBN . 



**** 

* * 

* JS ♦ 

* * 

**** 



♦ CHECK NN AND ♦ 

♦ CONVERT TO ♦ 

♦ BINARY ♦ 

***************** 



*****H2********** 
♦STORE LENGTH OF* 

♦ PROG LABEL ♦ 
♦AREA FOR LIOCS ♦ 
♦AND THE LINKAGES 

♦ EDITOR ♦ YL2 * 
***************** 



****J2********* 

♦ BRANCH TO * 

♦ CONTROL IN ♦ 

♦ *JOBCTLA ♦ 

*************** 



FOR LIOCS STORE 

IN PARTITION 

SAVE AREA4-80 

BYTES. 

FOR LNKEDT STOBE 

IN COHREG ♦ 44. 



TFILL X 

*****QH**** ****** 

♦INSERT DEFAULT ♦ 

♦ VALUE * 
..X* *00O0000DOS * 
. * VER 5* * 

* * 
. ***************** 

**** 

***** 



*****£(* ********** 

* * 

* RESET BLOCK * 

* COUNT POR * 

* TAPE TO ZERO * 

* * 
***************** 



**pil******* 
♦SET JBCSN5 * 

* TO INDICATE ♦ 
♦TPLAB STATEMENT* 

♦ PROCESSED ♦ 
* * 

*********** 



*****QH ********** 

♦ RESET DATA ♦ 

♦ LENGTH TO BO ♦ 

♦ CHARACTERS ♦ 

♦ AND STORE IN ♦ 

♦ DTALGT ♦ 
***************** 



*****HI4********** 

♦ SET FILE TYPE ♦ 

♦ FIELD TO •!• * 

♦ TO INDICATE ♦ 

♦ TAPE ♦ 

♦ * 
***************** 



********* 



NO .* DID 
...♦. COMMA 
♦.END SCAN 



**** 

* * 

* J5 * 

* * 
**** 



•CONVERT SYSXXX ♦ 

* TO SYMBOLIC ♦ 

• UNIT ADDRESS ♦ 

***************** 



♦ PROCESS 

♦ FILE NAME 

♦ OPERAND 

************** 



*****£•)*****«•*** 

* SET BITS IN ♦ 

* JBCSNb iO ♦ 

* ALLOW DLAB ♦ 

* OR TPLAB ♦ 

* * 
***************** 



J2 ♦ 

* 
**** 



*****J3********** 

♦CHKRNG1 QR^ 

*.*-*.*.*-*.*-*.* 

♦CHECK FOB NUM- ♦ 

♦ ERICS IN VER- ♦ 

♦ SION NUMBEB ♦ 
***************** 



♦K4 
INCLUDES FILE 
SECURITY, BLOCK 
COUNT, AND SYSTEM 
CODE. 



****jf>*******< 

* BRANCH TO 

* NVSERR IN 

* *JOBCTLA 

*************! 



*K5 
POINT1 IS POINTER TO 
THE FIRST «N» OF »NN', 
POINT 3 IS SET TO ONE 
LESS THAN THE NUMBEB 
OF CHARACTERS IN ♦NNV 
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Chart QB. 



$JOBCTLK - TLBL Command Processor 
Refer to Charts 21 to 22. 



•***A1********* 

* * 

* TLBL * 

* * 



TLBL X 

*****B1* ********* 

♦PDKTV QC* 

*.*.*.*-*.*.*_{.* 

* STATEMENT * 
'INITIALIZATION * 

* « 
***************** 



*****Ci ********** 

* CLEAR FIELDS * 
♦PILE ID THROUGH* 

* EXPIB. DATB * 

* IN OUTPUT * 

* BLK. * 
***************** 



*****{) 1********** 

♦FDKTVNH QC* 

*-*-*-*-*_*..*.$-* 

* SET UP PILE * 

* NAME AND KEY * 
FIELDS * 



****B2********* 

* RETURN FROM * 

* FDKTID. LINK * 



****13********* 

* *A2 

* RETURN FROM 

* SJOBACCT 

*************** 



* B3 *.X. 

* * 
**** X 

.* 
B3 



RE&+8 



*****£)********** 

* * 

* LOAD MAX * 

* LENGTH MINUS * 

* 1 OF FILE-ID * 

* INTO HRKRG1 * 

***************** 



*****F1********** 
♦FDKTID QD* 
*-*-*-*-*-*-*-.*-* 

* PROCESS FILE * 

* TO OPERAND * 
*CHBCK DATE *K1* 
***************** 



**************** 



****D2*** ****** 

POST 
PARTITION 
COMPLETE 

I************** 



«****£2********** 

♦PETINSRO QC* 
*-*-*-*-*-*-♦-*-* 

* CHECK AND * 

* INSERT DAY IN * 

* OUTPUT BLOCK * 
***************** 



****P2********* 

INSBRT 

CREATION 

DATE INTO 

OUTPUT BLK 

***************; 



****A,tt ********* 

• * 

• PSCAN * 

• * 
*************** 



BLANK 
END LAST 
. SCAN 
*. .* 



*****C3********** 
*FETINSR1 QC* 
*-*-*-*-*-*-*-*-* 

* PROCESS AND * 

* INSBRT FILE * 

* SERIAL NUMBER * 
***************** 



****G2********* 

* RETURN FROM * 

* FDKTD. LINK * 

* REG*« • 

*************** 



* GET FILE * 

* SERIAL * 

* OPERAND * 
***************** 



**** 

* * 

* B3 * 

* * 
*•** 



*FETINSRr QC* 
*-*-*-*-*-*-*-*-* 

* PROCESS AND * 

* INSERT VOL * 

* SEQUENCE MO. * 
***************** 



*****£3********** 

♦FETINSRT QC* 
*-*-*-*-*-*-*-*-* 

* PROCESS AND * 

* INSERT FILE * 

* SEQUENCE NO. * 
***************** 



*****? 3********** 
•FETINSRT QC* 
*-*-*-*-*-*-*-*-* 

* PROCESS AND * 

* INSBRT SYSTEM * 

* GENERATION * 
***************** 



*****Q3********** 

*FBTINSRT QC* 
*-*-*-*-*-*-*-*-.* 

* PROCESS AND * 

* INSERT THE * 

* VERSION NO. * 
***************** 



* BLANK * 

FOLLOW LAST 
*. OPERAND .* 



***** 
*QA * 
* D*»* 



FSCAN1 

*****£ If********** 

*SCANR2 GK* 

•-*.*-*-*-*-*.*-* 

* GET NEXT * 

* OPERAND * 

* * 
***************** 



EQUAL 
SIGN END 
. SCAN 



*****glt********* 
* 

* SET CONDITION 

* CODE FOR 

* LENGTH 



****F4********* 
RETURN TO * 
LINK REG. * 

* 
*************** 



****B5********* 

* RETURN TO * 

* LINK REG * 

* * 
*************** 



***«C5********* 

* * 

* FSCAN1 * 

* * 

*************** 



****J3********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 
*************** 



*K1 
RETURN FROM FDKTID IS TO 

1. B2 FOR ABSOLUTE DATB (LINK REG+8) 

2. G2 FOR OMITTED DATE (LINK REG+4) 

3. G1 FOR RETENTION (LINK REG) 
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****& i********* 

* * 

* FDKTV * 

* * 
*************** 



*****B1 ********** 

♦LBLOUT QN* 

*.*.*.*.*_*.*.*.* 

* O0TP0T LABEL * 

* TO VOL AREA * 

* OP SISRES * 

***************** 



*****C1********** 

* * 

* INDICATE * 

* FIRST EXTENT * 

* EXPECTED * 

* • 
***************** 



*****D i ********** 

* TORN OPP * 

* LOST EXTENT * 
•BIT IN BTRSFD, * 

* CLEAR H.T. * 

* PLAG Bit » 
***************** 



*****£ <| ********** 

* * 

* RESET BLKSIZE * 

* AND CI-SIZE * 

* INDICATOR * 

* BITE * 
***************** 



****F1********* 

* RETURN TO • 

* LINK REGISTER * 

* * 
*************** 



REFERENCES ***** 
TO QCB2: * * 

8HC1. QKC1 * ** 
ND1 * * 



PDKTV2 X 

*****B2*******w** 

* RESET ALL * 

* SEQUENCE * 

* PLAGS IN * 

* JBCSW5 * 

* * 
***************** 



****A3********* 

*. * 

* FDKTVNH • 

* * 
*************** 



***** 
*QS * 
* CI* 



****A4********* 

* * 

* FETINSBT * 

* * 
*************** 



PETINSRT X 

*****B(i********** 
*FSCAN QB* 

*-*-*-*-*-*-*-*-* 

* GEI NEXT * 

* OPERAND * 

* * 
***************** 



♦PSCAN1 QB* 

*_*-*. *.*„*.*.{.* 



***************** 



OPERAND ' 
LENGTH GT 

**• .** 



*****P3********** 

* CLEAR PILE * 

* NAME PIELD * 

* AND RESET * 

* AUX PLAG * 

* BYTE * 
***************** 



*****63********** 

* * 

* HO?E FILENANE * 

* TO OUTPUT * 

* AREA AND SET * 

* UP KEY PIELD * 
***************** 



*****H3********** 

* * 

* CLEAR LAST * 

* POSITION * 

* OP HEX * 

* PIELD * 
***************** 



****j 3********* 

* RETURN TO * 

* LINK REG * 

* * 
*************** 



**** 

* * 

* K«» * 

* * 
**** 



****1)5********* 

* * 

* FBTINSRO * 

* * 
*************** 



PETINSRO 

*****£!)*****•**** 

♦CHKRNG1 QR* 
*.*_*.*-*-*.*-$.* 

* CHECK DIGIT * 

* RANGE * 

* 0-9 * 

***************** 



****g«>********* 

* * 

* FBTINSR1 * 

* * 

*************** 



* GET ADDR. OP * 

* THIS PIELD * 

* OUTPUT BLK * 

* INTO NRKRG1 * 

***************** 



INPUT 

LENGTH GT 

. THAN . 

♦OUTPUT.* 



**** 

* * 

* Gb » 



****G5********* 

* BRANCH £0 * 

* NVSBRR IN * 

* *JOBCi'LA * 

*************** 



PETINSR3 

*****H4********** 

* INSERT * 

* LEADING * 

* ZEROS IN * 

* THIS FIELD * 

* * 
***************** 



* INSERT * 

* THIS FIELD * 

* INTO OUTPUT * 

* BLOCK * 
***************** 



****Ki|********* 

* RETURN TO * 

* LINK REG +2 * 

* * 
*************** 
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****&1******* 
* 
* FDKTIP 

************* 



RESET DISKETTE* 

••UNIT SA¥E AREA * 

* SWITCHES • 

* * 

*********** 



*****£ 1 ********** 

•SCANR3 GK* 

*-*-*-*-*-*-*-*-* 

* GET OPERAND * 

* START ADDRESS * 

* * 
***************** 



* B2 * 




* B3 * 


• * 




* * 


**** 




**** 


X 




• 


.*. 




X 


B2 *. 




*****B3********* 


.* *. 




* SET SCAN 


* ANT HOSE *. 


CBS 


* DELIMITER 


CHARACTERS .* 




* TO INDICATE 


*. . * 




•END OF OPERAND 


*. .* 




* 


*. .* 


X 


**************** 


* NO 


***« 




*** 


* * 




* 


* J1 * 




C2 *.X. 


* * 




* 


**** 




*** 




X 


x 




C3 *. 


***C2* *****«•* 




.* •. 


BRANCH TO * 




.* IS *. 


NVSEBR IN * 




*. DELIMITER . 


$JOBCTLA * 




*. A BLANK .* 


************** 




*. .* 



*C5 

RETENTION PERIOD 
OR ABSOLUTE DATE. 
FORMAT OF ABSOLUTE 
DATE IS VYYDDD' . 



• LOAD SCAN 

* LIMIT INTO 
» POINT2 

* 

****************! 



*****02********** 



.* IS » 
*. CHARACTER 
*. A QUOTE .* 

*. .* 
*. .* 
* YES 


. NO . 
,*..X. 

X 

**** 

* * 


* STORE LENGTH • 

* OF FILE ID IN • 

* SAVE AREA • 

* SWITCH • 

***************** 






* C2 * 

* * 

**** 




X 

*****H 1 ********** 

* START SCAN * 

* HITH FIRST * 

* CHARACTER * 

* AFTER QUOTE * 

* * 
***************** 


FDKTID2 X 

*****!] 2********** 

* * 

• INSERT FILE * 
•IDENTIFICATION * 
•IN OUTPUT BLOCK* 
♦LEFT JUSTIFIED * 
***************** 



*****? 3********** 

* * 
•COMPOTE POINTER* 

* FOR NEXT SCAN * 

* 2ND STORE * 

* SCAN LIMIT * 
***************** 



YES .* THERE AN 
....*. OPERAND 
*. WITHIN 
♦QUOTES.* 







* 


OPERAND •. YES 




*" 




LENGTHS .*.... 






* 


.* . 


**** 






*. .* . 


* * 






• . .* X 


• F4 * 






• NO *••* 


* * 






* * 


**** 






* J5* 

* * 
**** 

X 


FDKTDAT2 X 






.». 


*****P4* ********* 






PS *. 


* * 






* •• 


• GST LENGTH * 


YES 


* 


DATE *. 


* OF DAY * 


. . .* 




OPERAND .• 


* FIELD * 




* 


GT t> .* 


* * 








***************** 


X 




*. .♦ 




**** 




* NO 




* * 








• C2 • 




. 




* * 








**** 




X 



**** 
FDKTDAT X 

*****H3********** 

•FSCAN QB* 



***************** 



***** j 1 ******** 
* 

* LOAD 

* CHARACTER 

* ADDRESS 
* 

****************! 



.* IS 
..X*. QUOTE IN 
*. COLUMN 
♦. 72 .* 



**** 

* * 

* C2 * 

* * 
**** 



DATE 
OPERAND 
OMITTED 



****K3********* 

* RETURN TO * 

* LINK REG * 

* * 
*************** 



YBAR * 00 .* 


... 


».JKD CHARACTER.*.... 






*. A SLASH .* 


*. . * 




*. *Cb .♦ 




X 


♦ . .* X 


• MO 


**** 


* NO *•** 




* * 






• J5 • 


* F4* 




* * 


• * 




**** 


**** 
X 


HU* **. 




H5 *. 


.* *. 






DAY *. YES YES .* DATE *. 


FIELD .• 


...X... 


.*. OPERAND .* 


. OMITTED .* 




*. GT 4 .* 


*. .* 






*. .* 


X 


*. .* 


• NO 


**** 


* NO 




* * 


**** 




• C2 * 


• • . 




* * 


• Jb «.X. 


; 


**** 


* * 

**** 


X 


FDKTDAT 1 X 


**J4* ********* 




***** j ;>* ********* 


* 




•NUMCON QR* 


POINT TO * 




*-*-*-*-*-*-*-*-* 


START OF * 




* CONVERT • 


ABSOLUTE * 




* TO * 


DATE FIELD * 




• BINARY * 


************** 




***************** 



****Ki|********* 

* RETURN TO • 

* LINK REG * 

* * 
*************** 



**K5********* 
RETURN TO * 
LINK REG • 
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****&f ********* 

* * 

* PLBL * 
« * 

*************** 



***«>***•*****« 
* RBTORM FBOB * 
•■ FDKT1D. LliK 



**** 

* • 

* B3 * 



*& 



***B2********** 



.* 
. .* 
* IBS 



*****Ci********** 

•CQBCAT Oil* 

* _*_*_* -*-*-*_*-_* 

* READ * 

* COMTIBQATION * 

* CARD * 
***************** 



.m& 



:»*.■ * 

OUT * 

xgcs * 

III * 



**** •Bj3*»******** 
*- * - » .- ¥ ..» 



SB* 



*****B4********** 



***************** 



*****C2********** 
*SBT IOC. OBCLOB* 
* *|tO THE * 

•IB LIOCS TBL*3 * 



:ji 



liti 



DLBL1 X 

*****D |********** 

♦FDET? QC* 

♦-♦-♦-»-♦- ♦ ■. * ■. » ■■ » 

* INITIALIZE * 

* STATBBBET * 

* * 
***************** 



*************** 



02 '•• 
.* *. 
FILE *. 

BABB BQ 
. TO TBL -* 

* BO 



* ******* ****** 



•*•* *c3*«*. ******* 
♦STOMB BBTBBTIOB* 

: .wvfc : 

: "b288" : 

**** ***7********* 



C0BT8BI IB 
* ABO DAI TO * 

***************** 



••*•*<;***•***•*** 

:JbW-S 

• OOTROT • 

r****** ****** 



•****£ 1 ********** 


B2 *. 


* SBT DBFAOLT * 


.• • . 


*f ALOES IB FLDS * 


BO .♦ BBD *. 


* FXLB ID * 


...*. OF .• 


* THBODGH • 


*. TABLB .* 


* SISCODB * 


*. .* 


***************** 


I *. •• 
****** * IBS 


• 


„ 


* B2 * r 




* * 


*****P1********** 


•**• 


*****r2********** 


* BBSBT • 


• IIITIALIZB * 


•COBBBBT BITBBT * 
* DBFAOLT * 


* RB6S FOB • 

• CBOBCOl • 


* TABLB TO * 


* SQBBOOTIEB ♦ 

***************** 


♦ STAMDABD * 

***************** 



*****£ -|*** ******* 

•FDKTTBH QC* 
* -*-*-*-*..*-• _«_* 

• SBT OP FILB • 

• BABB BBD BBI * 

• FIELDS * 

***************** 



* TALXDATB AMD * 

* COMVBBT OBIT * 

* MO. TO BIBABI * 
***************** 



***ft3********* 

: J5?y kk : 

*** ************ 





.» *. 




* 


.* MOBBBB * 
. OF DAIS 

*. G.i. .* 


. IBS 




*. 366 .* 






*. -• 


X 




* BO 


••*•* 






*6B * 




z 


% C2* 

• 




• 


BfSBBB 


*****B4********** 


* 




* 


* 


STORE DAI 


• 


• 


IB BXFXBATXOM 


* 



***************** 



.1. 

X 

.*• 



F0XBT1 * ADDBBSS OF 



LXNKB4 *■ Al 
FDKIJ2 — 
BETUBM 
BO0TI1J 



4**"' 



KB SB 

FXLB XD AS 
* DBFABLT f ALOE • 

— - K -i*5*«***5*<' ff — 



FDBXJL X 

****«H2********** 
• SET LOGICAL * 



.* 
*. .* 

* IBS 



♦BITBBT DBFAOLT * 
•TBL FBB OiCLOB * 

***************** 



**H******** 

* SBT BASE * 

• DSBOBSK TO • 

^ALLOB EXTBBT • 

**si§S3*3/ 



*****j i********** 
* * 

* SBT DBCLOB * 

* TO FOB * 

* SISTBB CLASS * 

* * 
***************** 



* OF BfSBRR • 

* BBROR BTM * 

* INTO LIBKBft * 
********* ******** 



. **j«******* 



*****K i********** 
•IBIT REGISTERS * 

* F0XBT1 ABD * 

* P0INT2 FOB * 

* MBIT SCAM ABD * 
•SATE IB THPAR1 • 
**** ****** *** **** 



** ***k 2** *** ♦»*• • 



BAX LBG-1 

OF FXLB ID 

FIELD 



•op • 



3. C3 FOB BBTBMTAOM 
(LIB* REG) 
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*•** 

* * 

• »« * 



***• 

* * 

♦ Ai> ♦ 



****A1 ********* 

* • 

* DUB * 

* • 
*************** 



*****£ 1 ********** 
♦INIT LINKRG4 AS* 

* BRANCH BEG * 

* THE INVALID * 

* STATEHBNT HSG * 

* ROUTINE * 



.* WAS *. 
.* VOL THE *. NO 
. PREVIOUS .*.... 
*. STHNT .♦ 



***** 
*QS * 
* C1* 



*****[) 1 ********** 

* * 
•INIT REG POINTU* 

* AS POINTER * 
•THE LABEL AREA * 

* * 
***************** 



*****A2********** 
♦INIT REGISTERS * 

* POINT 1 AND « 

* POINT2 FOR • 

* NEXT SCAM AND * 
♦SAVE IN TNPAR1 * 
***************** 



*****B2********** 
*SCANR2 GR* 

*-*-*-*-*-*-*-*-* 
* POIMT TO 2ND * 
OPERAND 
OL SBQ " 
********** 



C2 ♦. 

* DID * 

A COMMA 

END THE 

SCAN 



D2 *. 

.* VALID ♦ . 

* LENGTH * 

-HAX H CHAB- 



**4lt******* 

* SB? 
SEQUENCE 
RE3DIRES 

EXTENT 

* FLAG 
*********** 



♦EXPIRATION *. 


YES 


DATE LT 


♦.... 


♦.CREATION .♦ 




♦.DATE .♦ 




♦ . .♦ 


X 


♦ NO 


***** 




♦QS ♦ 




♦ C2^ 




* • 




* 




NLSBRR 



*****C3********** 

♦ ZERO RESERVED ♦ 
♦AMD EXTENT FILE^ 
♦TYPE FIELDS IN ♦ 
♦THE LABEL AREA ♦ 

* * 
***************** 



♦ POINI TO ♦ 

♦ 5TH OPERAND ♦ 

♦ -SYSTBH CODE- ♦ 
***************** 



*****Btt********** 
♦FSCAN OB^ 

*.*.*-*•*_*-*.*.* 

♦ GBf FILE ♦ 

♦ TYPE OPEBAND ♦ 

♦ * 
***************** 



.♦ OPBRAMD ♦. YES 
♦. OMITTED OR ...... 

♦. SD .♦ 



*****p J********** 

♦CONCAT £«♦ 

*.*.*. *.*.*. *.i.* 

♦BUILD COMPLETE ♦ 
♦ CARD IMAGE ♦ 
♦BUPFR1, BUFFR2 ♦ 
***************** 



*****q 1********** 
♦SCANR2 <SK* 
•-*-*-*-*-*-*-*-• 
♦POINT TO FIRST ♦ 

♦ OPEBAND ♦ 

♦ -51 CHARS- ♦ 
***************** 



*****£2********** 


E3 ♦. 


*NOMCON OR* 

*-*-*-*-*-*-*-*-* 


.♦ 1ST ♦. 


. NO .♦ AMD LAST ♦. 


* CONVERT ♦ 


X...*.CHAR AN APOS-.* 


♦ TO BINARY IN ♦ 


♦. TROPHE .♦ 


♦ NRKBG1 ♦ 


♦. .♦ 


***************** 


X ♦. .♦ 




***** * YES 




♦GH ♦ 




♦ C2^ 




♦ ♦ 
* 




NVSBRB 


X 


X 


*****r2********** 
♦ STORE BINARY ♦ 


*****P3********** 


• STORE SYSTEM ♦ 

♦ CODE IM LABEL ♦ 


♦VOL SBQ NO. IN ♦ 
♦ LABEL SAVE ♦ 


♦ AREA, DASYCD. ♦ 


♦ AREA ♦ 


♦ -13 BYTES- * 


♦ DAVLSQ ♦ 

***********>***** 


• ♦ 


***************** 



**** 
« 
* KS ' 



*****A5********** 

* RESET EXTENT ♦ 
♦COUNT FLAG BYTE^ 

* FOR DA OR IS ♦ 
♦TO 0, SET FILE ♦ 

* fxPB TO ♦ 



.♦ TYPE * DA ♦. YES 
. FOR DIRECT .♦... 
♦. ACCESS .♦ 



♦ SET STATEMENT ♦ 

♦ SBQ MASK ♦ 

♦ DSBQHSK TO ♦ 
♦INDICATB EXTENT^ 
♦REQUIRED FOR IS^ 
*********•*»*•*•* 



*****D5********** 

* MOVE THE ♦ 

* TYPE C OM P ♦ 
» TO FILTYP ♦ 
♦FOB INDEX SBQ. ♦ 

***************** 



.♦ OPERAND ♦. 
. BIfBBR ISC . 
♦. OB ISE .♦ 



*•** 

* * 

♦ K5^ 



**** 

* * 

* A5 ♦ 

* * 

**** 



*****p >,«***«***** 

* • 

* HOVE TYPE A ♦ 

* TO FILTYP ♦ 

* FOR VSAN ♦ 

* * 
***************** 



♦DOP34 QH^ 

*-*-*-*«*-*-*-*-* 



***************** 



H1 ♦. 






*****H2********** 


.* 1ST ♦. 






•UPDATE POINTER * 


♦ AND LAST ♦. 


NO 




♦ POINT1 FOB ♦ 


CHAR AM APOS-. 


♦ ..X 




♦ STORING ♦ 


♦. TROPHE .♦ 






♦ EXPIRATION ♦ 


♦. .♦ 






♦ DATE ♦ 


♦. .♦ 


X 


***************** 


♦ YES 


***** 
*GU * 




* 


♦ C2^ 

• * 






NVS 


ERR 





*****j )♦♦♦♦♦♦♦♦♦♦ 

* STORE PILE ID ♦ 

♦ IN DATCBL. ♦ 

♦ DAFHT TO \ ♦ 
♦ENSURE FORMAT 1* 

* * 
***************** 



♦ A2 * 

* * 
**** 



*****j2********** 
•DOP34 QM* 

*-*.*-*-*-*-*-*-* 
♦CHECK. CONVERTS 

♦ STORE EXPIRA- ♦ 

♦ TION DATE ♦ 

***************** 



»****K2********** 
♦RESTORB POINT « ♦ 

♦ TO POIMT TO ♦ 

♦ CREATION DATE ♦ 

♦ IN LABEL AREA ♦ 

♦ * 
***************** 



**** 

* * 

* B3 *. 

* * 
**** 



*****G3********** 
♦INIT REGISTERS ♦ 

♦ POINT1 AMD ♦ 
♦POINT2 FOR MBXT^ 

♦ SCAM AND SAfB ♦ 

♦ IN TMPAR1 ♦ 
***************** 



*****H3********** 
•INITIALIZE IMST^ 

♦ AT DSBQHSK ♦ 
♦INDICATE XTEMT ♦ 

♦ STATBNBNT ♦ 

♦ REQUIRED ♦ 
***************** 



****J3********** 



*****qu********** 

♦ * 

♦ INDICATE. DU ♦ 

♦ STORE »80» IN ♦ 

♦ SAVE ARBA ♦ 

♦ SBITCHB * 
***************** 



*****Htt********** 

♦ ♦ 

♦ CHECK FILE ID ♦ 

♦ LENGTH FOR ♦ 

♦ 8 OR LESS ♦ 

♦ * 
***************** 



.* OPERAND * 


. NO 


*. VSAN 


...... 


*. .♦ 




♦. .♦ 




♦ . .♦ 


X 


• YES 


***** 




♦ GH ♦ 




♦ C2^ 




• * 




* 




NVSBRR 


X 




****«k *,*********« 


• 


* 


• SET DEFAULT 


* 


* FOR VSAM 


* 


* BUFSP 


* 



***************** 



*J •>**•*****•* 



♦ SET AUX FLAG ♦ 
♦BYTE. X i 10» OF ♦ 

♦ LABEL TO Ott ♦ 
♦TO INDICATE £!-♦ 




♦ ♦. 


* * 


YES .♦ 


MORE *. NO 


* SBf DEFAULT ♦ 


...♦. 


THAN B .♦ 


* FOR VSAM ♦ 


♦ . 


.* 


* CAT ♦ 


♦TEMTS CONVERTED* 




♦ . .♦ 


* * 


***************** 


X 


♦ . .♦ 


***************** 




***** 


* 




**♦* * 


•GH * 




**** \ 


♦QE ♦ 


* C2^ 




♦ ■ * . 


♦ J<t ♦.!. 


* * 




♦ Kb *.X. 


♦ ♦ 


* 




• • . 


**•* 

)KCODB X 
*****K3********** 


NVSERR 




• ♦♦♦ X 






KS* *♦. 


♦ RESET BLKSIZE ♦ 

♦ INDICATOR OR ♦ 






. • *. 






.* ANYMORE *. YES 


♦ SET FILE TYPE ♦ 






...I*. OPERANDS ...... 


♦IN FILTYP TO -S^ 






♦ . .♦ . 


♦ FOR SBQ DISK ♦ 

***************** 






♦ . . ♦ . 






♦ . .♦ X 








* no ***** 


• 






♦QG ♦ 
.SETFLAGS* B^ 


X 






X ♦ ♦ 


**** 






***** ,.. * 


* * 






♦QP ♦ 


♦ A<t ♦ 






♦ F2^ 
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***** 

*QF * 
* R5* 

* * 



*****B1 ********** 
*SCANR2 GK* 

*.*-*-*.*-*-*-*-* 

* POINT TO * 

* NEXT OPERAND * 

* * 
***************** 



* * 




* B2 * 




* * 




**»* 




X 




DLBKEXW .*. 


.*. 


B2 *. 


B3 * 


.* *. 


.* 


.* *. NO 


.* 


*. CAT .*..... 


...X*. BOPSP 


*. .* 


*. 


*, .* 


*. 


*. .* 


*. .* 


* YES 


* t 



.* 


*, HO 


.* 


*, 


MO 


1*. BLQCKSIZE 


.* 


...X*. CI-SIZ8 




* . . . . 


*. 


* 


*. 


* 




*. .* 




*. .* 






*. .* 




*. .* 




X 


* IBS 




• ybs 




**** 

* * 

* K1* 










• * 


• 








**** 


X 

*****gil********** 


X 

*****B5********** 


*SCARR3 


GK* 


"SC4MH3 

*-*-.*-*-*-*-*. 
* GET VALUE 


GK* 


• 


* 




* 



GET VRLUB 

***************** 



***************** 



DLBCAT 

*****C2********** 
*SCANR3 GK* 

*-*-*-*-*-*-*-*-* 



END SCAN .*.... 


* GET * 

* PILERANB * 


.* 


*. .* 


* * 


*. .* X 


***************** 


* NO **** 




* * 




* B2 * 




. * * 




*•** 




X 


X 


.*. 


.*• 


D1 *. 


D2 *. 


* *. 


.* *. 


OPERAND *. YBS 


.* •*• *. 


QHITTED .*.... 


*. END SCAN .* 



DLBBOFSP X 

*****C3********** 
*SCARB3 GK* 



* GET VALUE * 

* * 
***************** 



*. TES IBS .* 



SPECIFIED 



*•** 

* * 

* K1 * 

* *' 
**** 



**f\ ******* 

* * 

* SET DATA 

* SBCUBIT* 

* SNITCH 

* * 
*********** 

**** 
*. * 

* G1 * 






TYPE VSAH .*..X 



G1 *. 
.* * 
* AMI MORE 
OPERANDS 



*****H1********** 
*SCANR2 GK* 

*-*-*-*,.*-*•*..*-* 

* POINT TO * 

* NEXT OPERAND * 

* * 
***************** 



X 
.*. 

G2 *. 
.* *. 
* OPERAND 
LENGTH > 7 



*****H2********** 



***************** 



. * *. 
* 

TIPE VSAH 



* B2 * 

* * 
**** 



****Kl********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 

*************** 



*****g3********** 

*R0HCON QB* 
*.*.*.*-*-*. *_{-* 

* CONVERT * 

* TO BINARY * 

* * 
***************** 



*****J3********** 

* * 

* HOVE BUFSP * 

* VALUE TO * 

* OUTPUT AREA * 

* * 
***************** 



* G1 * 

* * 

**** 



*****G<|********** 
*NUHCON OR* 

*•*.*.*.*-*.*.*-* 

* CONVERT * 

* TO BINARY * 

* * 
***************** 



OPEBAND 
> 32K 

OR 



*****G$********** 
♦NOHCON QR* 

*-*-*-*-*-*-*-*-* 

• CONVERT * 

* TO BINARY * 



**** 

* * 

* K1 * 

* * 

**** 



*****jt|********* 

* HOVE 

* BLOCKSIZB 

* TO OUTPUT 

* AREA 
* 

****************! 



*****Klt*********i 
* 

* SAVE 

* BLKSIZB 

* INDICATOR 
* 
***************** 



***** j 5********** 



***************** 



*****K<j********** 



*«***********••*« 



**** 

* * 

* 61 * 

* * 

• *** 



* * 

* «1 * 

* * 
**** 
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Chart QH. $JOBCTLK - XTENT Statement Processor (Part 1 of 2) 
Refer to Charts 21 to 22. 



***** i*******«* 

• * 

* XTBBT * 



1 IS THIS • 

TBB PIBST 
. BXTBBT .* 



"15. 



****B I********** 
ZIXT * 

1BG4 AS * 

ICH BEG * 

• IBTALID STBBT * 



•HKi 

■TALI! 



!***■ 



***************** 



10 .* PIBTIOOS *. 
-..♦. STATE! BIT . 

*. DLAB m .* 
•.XTBBT.* 



*QC * 
* B2* 

* * 



FOIET4 BXBOS TBB LBB6TB 
OP TBB fOL AID DLAB PIBLDS 
IS SET TO THE BB6IBBIB6 
ADDBBSS OP TBB COBBBBT 

!|K£ U IS 8'S.fi?- 

ADDBBSS OP TBB COBBBBT 
UTBBT IB THE LABEL ABBA. 



*****0 1********** 

• IBIT * 

: rinwr.i : 

* 1BKBC1 * 



XTB1 AId"xTB2 BOST BB BQJ 



^BsPSFsSSS." *- 

EIS„S 1 ?K^*. x 3St.ii ao, nc, "> 






XTLL, CAIBOT BXCBBD 



: BITiBI. ZTUL; 



_ SBQ I 
*•- 



• C4 • ... 

•*** £ 



.* IS *. 
BBS .* THIS TBB * 
~ .•.PIBST BXTBBT 

*. .* 



* D4 *.I. 

♦ • . 
**** X 

ISCKSQ .* 



STOBB LOHJ 
- Cl,C2,Il.J 

•*•«*****•*•■ 



HEB 
H2 * 

i***** 



.* 



ASCBBDIBG 
. SKQ BO .* 



•STOBB LOW LIBIT* 

• CELL BO,B1.IB • 

* XTBl OP LABEL • 



•OS * 
• CI* 

• » 



.* BILL TBIS *. BO 
•.BXTBBT PIT IB.*... 
*. LABEL .* 
•.ABBA .* 



•OS'* 
*^C3* 

• *' 



•****pi*$i 

•XT0P12 



JBZ 



•••*•*•**•*•*•**• 



IBDSBQ 



•assi 



ai *. 
.* *. 

.* PILB *. BO 
•.SBQDBBTIAL OB.*-.. 
*. f SAB .♦ 
•.DISK .* 
*. .* 
* IBS 



J1 *. 
.* *. 

-* BXTBBT *. BO 
*.TIPB 1 OB 128.*.. 
*. .* 

♦ . .♦ 
*. .• 
* TBS 



82 • 

BXTBBT 
TTPB1 



.* BXTXBT 

*. llPB 

*. 



S. 

BLSBBB 



***#*J2********** 

♦CHECK. COBTBBT.* 

• STOBB BXTBBT * 

• SBQOBBCB 10. • 
***************** 



•CBB£K. COBBBBT.* 

• STOBE BXTBBT • 

• SBODBBCB BO. * 
•*** ************* 



2EgCl++*JK 



13 
* 
SBQ 



•*** *b«********** 

*_*_*-.*-*-*-.*-*-* 
•CHECK. COBBBBT.* 

• STOBB BXTBBT * 

• SBQOBBCB BO. • 
•••*! *•********•• 



J4 *. 

.• •- 

.• SBQ • 

*. BO. GT 1 

*. .* 

• . -• 

*. .* 

* bo 



•****£$*•******•* 

•XTOF34 QB* 
»-♦- ♦ ■ ♦ „■ * ■■■ * -».. > ■■ ♦ 

•CBBCK. COBBBBT.* 

; *v*c! S!*H2 I 

••***»*•******•** 



•BESTOB* BOMT4 • 

* STORK UPPEB * 

* LIBIT CELL • 
*»1, IB XTB2 OP * 

* LABEL ABBA * 



.* * 
BO -* VALID 
EXTBBTS 
•02 



*QS * 
* C2« 

* • 



.* IS •. 
.• TBIS TBB *. IBS 
•.PIBST BXTXBT ...... 



•OS • 

i^C2* 

• * 



• C4 • 

* * 
**** 



• D4 • 

* • 
**** 



Program Organization 313 



Chart Qj. $JOBCTLK - XTENT Statement Processor (Part 2 of 2) 
Refer to Charts 2fl to 22,. 



***** 

*QH * 

* G5* 

* * 



XTQP5 X 

*****£ 1 ********** 

♦SCANB3 GK* 

*_*-*.*-*_*_*..*_* 

* POINT TO 5TH * 

* OPERAND * 

* ^SERIAL NO.- * 

***************** 



**** 

* * 

* B2 * 

* * 
**** 



**** 

* * 

* 83 * 



.* 1ST *. 

.* AND LAST *. NO 
*,CHA8 AN APOS-.*... 
*. THOPHE .* 



* IS 

THIS FIRST 
*. EXTENT . 



*****£ 1 ********* 

* PUT PILE 

* SERIAL NO. 

* IN OUTPUT 

* BLOCK 
* 
**************** 



*****B2********** 
♦SCANR3 GK* 
*_*_*-.*_*_*_*_»_* 



* SCAN *. 
STOP CHAR A . 
*. BLANK .* 



VALID *. 
LENGTH 
-1 CHAR- .* 



***** 
*GH * 
* C2* 

* * 



*****£ 1********** 

♦UPDATE POINTERS* 

* POINT1 AND * 
♦POINT2 POR SCAN* 

* RTN. STORE * 

* THPAH1 * 
***************** 



*****? i********** 

♦SCANB3 GK* 

*.*.*.*.*_*.*.*.* 
♦POINT TO SIXTH * 

* OPERAND * 

* -STSXXX- * 
***************** 



.* SCAN ♦ . 
MO .* STOP CHAR ♦. 
...*. A BLANK OR .* 

♦. COMA .♦ 



*****B2********** 
*NUNCON OR* 

*-*-*-*-*-*-*-*-* 

* CONVERT B2 * 

* TO BINARY IN * 

* HRKRG1 * 

***************** 



*****?2********** 

* STORE CURRENT * 

* CELL NUMBER, * 

* B2. IN XTB2 * 

* OP LABEL AREA * 

* PROM MRKRG1 ♦ 
***************** 



***** 
♦GW * 
* C2* 



*****H )*****•**** 
♦CHUNCO PT* 
*-.*-*-*-*-*-*-*-* 
♦CONVERT 5YSXXX ♦ 

♦ TO SYMBOLIC ♦ 

♦ UNIT ADDRESS * 
***************** 



*****j 1********** 

* * 
♦STORE SYRBOLIC * 

♦ UNIT ADDRESS * 

♦ IN UNCLOR ♦ 

* * 
***************** 



K1 * f 
.♦ LAST ♦. 

♦ OPERAND * 
STOP CHAR A 

♦. BLANK .♦ 



**** 
*UL * 
♦ E4 



.* FILE TYPE *. 

.X*. SEQUENTIAL SD. 

*. OR VSAH .♦ 



*****H2********** 
*INIT POINT* AS * 

* POINTER TO * 
♦PREVIOUS EXTENT* 

* AND ZERO BITS * 

* 0,1 OF HTAFLG * 
***************** 



**B3******* 
♦SET SWITCH * 

* HTRSVD AND * 

HTAFLG AS 

* LAST SD * 
* EXTENT * 

*********** 



*****C3********** 
♦SET WRITE DISK ♦ 

* DATA LENGTH, ♦ 

♦ DTALGT, TO ♦ 

♦ 10« BYTES ♦ 

* * 
***************** 



**D3******* 

♦ RESET ALL ♦ 

FILE DEFIN. ' 

STHNT FLAGS 

IN JBCSR5 



*****g3********** 

♦LBLOUT ON* 

*_*-*-*.* -*_*_$-* 

* WRITE EXTENT ♦ 

* TO LABEL AREA ♦ 

* * 
***************** 



**** 

* * 

* J5 ♦ 

* * 
**** 



XTUNIT 

*****G3********** 

* INCREHBIT ♦ 
♦EXTENT CNT BY 1* 

. ..X* IN BYTE 8 OF * 

* FIRST EXTENT * 

* -HTRSVD * 
***************** 



**** 

* * 

* F5 ♦ 

* * 
**** 



• **• 

* * 

* C» * 



SET NO 

XTENT 

FLAG 

* * 

*********** 



it**** 



**E4* 

* SET BIT * 
♦OF HfAFLG ON ♦ 

.X^TO FOHCE LIOCS ♦ 
♦ LOOK AHEAD ♦ 

* * 
*********** 



OUTLBL 

*****pil ********** 

♦ SET FLAG BYTE ♦ 

♦ HTBSVD IN ♦ 

♦ LABEL+8 FROM ♦ 

♦ HTAFLG. LABEL ♦ 



**** 



X'10' 

************ 



*****Qlt********** 

•LBLOUT ON* 

*-*-*-*-*-*-*-*-* 

♦OUTPUT PREVIOUS^ 

♦ XTENT TO ♦ 

♦ LABEL AREA ♦ 
***************** 



*****H tt********** 

♦ RESTORE WRITE ♦ 

♦ DISK DATA ♦ 

♦ LENGTH TO 84 ♦ 

♦ BYTES IN ♦ 

♦ DrALGT ♦ 
***************** 



*****j4 ********** 

♦ HOVE CURRENT ♦ 

♦ EXTENT TO ♦ 

* OUTPUT AREA *. 

* OVERLAYING * 
•PREVIOUS EXTENT* 
***************** 



NBUXTN X 

*****P5********** 

* UPDATE LBLPTB * 

* WITH ADDRESS ♦ 
..X*OF NEXT EXTENT ♦ 

* SAVE AREA * 



********** 



****** 



**** 

* * 

* C4 ♦ 

* * 
**** 



♦. ♦KS .♦ 

♦ . .* 
♦ YES 



*****£•,********** 

* INCREASE BYTE • 
•COUNT IN WRITE ♦ 
*DISK DATA LNG. ♦ 

* DTALGT. BY * 
•EXTENT 20 BYTBS^ 
***************** 



**H5******* 
♦SET JBCSKS ♦ 

• TO INDICATE • 
♦LBL BLK PRESENT^ 

♦ AND NO ♦ 
♦STHNTS &BQ.* 

*********** 



****jj>********* 

• BRANCH TO • 

• CONTROL IN * 

• *JOBCTLA ♦ 

*************** 



♦ Kb 
IJSYSIN 
IJSYSPH 
IJSXSLS 
IJSYSLN 
IJSYSSL 
IJSYSRL 
IJSYSWS 



**** 

* * 

• B3 * 
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Chart QK* SJOBCTLK - EXTENT Statement Processor (Part 1 of 2) 
Refer to Charts 21 to 22- 



* Aft * 
•*•* 



**•* 

• • 

* AJ> * 



***** J********* 

* * 

* BXTBBT • 
*•***•*«**•*«•* 



*****B f *•«*****•« 

;»»»» J*«g»"» : 

* IBTO LIBKB4 « 

• * 
***************** 



* C1 •% 

.**BITBMT IB**. 
*. SBQOiiCB 



FBSTSX3 X 

*****&2^********* 
♦POt LOGICAL OBT* 
•XBIO BXTBBT AMD* 

• SPBCIPY THIS • 
♦OBIT AS DBFADLT* 

* ib »n * 

***************** 



• B2 *.X. 

•*** 
*****B2********** 

**£*!i*.*...„*j5: 

* GET fOL • 
•SBBIAL OPBBABD * 

••A************** 



.*BXTEET *. 
GT.2 .*TTFB BQ 0, *- 
...*. 1 QB 2, .*.. 

*. 6$ 2 .* 



KITE MX 



•QL * 

vr 



♦QS * 
* C2* 



see— -^js 



i 

***** 

*qc * 

• B2* 

• * 

PDITF2_ 



PttABD ♦.IBS 
8ITTBD .*.... 

.** 



**** 

* ♦ . 

* C3 *.X- 

**** Z 



.* 
. .♦ 

« |0 



.*BI 



.•BBQBGB BOOB*. BO 
.IB LABEL ABBA.*.... 



***** 

*QS • 

% c *-* 



FBfSBB2 X 

*****02********** 
•PBTXBSB1 QC* 

*„»..*.. » ■. » ■. » - * .. < - » 

: iS!*i? ss?»i : 

* BLOCK * 

***************** 



**C3********** I 

: 'fjrw : : 

♦ * 

*•***••*•*«••*•** 



•*** *D3********** 



* TTJPB OPBBABD ♦ 
••** *•*****••**** 



*. 


.* ♦. 


>. BQ l 
OB 1 -* 


BO X BO -• BXTBBT •• 


* I 1 *-... B*I ...•* 


'•• .*" 


X **. .*" 


♦ TBS 


***** * fgg 




•OS • 




• 
BLSBBB 

•****D*>* ********* 


- 




*. 


* POT 12B « 


riBST *. 


IBS * IBTO BXTBBT * 


tXTBBT 


♦.... • IIPE FIELD * 
* IB OUTPUT BLK * 


.• 


.* 


• * 


•• •• 


x ***************** 


• BO 


***** 




*«S • 


2 


* CI* .X -. 

* * 



•****E I** 1 

* SB? DEFAULT ♦ 

* V ALOES PBOB * 
•COBBBBT BXTBBT * 

* DlrAOLT TABLE * 

a**************** 



*****ri********** 

*£*Z* r ^~*-*,.*„*L* 

* get sisxxx * 

* OPBBABD * 

* * 
********** ******* 



61 *. 

* * 
OPBBABD 
O BITTED 

'*• .♦ 
*. .♦ 
* BO 



*****H 1********** 
•CgOBCO^ »,,»_„$*?, 

* CHECK COBfBBT * 

* SXSXXX TO LOG * 
♦OBIT CLASS. OBD* 
•********5***—- 



J1 
.* 

IBS .♦ fib: 

.*. BXTB1 



.♦ ♦. 

•FIRST BXTBBT*. BO 
♦. SPECIFY .♦..! 
*.LOGL OBIT.* 



.* 2 *%. 

FIBST *. IBS 
BXTBBT .*..- 



F2 *. 

.* ABB *. 
.* LOGICAL *. BO 
. OMITS THE .*... 
*. SABB .* 
*. .* 



*TV 



* IBS 



IBS «*FOL SBBIAL *. 
,...*. SPEC OB LST .* 
*. IXTBBT .* 



* BO 

!x... 



.♦ 
♦. 


■fTF 


.♦* 


IBS. 
*..X- 




*. .* 








*. .* 




X 




♦ BO 




***** 








*GB ♦ 








♦ C2* 




. 




* * 




.1. 




BFSBBB 




F3 ♦. 








* • 






.♦ 


OPBBABD 
OMITTED 


*. 


• !!f. 


*. 




.♦ 






*. .* 








*. .♦ 








♦ MO 




• 



**** «G3********** 

* PBisBBT * 
•*** ************* 



OTSEBB 

re *!!«* B 5**~«*.** 

♦-*-*; * ,-*.. * .*- » t - » 
..X*PBOCBSS EXTBMI * 
. * SBQOBMCB * 
. • OPBBABD 

. «#******«**«i- 

* * 



■en 



3SH0 •• TBS 
BXTBBT -*..X 
'. .* 

*. .* 



.X. 



•***«B 3*** ******* 



•TALOB FOB BEIT * • STOBB • 



*•**********•*•*• 



IBS .*BXTBMTS IM *. 

...*. ASCBMDIMG . 

*. SBU ** 



•QL • 
* F1* 

• • 



>. .* X 
* IBS **♦** 
*6B • 
X. MTSBRB* C2* 


*s** 

II • 
* A2 * 

t * 

**** 


* 



•****K2«********* 

* SET * 

: r %$* a %i»- : 

• SBBIAL NOHBBB * 
•***•**•***«***** 



**** 

**** 



FBTIPBD 
.** 



FILE •- 

TIPB 

BQ SD .* 



X 
«3-*-.. 

" *. 

FILE 

BQ DA .' 
.* 



•* *. 

• ASCBMDIMG 
SBQOBMCIt 



X 

***** 
*QS * 
* CI* 



•X* 



.»„ 



PROCESS AMD *..* 

* IMSBBT EXTENT ♦ 

* SBUOSMCK * 
««****X********** 



.MLS EBB 
***** 



•*** 
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Chart QL+ SJOBCTLK - EXTENT Statement Processor (Part 2 of 2) 
Refer to Charts 21 to 22. 



***** 

♦QK * 
* A«* 



.**** 

* * 

* A2 * 



*•** 

* * 

* A3 ♦ 

* • 
**** 



**** 

* * 

* AK * 

* - * 
**** 



X 
.*. 

*» 1 

PILE 
^YPB-IN- 
SEQ.BXP. 

- .* 
.♦ 
NO 



*****G1********** 

♦FBSBQ QP* 

*-*-*2*-*-*-*-J-* 

* GBT S8Q * 

• OPERAND * 

***************** 



***** B 2******** 
* BESET IMBED. 
~ OPERAND AT 

-Espr 



* C2 *.X. 



*****A3********** 

* * 

* RBABRAMGE * 

* START TRK * 

* NUMBER * 

* * 
***************** 



•****B3********* 



**************** 



***** 

*QS * 

* C2* 



**** . 
FBTKNO X 

*****g2********** 
♦FETKTK QP* 
*-*-*.*-*.*-*-*.* 

♦GET AND CONVERT* 

* NUMBER OF * 

* {BACK OPERAND * 

***************** 



PETKNOI 

*****C3********** 
♦TEST FOB START ~ 
♦TRK AND TRK NO 

♦ BOTH PRESENT 

♦ OR BOTH NOT » 

♦ PRESENT * 
***************** 



*X. 



**** 
SPLIT 3 X 
*****B4***«***** 
* 

* CLEAR 

* INDICATOR 

* BYTE 
* 

****************! 



.♦EXTENT *. 
* LIMITS ♦ 

OMITTED 1ST 
♦. EXTENT .* 



X 

***** 
♦QS ♦ 
* C2* 



El *. 


B2 *. 


E3* **. I 


.* *. 


..* . ANY *. 


.*' *. 


NO .* FIRST *, 
...*. EXTENT .* 


NO .* TRACK NO *. 
...«, HIGHER .* 
♦ . 64K .* 


NO . * BOTH *. 


...*. NOT PBBSENT .* 


*. .* 


♦. .* 


. ♦. .* 


. *. .♦ 


*. ' .* 


X *. .* 


X *. .♦ 


X *. .* 


***** * YES 


**** * TES 


***** * YES 


•QK * 


* * . 


*QS * 


♦ J5* 


: ** : 


* C2* .X 


* * 


* * 


FESPLIT3 « 


**** 


* . ■ ' 
NLSERR 


PETK . X 


X 


FESPLIT X 


*****P 1********** 


*****P2********** 


*****£ 3********** 


♦ SET IMMEDIATE ♦ 


* * 


♦FSCAN QB* 

*-*-*-*-*-*-*-*-* 


• OPERAND AT * 
..X* FESPLIT3 TO * 
. * PP INDICATING * 
. *EXTBNTS OMITTED* 


♦ STORE NO * 


♦ OF BLOCKS * 


* GBT SPLIT * 


* FOB OUTPUT * 


* CYLINDER * 


* * 


* OPERAND * 


. ' ***************** 


***************** 


NLSERR************* 



*****£ tl********** 

* * 

* CLEAR EXTENT * 

* LIMITS FOR * 

* THIS EXTENT * 

* * 
***************** 



* *^ REFERENCES 

* * TO QLP1; 

* _•• QKH«, QKK§ 



*****q1 ********** 

♦FBTKTK QP* 

*.*.*.*-*_*-*.{.* 

♦GET AND CONVERT* 
♦RELATIVE START * 
♦ TRACK OPERAND • 

***************** 



* FILETYPB * 

5AM OR VSAH 
*. OR DAN .« 



*♦** 

* * 

* C3 * 

* * 

**** 



***** 
*GN * 
* C2* 



***** 
*QS * 
* C2* 



*****j tl********** 

♦NUMCOH OR* 
*_*_*»*_*_»_*_?_* 

.* CONVERT * 

* TO BINARY * 

* * 
***************** 



*************** 



*****K3********** 

* STORE SPLIT * 
♦CYLINDER STRT. * 

* TRK. NO FOB * 

* OUTPUT * 

* * 
***************** 



**** 

* * 

♦ A2 ♦ 
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Chart QM. $JOBCTLK - Label Processing Subroutines (Part 1 of 3) 
Refer to Charts 21 to 22- 



****A1********* 

* * 

* DOPJ4 ♦ 

* * 

*************** 



DOP34 

*****B1 ********** 
♦SCANR2 GK* 

*-*-*-*-*-*-*-*-* 

* POINT TO 3RD * 

* OPERAND * 

* -CR DATE- * 
***************** 



.♦ DID *. 
.* A COHHA * 
♦.END THE SCAN 



D1 *. 

* VALID *. 

LENGTH * 
-S CHARS- 



*****£ |********** 

♦NUHCON oa* 
*-.*-*-*-*-*-*-*-* 

* CONVERT HEAR * 

* TO BINARY * 

* * 
***************** 



*****P1 ********** 

* STORE BINARY * 
♦YEAR IN DACRXR ♦ 

♦ FROM WRKRG1 ♦ 



**************** 



*****Q1 ********** 

♦ NUHCON QR* 

*-*-*-*-*-*-*-*-* 

♦ CONVERT DAY ♦ 

♦ TO BINARY ♦ 

♦ * 
***************** 



.♦ IS ♦. 

♦ BINARY ♦. NO 

DAY 366 OR .♦..X 
♦. LESS .♦ 



****&3********* 
* 
XTOP34 ♦ 
♦J2 ♦ 

*************** 



XTOP3U 

***** B j********** 
♦SCANR3 GK* 
*-*-*-*-*-*-*-*-* 
*PT. TO OPERAND ♦ 
♦LOHEB AND UPPERS 
♦ EXTENT ♦ 
***************** 



C3 ♦. 

.♦ DID ♦. 

.♦ A COHHA ♦ 

.END THE SCAN 



XTOP12 
************* 



XTOP12 

♦SCANR2 GK* 

*-*-*-*-*-*-*-*-* 

♦ POINT TO ♦ 

♦ OPERAND ♦ 

♦ TYPE/SBQ NO. ♦ 
***************** 



C2 ♦. 

.♦ DID ♦. 
NO .♦ A COHHA * 
......END THE SCAM 



VALID ♦ 
LENGTH 
.1-3 CHAR .* 



*****B2********** 
♦NOHCON QB^ 
*-*-*-*-*-*-*-*-* 

♦ CONVERT TO ♦ 

♦ BINARY IN ♦ 

♦ NRKRG1 ♦ 
***************** 



**** 

*QP * 

♦ PI ♦.X 



BINARY ♦. YES YBS .♦ IS 
VALUE GT .*....X....*. EXTENT 
. OOFF .♦ . ♦. ZEBO 



***** 
♦G8 * 
♦ C2^ 



*****£ 3********** 
♦NUHCON QR+ 

*-*-*-*-*-*-*-*-* 

♦ CONVERT TO ♦ 

♦ BINARY IN ♦ 

♦ HRKRG1 ♦ 

***************** 





♦QS ♦ 






♦ C2* 






* * 

• 






NLSERR 




X 




X 


****G2* ********* 




*****q3********** 


STOBE BINARY ♦ 




♦ SAVE B1 IN ♦ 


VALUE IN ♦ 




♦ SVXTB BUILD ♦ 


EXTENT SEQ * 




♦EXTENT INFO IN ♦ 


-XTSEQN- ♦ 
♦K5 ♦ 




♦ LABEL AREA ♦ 




♦ PROH HRKRG1 ♦ 


**************** 




***************** 



****AU********* 

* * 

* CONCAT ♦ 

* * 
*************** 



***** B ll********** 

♦ * 

♦ HOWE 1ST ♦ 

♦ STATEHENT ♦ 

♦ TO BDFFBR1 * 

♦ * 
***************** 



*****C4********* 



***************** 



*****q 4* ********* 
♦CONCRTN QH+ 

*-*-*«.*-*-*-*-*-* 
♦BEAD 2ND STATH.+ 

♦ AND HOVE IT ♦ 

♦ TO BUFFEB2 ♦ 

***************** 



****A5********* 

* * 

* CONCBTN ♦ 

* * 
*************** 



♦ BEAD CONTINU- ♦ 
♦ATION STATEHENT* 
» INTO BUFFEB ♦ 

***************** 



****C !»********** 

HOVE OPERAND ♦ 

FIELD FHOH ♦ 

BUFFBH TO ♦ 

BUFFBR2 OR ♦ 

BUPPEBJ ♦ 

**************** 



****H2********* 
RETURN TO * 
CALLING * 
SEQUENCE ♦ 

*************** 



****H3********* 
RETURN TO ♦ 
CALLING ♦ 
SEQUENCE ♦ 

*************** 



*****P4 ********** 



********* 



*****g<4* ********* 
♦CONCRTN QH^ 
*-*-*-*-*-*-*-*-* 
♦READ 3RD STATU. ♦ 

♦ AND HOVE IT ♦ 

♦ TO BUPFER3 ♦ 
***************** 



*****Uil********** 

♦ UPDATE RESS * 
♦POINT1, POINT2 * 

♦ FOR SCANNING * 

♦ ROUTINES ♦ 



***************** 



*****H5*********i 

♦ RESTORE 

* BUFFER FOR 

♦ ERROR LOGGING 

* ONLY 



*****J1* 

♦ STORE 

♦ DAY IN 

♦ FROH 



******** 
BINARY 

DACRDY 
URKRG1 



************** 



****K1 ********* 

♦ BETURN TO ♦ 

♦ CALLING ♦ 

♦ SEQUENCE ♦ 

*****$********* 



♦ J2 

1. THIS ROUTINE IS USED TO PROCESS THE LONER AND 
UPPEB LIBIT OF XTENT STATEHENT. 

2. THE VALUE OP B1 IS SAVED IN SVXTB FOR THE 
CALLING SEQUENCE. 

3. C1C1, C2C2C2,H1,H2H2 ARE STORED IN THE LONER 
AND UPPER LIBIT FIELDS OF THE LABEL ABBA. 

4. C2C2C2 IS CHECKED AGAINST THE HAX. CYLINDER NO. 
OF 199. 



**** J !(********* 

♦ RETURN TO 

♦ CALLER 

* 
*************** 



*K2 
THE BEGISTER POINT* POINTS TO THE CREATION DATA FIELD 
IN THE LABEL ABEA WHEN PROCESSING THE CREATION DATE. 
IT POINTS TO THE EIPIRATION DATE FIELD IN THE LABEL 
AREA HHEN PROCESSING THE EXPIRATION DATE. THE CALLING 
SEQUENCE UPDATES AND RESTORES POINTU. 



****J5******** 

♦ RETURN TO 

♦ CALLING SEU. 

* 
************** 



♦K5 
WHEN RETURN IS HADE TO 
THE CALLING SEQUENCE 
DESIRED BINARY VALUE 
IS IN HRKRG1 AND IN 
THE EXTENT SEU 
NUHBER FIELD XTSEQN. 
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Chart QN. 



$JOBCTLK - Label Processing Subroutines /Part 2 of 3) 
Refer to Charts 21 to 22. ' 



**** 

* * 

» A2 * 



•*** 

* * 

* A3 * 



****A 1********* 

* * 

* LBLOUTF * 

* * 
*************** 



*****B 1********** 

* PLACE ADDRESS * 

* OP LABBL SAVE * 

* AREA INTO * 

* REGISTER * 

* * 
***************** 



STATEBENTS 



*A2********** 



***************** 



**«**£ 2********* 



**************** 



*****C2********** 

* SET OH * 

* BLKSIZE AND * 

* CI-SIZB * 

* INDICATOR * 

* * 
***************** 



**A3******* 

* * 
SET BLOCK 

NOT-PRESENT 
FLAG 

* * 
*********** 



*****B3********** 

* * 

* PUT PILE * 

* NAME INTO ♦ 

* LPL * 

* * 
***************** 



*****C3********** 

* SET DATA * 

* LENGTH AND * 
« DATA ADDR * 

* INTO LPL * 

* * 
***************** 



***** 

*QC * 

* B2* 



*****£3********** 

•HTNCNT GU* 

*-*-*.*.*-*-*.*-* 

* RELEASE * 

* THE SXSTEH * 

* * 
***************** 



FLAGOPP X 

**F1******* 

♦SET OPP ALL* 

*BITS OP JBSWS* 

* EXCEPT BIT * 

* BLOCK -NOT- * 

* PRESENT * 

*********** 



*****G1 ********** 

* PLACE ADDRESS » 

* OP LABEL * 

* SAVE AREA * 

* IN LBLPTR * 

* * 
***************** 



*****G3********** 

* * 

* ISSUE MACRO * 

* LABEL * 

* CLRGRPL * 

* * 
***************** 



***************** 



*****£5********** 

* * 

* RESTORE * 

* REGISTERS * 

* AND FLAG * 

* * 
***************** 



* LABEL 
AREA 

•.EXHAUSTED. 



****tiS********* 

* RETURN » 

* TO CALLER * 

* * 
*************** 



****D2** ******* 

* * 

* LBLOUT * 

* * 
*************** 



*****£ 1 ********** 

* SET FLAG IN * 

* LAST SD * 

* EXTENT BLOCK * 

* AND SET PLAG * 

* FOR SD * 
***************** 





* IJ 


> * 


YES 


* 


LABEL BLOCK . 

*. PRESENT .* 

*. .* 


* 


**: 




*. .* 




X 




* NO 




**** 

* 










* A2 










* 










**** 




; 


C 






***■ 




* 


RETURN TO 


* 




* 


CAL 


L.ER 


* 





***** j 3********** 

* ' * 

* ISSUE * 

* HACRO LABEL * 

* ADDLBL * 

* * 
***************** 



*****jlt********** 

* * 

* ISSUE MACRO * 

* LABEL * 

* ADDMXL * 

* * 
***************** 



**** 

* * 

* D5 * 

* * 
**** 



************ 
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Chart QO. Reserved. 



Program Organization 319 



Chart QP. $JOBCTLK - Label Processing Subroutines (Part 3 of 3) 
Refer to Charts 21 to 22. 



****& -i ********* 
* * 

* FESBQ * 
*************** 



*****B 1********** 
*FSCAN QB* 

. »-♦-♦-♦-♦- ♦ - ♦ - * -♦ 

* GET EXTBHT * 

* sequence * 

* OPERAND * 
***************** 



*** *&3********* 

* * 

* FBTKTK * 

* * 
*************** 



FBTKTK X 

*****B3********** 

•PSCAR QB* 

* GET RELATIVE * 
*STA*T TRACK OB * 

* TRK.HO. * 
***************** 



***** 
*QH * 
* D2* 



*****01********** 
*FETKTK QP* 

*—*-*-*-*-*—*-*-* 

* TEST FOR * 

* OPERAHD * 

* OH IS S 10 * 
***************** 



; . .* 
* HO 



*****p|********** 

* IHCREHEHT * 

* PREVIOUS * 

* EXTENT SBQ * 

* RO. BT1 * 

* * 
***************** 



* SET STATBHBHT * 

* SEQOEMCB FLAG * 

* llTO JBSCR5 * 



***************** 



*****G2********** 

* POT FILE TYPE * 

* IHTO OOTPUT * 
♦BLOCK AHD RESET* 

* DATA LERGTH * 
TO 84 



OPERAHD *. IBS 
LEHGTH .*... 
> 10 .* 



* OPERAHD *. TBS 
HilBHBR HAX. -*..X 
*. TALOB .* 



**** *p3********** 
♦HOHCOH OR* 
*_*_*_*_*_*-*_<_* 

* COHVBBT * 

* OPERAHD TO ♦ 
BIRABI 



-*- 

H2 *. 
.* *. 
.* FILETXPB 

**. 

*. .* 
*. .* 

* IBS 



***%*J2********** 

* * 

* POT C »H» * 

* IHTO OOTPOT * 

* BLOCK * 

* * 
***************** 



OPERAHD 
POSITIVE 
. VALUE 



**** *H3********* : 
♦ 

* SBITCH 

* PRESEHT 

* €HIT BIT 





C5 *. 






.* *. 






.* OPERAHD * 


• IBS 


X*. 01 OH 


.*...* 




*. FIRST .* 






*BXTEMT.* 






*. .* 


X 




* HO 


***** 

*QS * 
* C2* 

• * 

* 

BLSBRR 




X 




•****j)5********** 


* 




* 


* 


LOAD ADDRESS 


* 


* 


LIHKR3 IHTO 


* 


* 


LIHKR1 


* 



****2<l** ******* 

* RETORH * 

* TO LIHKR1 * 

* * 
*************** 



***************** 



B5 *. 
-* *. 

* FILE *. 

_ TXPE EUOAL .* 

*.IHD. SBQ..* 



*. 



OPBBABD 

BIGHBB 

64K 



**** *x3********** 



****J4********* 

* BEXORH * 

* TO LIRKRl * 

* *K» * 
*************** 



IF TBXS RETORH HAS VIA FBTKTK 1, 
BETORH IS TO TBE BOVTIHE TBAT 
CALLED FBTKTK. IF BHTRI IS AT 
FBTKTK2, BETOBH IS TO FESBfi BOOTIHE. 
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Chart QQ.. $JOBCTLK - RSTRT Command Processor 
Refer to Charts 21 to 22. 



**** 
* * 

* A2 * 



***** I********* 

* * 

* BSTBT * 

* * 
********* ****** 



*****A2********* 
* BLABK PBASB 



*****A4********** 



♦THE CODING POJi THIS BOOTIHB 
ACTOALLI APPBABS IM THE 
SJOBCTLB Pa ASK. TUB CBABTS 
RBPBBBBCBD Hi A DIPFBBBMT 
PHASE BBPBESBNt LOGIC 
IDENTICAL TO THAT IN THB 
SJOBCTLB PHASE. 



* INITIALIZE * 

* KB BOB LINKAGE * 

* BBGISTBB * 

* * 
********* ******** 



*****B2********** 
•SCANB3 GK* 
*-*-*-*-•-*-*-*-« 

* POIMT TO * 
•PIBST PABAHETBB* 

• -MUM- * 
***************** 



LOADBS 1 

*****B4********** 

* HIT BBGISTBB • 

* POIMT* AS * 

* POIBTBB TO * 
•LABBL SAVE ABBA* 

* ♦ 
*•** *•** ********* 



*****C1********** 
♦SCI IB 2 GK* 
*_*_*_*_*-.*-.*_*-* 

* POIMT TO * 

* PIBST OPERAND * 

* -SI SIX I- * 

***************** 



-*I>IO A COBRA*. BO 
*.BMD THE SCAB .*... 



C2 *. 
.* DIB *. 
O .* A BLAflK * 
.*.OR COBBA BED 
*. SCAB .* 
*. .* 
*. .* 
* IBS 



D2 *. 
.* VALID *. 
BO -*LBBGTB 1-4 *. 
.!•*. CHABACTBBS .* 



.* HAWB *. 
-LABEL STATE-*. MO 
. BBBTS BBBB .*..., 
*.PBOCBSSBD.* 



***** 
*QS * 
* cl* 



* K3 * 

* * 
**** 



•CHOMCO PT* 

*-*-».- * .. »_»~* - « - * 
•COMTBBT SXSXXX * 



TO SIBBOLIC 

* OBIT ADDBBSS • 

***************** 



*****S2********** 
*MBBCOM QB* 
*-*-*-*-* ~* - * -*-» 
*f ALIDITX CHECK * 
♦AMD COMTBBT TO * 
*BINAKI *B3* 
***************** 



•B3 

s snaiu 

_. J THAT EACH 

CHARACTER IS OP THB 
BAHGB O-S. THB BBSOLT 
OP THB B«|IABI COMVBB- 
SIOB IS 1GBOBBD. 



.•CHECKPOINT • 
: OBIT A SBU- 
*. DISE .* 



*****g4********** 

* SBT BIT 1 OB * 

* IM BTBSTD ABD * 

* BTAPLG TO » 

* INDICATE LAST « 
•SBQ DISK BBTBX * 
***************** 



X 

.*. 

I *. 
* 

STSXXX 

->BOGBA~~ 

OMIT 

.* 
*. .* 
* IBS 



JUSTED* 
CHKPTB 



*flS * 
* CB* 

• * 



*****61 ********** 

* • 

* COBPOTB LBB * 

* POIBTBB IB * 

* BBKBG3 * 

* * 
***************** 



***************** 



G2 *. 

.* DID *. 

.* A BLABK * 

*.EBD THB LAST 

*• SCAB .* 



**** 

* ♦ 

* B4 * 



LOADBS1 X 

***•*?<* ********** 

*LBLOBT QB* 

*-*—*—*-.*-*-.*-*—• 
•OUTPUT LABBL TO* 

* VOL ABBA OP * 

* STSBBS * 

***************** 



*****6m********** 

*PBOHIBIT MBITB * 

• OPBBATIOB ON • 

• SXSBBS. PIB * 

• ASSIGN PUG, * 
BIT B opr 

- - ****! 



*****!] 2********** 
*SCANB3 



***************** 



*****K i********** 



* POBADDB PBOB * 

* NRKRG4 • 

***************** 



**** 

* * 

* A2 * 

* * 
**** 



J2 *. 
.* DID *. 
•* A BLABK * 
*.BBD THB SCAB 



.*. 

K2 *. 
.* VALID *. 
.* LEMGTB *. B< 
•1-8 CHABACTBBS.*. 



* A4 * 

• * 
**** 



*****J4********** 

* BOfB SIBBOLIC * 

* OBIT ADDBBSS * 

* IBTO BOFPEB * 

* TO BE PASSED * 

* TO SJOBCTLB * 



****K3********* 

* 4BANCH TO * 

* KfSBBB IB * 

* L70BCTLA * 

*** ************ 



****K «****•**** 

* CALL SJOBCTLB * 

* VIA PBTCBBP * 

* IB SJOBCTLA • 
*************** 
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Chart QIU $JQBCTLK - Subroutines 

Befer to Charts 21 to 22. 



***fAi********* 
* ■ ■ # 

* HUWCON * 

*************** 



♦ SRT * 

* * 
***************** 



****A j********* 
* CHKRNG1 ♦ 

*************** 



NG1 



*83******«*** 
SET WHIT * 



por 

M 1 



***************** 



****B«*******«* 

* * 

* CHKRNG * 

*************** 



.,*-*„*, 

8CK RA 

************•*•**: 



:**<*$!!*w*.*j2; 



CHRCK RANGE 
- ~HXRACTRR> 



* QP CHARACTRR> 



C,,,? 5SS** q 3********** 
* AND NUMBER * 

:*g*%sm*$!m*: 



•****D 1*********1 

: .suss, 

* 

*********«******: 



*****R 1*********i 

j ««• 

****************i 



***** |****f***« 



*************** 



03 

• * 

CHAR 



,* ■ 

♦ NO 



t* IS 
*. CHAR. GT 
••■ MAI 



END 
OP CHAR 
STRING . 

**« .*" 

*■ XRS 



****R||********* 
* BRANCH TO * 
.X* NVSBRR IN * 

% IJQBCTU * 

*************** 



****G a********* 
* RETURN TO * 
~ A LUNG * 



**«*i*i 
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Chart QS. $JOBCTLK - Error Subroutines 
Refer to Charts 21 to 22.. 



***** REFERENCES 
Z A TO QSC1: 

*** 5fci, 5hd« 

* QKD<4, QKJ5 

; OOca' 

OTSEBR X 

-****£)********** 

POINT TO * 

DESI8ED * 

MESSAGE * 

1S10D * 

*G1 * 

********* ******* 



***** REFERENCES 
!***ITO QSC2: 
I .JQFBJ, QHJ1 
* ** Au i/i nan i 



TUBM ON * 

AUTO CANCEL * 

SWITCH * 

• 
******** 



***** D2*»* ******* 

* point to * 

* DESIRED * 

* MESSAGE * 

* 1L00D * 

* *G1 * 

***************** 



C2: 


***** REFERENCES 

* * TO QSC.l; 

*, ** QHB1, QKD1 

* QNP5, QOP2 




***** 

* * 
* 


HJ1 
HK3 




KCS 
LAU 




LE3 








HF2 


* 




• 




LAXERR X 


NLUERR 


X 




*****£ 3* ********* 


*** 


t*Ck********** 




» POIHT TO * 




POINT TO * 




* DESIHED * 




DESIRED * 




* MESSAGE * 




MESSAGE -* 




* 1L10D * 




1AU0D * 




* *G1 ♦ 




*G1 * 




***************** 


***************** 



***%2********* 
BRANCH TO * 
ERRRTN IN * 
JJOBCTLA * 

************** 



MESSAGE DESCRIPTION 

1A40D INVALID LOGICAL UNIT SPECIFICATION 

1L00D INVALID LABEL SYNTAX 

1L10D LABEL AREA EXHAUSTED 

1S10D STATEMENT OUT OF SEQUENCE 
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Chart QT, $JOBCTLK - SETPRT Statement Processor (Part fl of 3) 
Refer to Charts 21 to 22. 



****A1********* 

* * 

* SETPRT » 

* * 
*************** 



**** 

* * 

* B2 * 

* * 

• *** 



* Btt * 

* * 
**** 



♦. CONCATENATION. ♦... 



*****£ 1 ********** 

♦CONCAT QH* 

*-*-*-*-*-*-*-*-* 

* READ ♦ 

* CONTINUATION * 

* CARD * 
***************** 



* INITIALIZE * 
♦SPPLIST, FLAGS,* 

* KWTABLB * 

* * 
***************** 



SYSXXX X 

*****£ 1********** 

♦SCANR2 GK* 

*-*-*-*-*-*-*-*-* 

* GET FIRST * 

* OPERAND * 

* * 

***************** 



IS 
DELIBITER 
. A •<*• . 



* OPERAND * 

STARTS WITH 
♦. «STS« .* 



*****C2********** 

* * 

* SET * 

* DISPLACEMENT * 

* TO a * 

* * 
***************** 



**** 

* * 

* E3 * 

* * 
**** 



* H2 *.X 

* * 
**** 



****H2********* 

* BRANCH TO * 

* NVSERR IN * 

* SJOBCTLA * 
*************** 



*****B3********* 



**************** 



REFERENCES * * 
TO QTBU: * * 
QVD4, QVFU * ** 

QVJ1 ***♦* 



***** 
*QU * 
* B1* 



*****C3****« ***** 
♦CHKCNV OH* 
*-*-*-*-*-*-*-*-* 

* CHECK DECIMAL * 
♦VALUES S CONf. * 

* TO BINARY * 
***************** 



* **** 

* * 

* B3 *.X 



**** 
GBTLUB X 

*****23********* 
* 

* GET 

* PARTITION 

* NICL 
* 

**************** 



•XXX' > NICL .* 



•***G3*********i 

GET 

PARTITION 

FICL 

*************** 



*****H3********** 

* * 

* DETERMINE * 

* AND SAVE * 

* LOB POINTER * 

* * 
***************** 



• B4 * 

* * 

**** 



.* IS IT * 


. NO 


*. 'SYSLST' 


.*. 




*. # * 






*. .* 






*. .* 




X 


* YES 




■ **** 

* * 

* B2 * 

* * 
**** 


X 






*****£ 1 ********** 




* 


* 




* SET 


* 




* DISPLACEMENT 


* 




* TO J 


* 





****C<I********< 



*************** 



*****D4«**«****** 
*SCANR2 GK* 

*-*-*-*-*-*-*-*-* 

* GET NEXT * 

* OPERAND * 

* * 
***************** 



.* IS *. 


YES 




*. LENGTH > 6 .*.... 




*.-■ .* 






*, .* 






*. .* 


X 




* NO 


***« 






* 


* 






* H2 


* 






* 


* 






***« 




X 






*****pil********** 






* POINT TO 






* KEYWORD « 






* TABLE i 






**************** 







.* IS 
. OPERAND * 
*. KEYWORD 



*****jil*********t 
* 

* POINT TO 
.* NEXT ENTRY 

* KWTABLB 
* 

****************: 



.* OPERAND *. 
.X*. ALREADY 

♦.SPECIFIED.* 



***** j <}***•****** 

♦ SET OPDFLAG * 

* IN ENTRY * 
« OP KWTABLB * 

***************** 



X 

***• 

*uv 



******** 
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Chart QU- SJOBCTLK - SETPRT Statement Processor (Part 2 of 3) 
Refer to Charts 21 to 22.. 



• A3 * 

* * 
**** 



kL i8i 



•S3********** 



BOBS ♦.BO 
THAI OBB .*..... 


****B2********* 
• BBABCB TO • 
...X* BfSBBB IB * 


* 

• SOfB LOB 

• AODBBSS ti 

• SBPLZST AJ 

:****58&*i 


0PBB1BD .* 
*. .* 


• tJOBCTLA • 
*************** 





.* 


DFLT 


*. 


OFF 




• 




IBDICATOB 




*.... 






*. 


.* 










*- -• 












• - .* 




I 








• CM 




•**'> 










• 


* 






'. 




* B3 


* 



•••• *C3********** 

* SET FOIBNBS • 

* TO LTB AID * 

* SPFLIST * 



*. BOBSX FLAG 



** ***02*********< 

• ■ 

• SBT DEFAULT 
.1* BIT IB 

• SPPPLAG1 



****«03********** 
♦SBTAPBT _^ 61* 

*«0 tO SJOBCTLA • 
* TO ISSOB TUB • 



J. 



.* ». 

•* * 

*. FOBBS FLAG 



***************** 



****g3********* 

• BBABCB TO * 

• CCMTBOL IB • 

• tJOBCTLA * 
*** ************ 



***************** 



*. CBABS FLAG -*- 



*****G2********** 

• * 

• BOFB BLABKS * 
.X* TO SPFCBAB1 • 



***************** 



» DUfB BJiANIta * 

• TO SPfFLASB • 
.X* AID 255 TO * 

• SPPFLSBC * 



X 

.♦. 

J1 *. 

* *- 

♦ . OFF 
FCB FLAG .*..... 


•****J2********** 

* • 

* BOFB BLABKS * 


-• 
•- .* 
*- .♦ 

* OB 

Ix 


• * 

• • 
***************** 



**** 

* • 

* B3 * 

* * 
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Chart QV, $JOBCTLK - SETPRT Statement Processor (Part 3 of 3) 
Refer to Charts 21 to 22* 



*QT * 
* J!>* 

* * 



**** 
* B3 * 



**** 

* Bi> * 

* * 
**** 



CKPARM , X 

*****g1 ********** 

•SCAN3 GK* 

*-*•>*-*>*-*-*-*-• 

..X* GET * 

. * PARAMETER * 



**** 
* 
* B1 



********** 





* 


THIS 


* 


YES 








FIRST 




*. . . . 






*, 


PARAMETER. 

**. .** 

* NO 


* 


X 

**** 












* 




* 




* 




* B3 


* 


* 


F" 


*.X. 




* 


* 


* 
R 


► ** 
10 


* 

* X 
.*. 

F1 *. 

* IS * 




**** 








LAST 




NO 




* 




CHARACTER 









* B5 * 

* * 
**** 



*****Q 1*********1 



****************, 



**** 

* * 

* BU * 



**** 

* * 

* J2 *.X 



****j 2*** ****** 

* BRANCH TO * 

* NVSERR IN * 

* JJOBCTLA * 

*************** 



CKPRM2 .*. 


CKPHM8 .*. 


83 *. 


B«» * 


.* IS *. 


.* 


.* PIRSt *. NO 


.* PAR* 


*. Character .*.... 


....X*. LENGTH 



* ■■*. OFF 

CONTINATIGN .*... 
*. FLAG .* 



*****C3********* 
* 

* INCREMENT 

* POINTER 

* DECREMENT 

* LENGTH 
**************** 



***************** 



D3 *. 






D*» '*. 






Ob *. 


* * 






.* * 






.*■ *. 


LENGTH 


** 


YES 


.* IS 


*. NO 


.* ••'■*.. 


* ZERO 




*. . . . 


*. PARAMETER 


.* 




*. LENGTH OK .* 




.*" 




*. a * 


* 




*. .* 


*. . * 






*. .* 






■*. . * 


*. .* 




X 


*. .* 




X 


*. .* 


* NO 




**** 

* * 

* B5 * 

* * 


* YES 




***** 
*QT * 
* B«»* 

* * 


* YES 


X 
.*. 




**** 






* 








X 






X 


E3 *. 






*****£4******* 


>*** 




*****g^*********« 


* * 








* 




* ROUT (X) * 


LENGTH 


**. 


YES 


* ZERO 


* 




*Q»**-*-*-*-*-*-* 


POSITIVE 


* 


*. . . . 


* •*• FLAG 


* 
* 




* PROCESS * 

* VARA METER * 


*. .* 








* 




* * 


*. .* 




X 


***************** 




***************** 


* NO 




**** 

* * 










... X. 




* PI * 

* * 










" 








**** 











**** 

* * 

* J 2* 

* * 
*.*** 



**** 

* * 

* J2 * 



NO .* IS *. 

...*. PARAMETER . 

*. OPTIONAL .* 



* YES 
**** 

* * 

* J3 *.X. 

* * 

**** 

X 
*****J3********** 

* * 

* POINT TO * 

* NEXT ENTRY IN * 

* KEYWORD TABLE * 

* * 
***************** 



*G5********** 



*************** 

* **** 
. * * 
..X* US * 
* * 
**** 



H5 



PARAMETER 


*. 


NO 


ALLOWED 




*. . . . 


AFTER . 


* 




*. • *• .* 










X 


* YES 




**** 

* * 

* J2* 
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Chart Qtf. $JOBCTLK - SETPRT Processing Subroutines 
fiefer to Charts 21 to 22.* 



****n********* 

• ROOT 1 * 

* * 

*****•**«*****• 



*********«******i 



CI *. 
.* * 

NEGATIVE 



*****B2********* 

* HOVE BUNKS 

* tO FILBO 

* IN SPPLIST 



• BOOT 3 * 

***«••*****•••* 



*****BJ********** 
*CHLNV ON* 

*_*.*.*.*-**«.*'..* 



• VBJ 



Bf TO BXNABY • 



BS 


•• ~ IS . 




*. PARAMETER 




». AN •*• 




». .* 


X 


*. .* 


**** 


* YES 


* * 




* G3 * 





ARE 

LENGTH 

EQUAL 



PARK 

EQUAL 

POUND 



**»* 

* * 

* P1 ».X. 

* * . 
**** 

IRCBPTB X 

*****pi ********** 

* ♦ 

* POINT TO * 

* NEXT ENTRV IN * 

* PARK TABLE * 

4* * 

***************** 



* pi * 

* * 
**** 



D2 
.* 
• IS 
LBNGTH 



: ****B2********* 1 

SET 
ASTBRIKS 
PLAG ON 



C3 *. 

.* *. 

VALUE > 255 



*****D3*********« 

* * 

* STOBE VALOB * 

* IN FIB LI) OP * 

* SPPLIST * 

* * 
***************** 



****B<»****»*«** 

SAVB LINK 
BEGISTBB 

i*************«*i 



*****PI»********** 
*BOUT2 ON* 

•-*-*-»-*-*-*-#-* 

* STORE * 

* CHARACTERS IN * 

* SPPLIST * 

***************** 



*****U^«********* 

* POINT TO * 

* LAST * 

* CHARACTER ♦ 1 • 



* G3 * 

* * 
**** 



****B3********* 

* BETUBN * 

* TO CALLER * 

* * 

*************** 



*****G1 ********** 

* * 

* EXECUTE * 

* SET PLAG * 

* INSTRUCTION * 

* * 
***************** 



TO CALLER 



*************** 



****P2********* 

* RETURN * 

* TO CALLBB * 



* ARE 

CHARACTERS 
*. VALID . 



*****H2********* 
* 

* HOVE 

* CHARACTERS 

* TO SPPLIST 
* 

*«*********«****; 



****J2********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 




**** 
CHXSNV1 

•*»**C5*******«*i 



****«******«•***: 



.* ISCHAB *. YBS 
«. ACTBR < .*... 

«. .* 



*••* 

* * 

* GJ * 

* * 
**** 



****Q3*«******* 



****pil******«** 

* RETURN * 

* TO CALLBB * 

* * 
*************** 



IS 


* 


YES. 


CHARACTER 




*».X» 


> •* 


,* 




*. .* 






*• .* 




X 


* NO 




***• 

* * 

* 63* 

* * 
**•* 


X 






.*. 






PS *. 






* *, 






END 


*• 


MO 


OP SCAN 


** 


*. .. . 


•. . * 






*. .• 




x 


* tt a 




*«'•• 

• * 

• C5* 

• * 
*»** 



****J5********* 
» RETURN * 
* TO CALLER • 
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Chart RA. $JOBCTLM - Recorder File Initialization 
Refer to Chart 23- 



**** 

* * 

* A3 * 

* * 
***• 



**** 

♦ * 

* A« * 

• * 
•*** 



***** 1********* 

* * 

* SJOBCTLfl * 

* • 

*************** 



HAIHOO X 

*****B1** ******** 
*IHITOO 



***************** 



.* BP *. IBS 

*. EQUALS CBBATB.*... 



•****B2********** 

* IHDICATB * 

* IN EF DfF * 

* TO BE OPBHBD * 

* FOB 18 POT * 

* * 
***************** 



♦-*- » ., * - ♦ - ♦ - ♦ -.»-* 

* FOBHAT * 

♦ BBCDBDBB FILE * 

• * 
***************** 



.* IB- *- 

|. BBCOPBBABLB . 

♦.I/O EBBOH.* 



• SET OP * 
.X* BBSSAGE 118 6A * 

* *E«> * 



**** 

* * 

* B5 *.X 



•***ns********* 



>. .* 
*. .* 
* IKS 



► IB- * 


. IBS 


.* fALID *- BO 


* 60 £0 WAITERS * 


BHCOVEBABLB 


.*.... 


*. HEADER . .*...... 


* IH SJOBCTLA *X... 


«.J/0 BBBOB.* 




*. READ .* 


* *D!> * 


». .* 




*. .* 


*************** 


*. .* 


X 


*. -* 




* HO 


**** 


* IKS 






♦ * 




•*** * 




* A5 * 




* * . 




* • 




* C5 *... 




**** 




* * . 


. 






**** . 


X 




i 


OPBMBBB X 


i*«C3******** 


** 


**c«******* 


*****C5** ******** 




* 


* * 


* * 


SET FLAG 
BP BUILT 


* 


* SET FLAG • 


* SET OP * . 


* 


* BPBEADI IH * 


..X* BBSSAGE 1184A *.... 


I ft BFTABLB 


* 


* BFTABLB * 


* *E5 * 



***************** 



***************** 



*********** 



* J4 * 

* * 

**** 



**£|******* 

• * 

• RESET 

* FLAG BPIPL 

* IH RFTABLB " 

* • 
*********** 



XIBS .* PBA 
.....*. CI-SIBB 

♦. CHAHGBD 
*. .* 



***************** 



m 




* C5 * 






* 4 






*•** 


X 






.*. 






61 *. 






► * 






IS 


*. 


IBS 


SISfiEC 
OPEH 




*.... 


.* 




it. .* 






*. .* 




X 


* HO 




**** 






* 


. 




* B4 « 



**** *S3********** 
♦PRAHPBOC BP* 

*_*_ *_*_*_*_*_*_* 

* PHOCBSS * 

* FRAHBS * 

* * 
***************** 



.*.... 

uuu. .* 

•* • 
. .* X 
* IBS •*** 

* * 

* B5 * 

* * 

**** 



* IPL RKCOBD 



*D5 
TBR SUBBOOTIHB 
HAITERR IS JiRAHCBBD 
TO AX A BAL IH- 
STBOCTIOK. 
HOHEVBB, CORTBOL 
HBVBE BRTOBRS 
TO THE HOD STATB- 
HBBT PB0C3SS0B. 



BBS 
118 



DESCRIPTION 
BBCOBDIHG 
COHPJlBTBD 
RECORDER FILE 
TOO SHALL 
RECORDER PU.it 
OPEH PAILUHE 
BBBOB OB RECORDER 
PILE AT CCCCBBBBB 
RECORDER PUB XXX 



OPEH FAILURE 
HARD COP* OH DISK 
HOT SUPPORTED DOB 
TO OPBH BBBOB 



.* 
.* 
IBS 



**** 

* * 

* A2 * 

* • 
**** 



.* BP *. BO X 
*. EQUALS .*..... 
*. CREATE .* 
*. *G5 .* 
*. .* 
* IBS 



***************** 



*****S3********** 

* • 

* IHDICATB * 

* PB ABBS EXIST * 

* iB HEADER * 

* BBCOBD * 
***************** 



**** *g3********** 
*BBTHDBOO 



***• x 
BAIB200 .*. 

B4 *. 



*****g5********** 

* CALL SBBCCBBB * 

* tO BUILD RAS • 
.1* IH COBB * 

* DIRECTOR I * 

* ■ • *■ 
***************** 



**J1******* 

* IHDICATE * 

* IH BPTABLB * 
* BBCOBDBB PILE * 

* OH PBA * 

* * 
*********** 



*****K 1********** 

* COPI PHYSICAL * 

* BLOCKS I2E * 

* IHTO RF DTP * 

* AS I0SI2E * 

* * 
***************** 



***• 

* * 

* A2 * 

* • 
**•* 



***************** 



HAIH020 X 

**** «J3********** 
♦HAPCttHOO BG* 

* BO I Id * 

* CiAiBBL ID * 

* HAP * 
***************** 



* J4 *.X- 

* * -X. 

•*** 



**** J*** ******** 



***************** 



K2 *. 
.* *• 
* IB- *. IBS 
BBCOIBBABLE .*.... 
'.I/O BBBOB.* 
*. .* 

*. .* X 


*****K3********** 
♦HDHiKOO BL* 

* BEAD * 

* HB J)Efi BBCOBD • 

* • 
**** ************* 


*****g i|** ******** 

* SET OP BEGS * 

* TO POIHT TO * 

* BABD COPI *.... 

* IHIT1ALIZEB * 

* BODTIHB * 
***************** 


****K«)** ******* 

* PETCB < 
....I* SJOBCiLC i 

* i 
*************** 


* |0 •**• 

* * 

* A5 * 
X * * 

**** **** 


X 

**** 
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Chart RC- $JOBCTLM - ROD Command Processor 
Refer to Chart 23, 



**** 

• * 

* 12 * 



****A1********* 

* * 

* ROD00 * 

* • 
*************** 



BOOOO X 

*****B J********** 
*IBIT00 BB* 



BOD 10 

NO .* 



***************** 



D2 * 
3800 



B2 * 
8809 



BDB3895* 

•***«B3********** 

* SBT OP * 

* TO CALL * 
...X* iSABBRAB * 

* POM THIS FOB * 

* *BS * 
**•*••*********•* 



* BO^LD BBCOBOS * 

* AID WRITE * 

* OH STSBKC • 
**** ************* 



BLDOBB00 **** 

BDB3800 

**** *D £********** 



•SBT DP TO CALL * 
.X* SfcjtBBBBC POB *. 

* MIS POB * 

* * 
**** ************* 



mis pob 

*•** ************* 



•*P1******* 

* * 
INDICATE ' 
VALID BOO 

COHHAMD « 

* * 
*********** 



*****G t********** 



***** 
*BB * 
* A1* 



* BOiLD BBCOBOS * 

* ABO HBXTB OB * 

* SXSBBL * 
**** ************* 



BOODASD00 X 

*****G2********** 
•SET OP TO CALL * 

• $$ABBBBB * 

* POB TBIS POB * 

• *BS * 

* * 
***************** 



* BOILD BBCOBOS * 

* ABD BBITB * 

* OB SYSBBC * 
***************** 



*♦** , 
ROD05 X 

*****j1«********* 
•BBXTPOO BB* 



***************** 



m****BH********** 
•LOGBBUOO BB* 

*—*-*-»_*_*-*-*_* 

* ASK OPBBATOB * 

* IP BOD * 



•****iiS**** ****** 
•LOGBBUOO BB* 

*-*-.*-*_*-*-*_*-* 

* ISSDB BBSSAGB * 

* TO OPBuATOB * 

* • 
***************** 



*****Q^*********« 

* * 

* POIMT TO * 

* BBSSAGB 1JL92I * 

* *f& * 

* • 
***************** 



SBT BOD 

&BCOBD 

IBPOBBATIOB 



*E5 
TUB A-TBABSIBNTS 
$$ABBBAB OB S$ABBBB£ 
ABB CALLED. 
BOMB IBPOBBATIOB IB 
OOS/YS BBBOB BBCOVBBI 
ABD BECOBD1MG 
TRANSIENTS LOGIC. 



*P5 

BBSSAGB DESCMIi>TIOM 
1I89A IPL RBASON CODB 
1I90A END OP DAI » 
1I91A SOB-SXSTBH ID = 
1192A INVALID CODB 



BOD20 X 

m****GH********** 
♦PBBCBTOO BB* 



***************** 

**** " 

* * 

* 84 ».I. 

* * 
**** x 

BOD30 .*. 



* BBSSAGB 118 21 * 

* * 

* * 
***************** 



♦ A2 * 

* * 
*♦** 



BODCOBT X 

***** K *********** 

* SBT OP * 

* BBGISTBBS * 

* TO POIBT TO *. 

* BOD BOOTIBB * 

* * 
***************** 



****]£<>******•** 

* FBTCB * 

* *JOBCJXC * 



i********* 
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Chart RE. SJOBCfLM - Build EOD Outboard Record 
Refer to Chart 23* 



•RC * 

VI* 



""SSSSgnJ, 



*»**A !*»♦♦»•♦♦»* 



•••••«••*•••••••• 



MAS 

f OLD as 
. OFBBBD 



•x* 



*****A4********** 
_*_*_*-»_• 
GET • 
SMS£ DATA • 



* * 

* iilTOO * 



Bi ** 

»* *. 

2400 TAFB 

*%. .♦• 

** .* 

• 

£ 

CI *. 



J. 

01 *. 

-• * 

*l 3886 OCT 



.X.. 

***•* 
*BC * 
* Jt* 
• • 
* 
BOOOS 



**• *C3********** 



•••••« ••••••••••* 



• 800 OBB BCD * 

* FOB 2400 • 

• 3400 TAPES * 

* • 

••••••*••*••••••• 



•••• «£«•••••*•••* 
»SfC44BO0 _^ BB* 



•••*••••••••*•••• 



•••••^^•••••••••* 

• SET W 

• LOB ABD MB 

• POIMYBBS 

* 
•••••••••••#**••* 



•****CS**** •***•• 
* 

• SICK9 

• GETVCB 

• FOB SISBBC 
* 
••••••*•*•• «••*•* 



> *» IBS 

*. SOB ABBA .*.#..!• 
** ZERO .♦ 



««***£1**« *••*•*• 

♦POT DEVICE TfPE* 
* I/O ADDB ABO * 
•OSAGE IN RBCOBD* 



*••• *£3********** 
•SIC h4 BOO BB* 

•-•..*_*..*..*.•..•..* 

* iliTE HKCOfiD *..X 

* FOB OCfi * 

* • 
••*•***•**•*•*•*• j 



••its* •••••* 

* • 
SET SISBBC 

ASSICkBD 
SilTCB 

• • 
*********** 



BLDOBi 

••I 



OB ABBA II 



3*11 __ = 

SOB ABBA II 
OBB BBCOBD 



•••*•?!>**••*• ***• 

• 

» SAYJt 

• DEVICE 

* COlSTABtS 



***•**••*••*•*••• 



* 63 » 

• • 
«••* 



61 * 

* 

3S40 



••*• 

* * 

* 63 * 

* • 

•••• 



v£* 



•••••g '!•*••••••*• 

* BOTE IBFO * 

* FBOH ST A HOARD • 

* COOiTEHS IB * 

* FOB 2 TO BCD * 

* . * 
••••••••••*«•*••* 



m**m*Q2********** 

• * 

• CLEAB * 
.X* F0B2 SOB *X. 



*••• «G3********** 



*••••#••*••«•**•* 



BIDOBB20 X ^ 

**+m+a2** ******** 
•COOBOO BB* 

• ADD OS * 

• DBTICB CODES * 

• • 

*••**••*»*•••••♦• 



m*tk^******* 



••••••••••• 



X 
\I2 *. 



•***«J3« •*•**•*«• 
•SVC+4BO0 BB* 

*-*- * ♦ i -» *f t - ■"■ - " 



**«*«K !*«••••••*• 



•••*•*•*•*••••*** 



• 03B BBCOBO * 

* * 
••*•«••••*•**•*•• 



.1.. 

••••• 

♦ac * 
• ji» 

* • 

BOD05 



••••K4********* 

• BETBB1 • 

• fo CA10.BB • 

• • 

•*••••••*•••••• 



*. .* 

»* .* 

• IBS 
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Chart RG. $JOBCTLM - Build Channel Map Routine 
Refer to Chart 23. 



** A 1********* 

HAPCHNOO * 

************* 



* SET OP 

* RBTU8H 

* PSH 

* 
**************** 



SAVE 
PROG CK 
OLD PSH 

*******•*******! 



*****Q 1*********1 

* 

* GET INTO 

* SUPVR 

* STATE 



BAPCHOS 

*****£ 1*********1 

RESTORE 
PGH CK 
HEM PSH 
AND CLEAR 
OLD PSH 
**************** 



**pi******* 

* * 
SSH TO 

ALLOW ALL 
INTERRUPTS 

* * 
*********** 



**** 
HAPCHN10 

*****G1 ********** 

* * 
» POINT TO * 

* CHANNEL * 

* ID LIST * 
« * 
***************** 



* SET UP * 

* TO CK * 

* NEXT CHANNEL * 

* * 
***************** 



ALL 
CHANNELS 
. CHECKED 



****C2** ******* 

STORE HAP 
IN RF 
TABLE 

*************** 



****A3********** 

* 

SET UP * 

FOR BLOCK * 

HPX CHANNEL * 

* 

**************** 



*****C3********* 
* 

* SET UP 

* FOR IFA 

* CHANNEL 
* 
****************< 



NO?B HAP 
TO WORK 
REGISTER 

*************** 



HAP 

IN WORK 

REG 



***** p2********* 

* RETURN TO 

* START OF 

* CHANNEL ID 

* LIST 

*************** 



* SET UP 

* FOR HPX 

* CHANNEL 

* 

*************: 



*****B3********* 
* 

* SET UP 

* FOR 

* DEFAULT 
* 
**************** 

**** 



***************** 



ALL 
CHANNELS 
. TESTED 



* ADD 

* CHANNEL ID 

* TO HAP 

* 

****************! 



* SET UP 

* FOR SELECTOR 

* CHANNEL 

* 
*************** 



*****!( 3********** 

* CONVERT * 

* CODE TO * 

* HALF BITES * 

* AND STORE * 

* * 
***************** 



****J3********* 

* RETURN TO * 

* CALLEB * 

* * 
*************** 



**** 

* * 

* G1 * 

* * 
**** 



* no **** 

* * 

* F3 * 

X * * 

**** **** 

* * 

* A3 * 

* . * 
**** 
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Chart RH» SJOBCTLM - Subroutines 
Refer to Chart 23- 



****A1********* 

* « 

* OPENPILE * 

*************** 



SVC 22 

RELEASE 

SYSTEM 



**C1******* 

♦ * 

* COPY DEVICE 
* TYPE CODE 

* INTO DTP 

* * 
*********** 



*****]) 1********** 

♦ * * * 

♦ * OPEN PILE * * 

♦ * ADDRESSED * * 

♦ BY REGISTER 1 * 

♦ * * * 
***************** 



*****£ 1 ********** 



***************** 



****f 1 ********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



****A2********* 

* * 

* WRTDSKOO * 

* * 
*************** 



****43********* 

* * 

* MRTHDROO * 

* * 
*************** 



RECORDER 

PILE OR 

PBA 



**************** 



*****£ 2********** 

* * 

* PUT ADDRESS * 

* OP PIRST CCU * 

* IMTO CCB * 

* * 
***************** 



*****D2********** 



*****C3********** 

* * 

* SET UP * 

* SEEK ADDRESS * 

* AND RECORD ID * 

* * 
***************** 



*****B4********** 

* * 

* CLEAR • 
X* RECORDER PILE * 

* BUPPBR * 

* * 
***************** 



*****£(l********** 

* COPY * 

* HEADER RECORD * 
♦AMD CI CONTROL * 
♦IMTO RP BUPPER * 

* * 
***************** 



*****D4********** 

* SET UP CCVMS * 

* TO WRITE * 
.* RP BUFPER AS * 

* HEADER BLOCK * 

* * 
***************** 



***E2********** 



***************** 



*****P2********** 



***** 53** ******** 

♦HRTDSKOO RH* 

*.*.*.*-*_*.*-*.* 

* WRITE * 

* RECORD * 

* * 
***************** 



**pj********* 
RETURN * 
TO CALLER * 



****Ai********* 

* * 

* BLDHDROO * 

* * 
*************** 



BLDHDROO 

*****05********** 

* SET UP SXSHKC * 

* INPORHATION * 

* IN HEADER * 

* RECORD * 

*• * 

****** 



*****C5********** 

* * 

* SET UP * 

* WARNING * 

* THRESHOLD * 

* * 
***************** 



*****D5*******^%* 



***************** 



♦♦♦•US********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



********** 



»***G2********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 
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Chart RJ- SJOBCTLM - Subroutines 
Refer to Chart 23. 



****A1* ******** 

* * 

* BLDIPLOO * 

* * 

*************** 



CLEAR IPL 
RECORD 
ABBA 

************* 



*****C1 ********** 

* PUT CHANNEL * 

* ASSIGNMENTS * 

* AND HAP * 

* IN RECORD * 

* * 
******* 



********* 



* D1 *.X. 

* * 
**** 

BLDIPL05 X 

*****D1********** 

♦LOGRBQ00 RK* 

*.*.*_*.*.*-*.*-* 

* REQUEST VIA * 

* SYSLOG POR * 

* IPL RBASON * 

***************** 



*****£ J ********** 

♦SCANOO RH* 

*-*-*-*.*-*-*-*-* 
*CHECK RESPONSE * 

* FOR * 

* VALIDITY * 
***************** 



*D2 
IPL REASON CODES 



.code . explanation 
!"n*T! 'normal 



PBOG ERROR 



IN . IE REQUIRING MAINTENANCE. 
"6p" I 'OPERATIONAL* PROBLEM *. 

"en*! 'environmental '. 

*CE*!*CE/SE*c6*JTROLLiiG*sisTE*l*. 

* UP*! *USBR* PROGRAM ! 

*HE*!*HEDiA ! 

*UN*!*"»HK*J&i*J ! 



**** 
BLDIPL16 X 

*****f2*********' 



PUT IPL 

REASON 
IN RECORD 
w *D2 

**************** 



.X* 



* POINT TO 

* MSG 

* 1I92I 

* 

**************** 



*****G2********** 
♦LOGREQ00 RK* 

*-*-*-*-*-*-*-*-* 
♦REQUEST SOBSIS * 

* ID VIA * 

* SYSLOG * 
***************** 



**** 



*****H1*****«: 

•LOGREQ00 RK* 

*_*-*_$_*_*-*_*-* 

* ISSUE MESSAGE * 

* VIA * 

* SYSLOG * 

***************** 



**** 

* * 

* D1 * 

* * 
**** 



PUT SOBSYS * 

ID IN * 

RECORD * 

*J» * 

*************** 



****K2********* 

* HETURN * 

* TO * 

* CALLER * 

*************** 



H3*********! 



**************** 



*****j3********** 

•LOGREQ00 RK* 

*.*.*_{.*-*-*.*-* 

* ISSUE MESSAGE * 

* VIA * 

* SYSLOG • 

***************** 



*JU 
SUB-SISTBM ID CODES 

!C0DE* ! " EXPLANATION ! 

!* 66" '."UNKNOHN'OR* DEFAULT ! 

! * 10* * ! * HARD* CODE 

!"*>6"!*dasd ! 

! * 36* * *. * bisk ! 

!**»6**!*tape ! 

! * 5*>" " ! * card* printer * * * ! 

!"76"*!"tp*" * ! 

! * 80* * ! * GRAPHIC * * ! 

!* 90* *! 'type* i* or'typb* ii* program! 

!" 91* *!* IBM* PROGRAMMING* PRODUCT* * ! 
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**** 

** * 

* 42 * 



*##*A 1 ********* 

* * 

* PBRCNTOO * 

* * 
*************** 



PERCNTOO 

*«***B1 ********** 
CALCULATE 



♦A J 

MSG ISSUBD BY B4L 
POINTH5G2, NHICH 
ISSUES Bit LOGRBQ00- 
CHART RK. 



El TH 
POL 



*NUHBER OF BYTES* 

* USED POH THE * 

* RECORDER PILE * 



AMD ISSUE 
♦ A3 

************** 



*****B3***«****** 

* * 

* ISSUE * 

* MESSAGE 119 JI * 

* *AJ * 

* * 
***************** 



***£ll ********* 

* 

LOGBEQ00 * 

• * 
************** 



S**glt********** 

v * 

* SET UP * 

* RESPONSE * 
♦DEFAULT FIELDS * 

* * 

***************** 



*****£ 1 ********** 

*RDHDROO RL* 

*-*-*_*_ *.*-*_*.* 

* READ HEADER * 

* RECORD * 

***************** 



»*** 

* * 

* Cb * 

* * 
**** 



*************** 



PILE 

LESS THAN 

36K 



X 

*****£ 1********** 

* GET RECORDER * 

* PILE. START ♦ 

* ADDRESS AND * 

* CONVERT TO * 
*REL TRACKS **i* 
*********** -i--^-^— 



******** 



♦ CONVERT * 

♦ *K2 * 

***************** 



.♦ PILE *. 
.LESS THAN TEN. 
•• TRACKS ,* 



**** 

* * 

* J1 * 



***************** 



' ***gn****»******« 

♦ ISSUE * 
RESPONSE 
» I/O REQUEST * 

***************** 



***pi)*********« 



***************** 



•*G2*«******** 



***************** 



****D5********* 

* RETURN • 

* TO CALLER * 

* . * 
*************** 



***************** 



*************** 



*****H1** 

* GET, CURRENT * 

* TRACK ADDRESS * 
•AND CONVERT TO * 
♦RELATIVE TRACKS* 

* *K2 * 
«*•******•***«*** 



* J1 «Mt. 

* * 
**** 

PBRCNT03 

*****j 1********** 

* CALCULATE * 
♦PERCENT OP PILE* 

* PULL AND MAKE * 

* PRINTABLE * 

* *J2 * 
***************** 



*****K f ********** 

* ' ■'.''* 
« PUT PERCENT * 

* PULL IN * 

* MESSAGE 1I9JI * 

* * 
************ 



**** 

* * 

* C5 * 

* » 

**** 



JfiBKTH, J.JS 01 

TO BY A BAL INSTRUCTION. 
HOWEVER, CONTROL NEVER 
LINKS BACK TO THE ROD 
STATEMENT PROCESSOR. 



THE PERCENTAGE IS 
CALCULATED EXCLUDING 
SPACE USED FUR HEADER 
RECORD. IT IS ROUNDED 
HIGH. 



*K2 
BAL CVTRELT 
CONVERTS TO 
RELATIVE TRACKS. 



* A2 * 

* * 

**** 
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Chart RL.. $JOBCTLM - Subroutines 
Refer to Chart 23- 



•***H3********* 

* * 

* RRTFILOO * 



RECORDER 

FILE ON 

FBA 



* B1* 

• * 

WRTFBAOO 



****B1 ********** 

* 

CLEAR * 

HEADER AREA * 

IN STORAGE * 



*****Bi»* ******** 

* HOVE DATA 

* INTO RCD 

* AND SET UP 

* SEER ADDRESS 
* 
**********«****< 



* SET UP CCH'S * 

* FOR READING * 

* OF HEADER * 

* * 
***************** 



***************** 



****g1 ********* 

• RBTORN • 

* TO CALLER * 



******** 



UPDATE 

HEAD 
NUMBER 



*. END OF CYL 



*****l)5********** 

* * 

* GKT CXL VALUE * 
X* AND Si'OKE * 

* NEW HEAD ADDR * 

* * 
***************** 



**************! 



LAST 
TRACK 
DONE 



****q it*********; 

GET 

DATA 

LENGTH 

*************** 



*****H (I ********** 

♦HRTDSKOO RH* 

*.*.*.*..*_*-*-*.* 

* WRITE * 

* RECORD * 

* * 
***************** 



J4 *. 
.* *. 
NO .* 
, ..*. I/O ERROR 



XES 
X 



****KU******* 

* RETURN 

* TO CALLER 
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Refer to Chart 23* 



****A1 ********* 

* * 

* NEXTPOO * 

* * 
*************** 



GET ADDS • 

OP NEXT * 

POB IN TABLE * 

* 
**************** 



****A3********* 

* ' * 

* SCANOO * 

* * 
*************** 



.* RESP 
HATCHES 
*.IPL LIST 



****«g5********** 

* * 

• POINT TO * 
X* NEXT SEASON * 

• IN LIST * 

* * 
***************** 



END 
OP PUB 
TABLE 



**D1******* 

* * 

SET END 

OP PUB 

SNITCH 



NEXTP05 

*****C2********* 

* POINT TO 

* NEXT PUB 
. ..X* AND PUB2 

* AND SAVE 

* ADDRESS 
**************** 



*****Cit ********** 



***************** 



****D3********* 

* RETURN * 

* TO CALLEB * 

* * 
*************** 



**g1********* 
RETURN * 
TO CALLER * 
* 
************* 



****gtl********* 

* * 

* SVC1HR00 * 

* ' * 
*************** 



****p 1********* 

* * 

* CODB00 * 

* * 

*************** 



* GET ADDR • 

* OP OS DEVICE * 

* CODE TABLE * 

* * 
***************** 



CODE *. NO 
HATCHES .*... 
ENTRY .* 



*****H2********** 

* * 

* UPDATE * 
X* TO NEXT * 

* TABLE ENTRI * 

* * 
***************** 



*****p(4********** 

* * * • 

* * SVC 22 ♦ * 

* * RELEASE * * 

* * SXSTBH * * 

* * * * 
***************** 



*****Q||********** 



***************** 



***Hil************ 

* SVC 7 * 
WAIT POR 
* COHPLETION * 

***************** 



*****JI4 ********** 



***************** 



****K1********* 

* RETURN * 

* TO CALLER * 

* » 
*************** 



***************** 



•***Kt| ********* 

* RETURN * 

* TO CALLER * 

* * 

*************** 
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Chart RN. SJOBCTLM - Subroutines 
Refer to Chart 23, 



**ty********* 
* 
SNSOO * 



*****B1 ********** 

* * 

* CLEAR * 






* SENSE * 




* BUFFEH * 

***************** 






ic 
ci" **. 


*****C2******i 


.* *. 




.* DEVICE *. YES 


* GET LUB 


*. ASSIGNED .* 


..X* ♦ PUB 


*. . * 


* ADDRESSES 


*. .* 


* 




************** 


* NO 




**** 




* * 




* D1 *.JC. 




* * 




**** 




SNS10 


X 


X 


*****D2******< 


****D1 ********* 




* RETURN * 


* ASSIGN 


* TO * 


* SXSUS3 


* CALLER * 


* fo DEVICE 


*************** 


* 



***************** 



SNS001 

***** £2* ********* 

* * * * 

* * SVC 22 * * 
» * RELEASE * • 

* * SYSTEM * * 

* * * * 
***************** 



***F2********* 



ISSUE 
SENSE I/O 



***************** 



*****G 2* ********* 



*****H2********** 



***************** 



**** 

* * 

* D1 * 
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* a<* * 

* * 
**** 



***Al********* 
* 
FRAMPROC * 



*****g-| ********* 
* 

* SCAN PUB 

* TO ASSIGN 
♦SERVICE CONSOLE- 
* 
**************** 



*****£) 1 ********* 



****£1******* 

ENABLE SRF 

************* 



♦SUCCESSFUL *. NO 
OR RETRY .*... 
*. > 5 .* 



♦. SUCCESSFUL 

***NO 
**** 

* * 

* B2 *.X. 

* * 
**** 

X 
*****B2******* 



************ 



#***A3********* 




.* *. 


* * 


NO 


* is IT *. 


* RWFRAHES * 


...... 


.FIRST RECORD . 


* * 




*. .* 


*************** 




* *. .** 








* YES 


**** 
















* B3 *.X 






* * 








**** 






X 


RWFLOOP X 






*****B3********** 




BH *. 


* * 




.* *. 


* READ * 




* TOO MANY *. 


* FRAME RECORD * 




FRAMES FOR . 


* 


* 




*. EREP1 .* 



***************** 



**C2********* 
RETURN * 
TO CALLER * 
************* 



*****D2******** 



********** 



* C2 
**** 



***jp2******** 

ISSUE ERROR 

MESSAGE 

1176 



*****C4 ********** 



********* 



************ 



*****gi4 ********* 



..X* GJ * 



*****p 4 ********** 



************ 



****U5********** 



************ 



****G 3* ******** 
RETURN * 
TO CALLER * 
* 
*************** 



**** 
* GJ * 



***yt,* ********* 

* 

PREPARE ♦ 

TO READ * 

CC FRAMES * 



*****j i********** 

* * 

* * 

* DISABLE SRF * 



NO .*SUCCESSFUL *. 
...*. OR RETRY .* 
*. > b .* 



MESSAGES USED: 

1I74A *NO PUB GIVEN FOR SERVICE CONSOLE 

117b *SRF CANNOT BE ENABLED/DISABLED' 

1176 'SRF VERBAGE HRITE/R^AD FAILURE* 

1177 'MORE THAN 50 FRAMES IN SET' 

1178 *.CF FRAME SET MISSING* 

1179 'SYSREC* FRAME WRITE FAILURE* 

MESSAGES 1175. 1176 HAVE ADDITIONAL 
CCSK INFORMATION: 

ICSHINF1 DC CL80' CCSH=00 

ICSWINF2 DC CLttO' SNS= * 
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SJOBCTLM - Subroutines 
Refer to Chart 23- 



****A1******«** 
* BDDISKOO 

urn************* 



* 

* SETRFOOO 

* 
************** 



SETRP000 .*. 



Hi**********: 



*****d********** 

* * 

* PUT ADDRESS * 

* OF FIRST CCW * 

* IN CCB * 

* * 
***************** 



****D1 ********** 



SVC 22 

RELEASE 

SYSTEM 



RECORDER 

FILE ON 

FBA 



***** C 2********** 

* COPY DEVICE * 

* CONSTANTS AND * 

* START OF FILE * 

* TO RFTABLE * 

* * 
***************** 



****D2*»******* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



***************** 



**** 43* ******** 

WRTPBAOO * 

* 
*************** 



**** 

*BL * 

• A« *.X 



•CALCULATE SIZE * 

* OF A PORTION * 
•S1440/FBABLKSZ * 

* * 
***************** 



*****C3********** 

* START FIRST • 

* PORTION AT * 

* FIRST DATA * 

* BLOCK OF * 

* RECORDER FILE * 
***************** 



*****& <l*** ******* 

•IOERRFOO RT* 
*-♦-*-.#-*-*-*-*-* 

* READ SINGLE * 

* BLOCKS PROM * 

* PORTION » 
***************** 



* U4 *.X. 

* * 

**** 

X 

*****B«****** 

* 

» SWITCH 

* TO NEXT 

* PORTION 

* 
**************** 



*****G1 ********** 



***************** 



****H1********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



*****F2********* 

* SET UP START 

* OF FILE AND 

* BUFFER LENGTH 

* IN RFTABLE 
* 
**************** 



*****G2********** 

* CALCULATE * 

* CONTROL DIGIT * 

* FOR FBA * 
•BUFFER ADDRESS * 

* * 
***************** 



*****H2********** 

* SET UP A * 

* DEFINE EXTENT * 

* ARGUMENT FOR * 

* RECORDER FILE * 

* * 
***************** 



****j 2*** ****** 
RETURN * 
TO CALLER * 

* 
*************** 



* PREPARE CCW'S * 

• TO HRITE * 

* ONE PORTION * 

• * 
***************** 



*****£ 3********** 

•HRTDSKOO RH* 
*-*-*-*-*-*-*-*-* 

* WRITE ZERO * 

* RECORDS INTO * 

* THE PORTION * 
***************** 



.* *. NO 

•.IRRECOVERABLE.*... 
♦.I/O ERROR.* 



*****G 3** ******** 

•IOERRFOO RT* 
*_*_*_*_*_*_*_*_* 

• WRITE SINGLE * 

• BLOCKS OH * 

• PORTION * 
***************** 



****Q4 ********* 

* RETURN * 

* TO CALLER * 

* * 
*************** 



****A5**«****** 

* * 

* IOERRFOO • 

* * 
*************** 



IOERRFOO X 

*****g5********** 

• START TO ♦ 

• READ/WRITE * 

• AT BEdIN OF • 
•CURRENT PORTION* 



X.. .. 



IOBRRF10 

*****C5*********i 
» SET UP CCHV" 

* TO READ 

♦ OR WRITE 

• ONE BLOCK 



*****D5********** 

* * * * 

* • SVC 22 * * 

* * RELEASE * * 

* * SYSTEM • * 

* * * * 
***************** 



***E5***** ******* 



***************** 



*****P5**« ******* 



***************** 



****G<4 ********* 
RETURN * 
TO CALLER OF *X. 
WRPFBAOO * 

*************** 



*****H3**«******* 

* * 

* PREPARE CCW'S * 

* TO READ THE * 

* SAHE PORTION • 

* * 
***************** 



*****j3********** 
•RDDISKOO RT* 

*-*-*-*-*-*-*-*-* 

* READ PORTION * 

* BUT SUPPRESS * 

* DATA TRANSFER * 

***************** 



.* *. NO 

*. IRRECOVERABLE. *. . . . 
♦.I/O ERROR.* 



****************: 



****£•}******** 

RETURN 
i'O CALLER 
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**** 

* * 

* &«» * 

* * 

**** 



****A1********* 

* * 

* JJOBCTLN * 

* * 
*************** 



****A2********* 

* SIHEOJ * 

* *K1 * 

* * 
*************** 



X 


SIHEOJ X 


**B1******* 


**B2******' 


SET * 


* 


RETURN * 


♦ SET RETURN 


BRANCH * 


* BRANCH FOR 


FOR EXEC * 


* SIMULATED 


CD * 


* EOJ 


*********** 


*********** 



•***A3********« 

* EOJ * 

* ♦ KJ * 

*************** 



**B3******* 

* SET * 

RETURN 

BRANCH FOR 

NORMAL 

♦EOJ * 

*********** 



****CI********** 

STORE JOB • 

CONTROL REGS * 

ESTABLISH » 

TABLE * 

BASE * 

**************** 



****D i ********** 

* 

SAVE ID OP * 

PARTITION * 

IN CHARGE * 

* 

**************** 



.♦ IS *. 
.* ANOTHER ■*. 
. SJOBACCT .' 
*. RUNNING .♦ 



*****C3********** 

* * 

* POINT TO * 
X* FIRST * 

* HAIT * 

* BLOCK * 
***************** 



****D2********** 

POINT TO * 
NEXT WAIT *X 
BLOCK * 

* 
(*************** 



*****£3* 



******** 



* TORN OFF * 

* ACCOUNTING SB *X.. 

* IN COHREG * 
* * 

*********** 



**G1******* 
* * 

♦ POST CANCEL * 
ACCOUNTING TO 

* OTHER * 
♦PARTITIONS * 

*********** 



**H1******* 



*********: 



* PUT ♦ 

* PARTITION * 

* ID IN WAIT ♦ 

* BLOCK * 

***************** 



*****P3********** 

♦HTNCNT GU* 

*_*-*_*_*_*_*_*_* 

* RELEASE * 

* THE SISTEH ♦ 

* * 
***************** 



*****Ai|********** 



***************** 



*****B4**«******* 

* * 

* SAVE * 

* JOB NAME * 

* FROM CONREG * 

* * 

***************** 



*****C«********** 

* POST * 

* «JOB ACCT 1 * 

* AS NEW JOB * 

* NAME IN * 

* COHREG ♦ 
***************** 



*****DD ********** 

* * 

* GET PIB * 

* ADDRESS AND * 

* PARTITION * 

* PIB * 
***************** 



*****£ t| ********** 

* * 

* GET ♦ 

* PARTITION ♦ 

* SAVE AREA * 

* * 
***************** 



*****?(*********** 

* * 

* POST ♦ 

* 'JOB ACCT* ♦. 

* IN SAVE * 

* AREA ♦ 
*****************. 



** A 5******* 

POST 
USER IN 
CONTROL 



LABEL 

AREA 

SUPPORT 



**C5******* 

* ACTIVATE * 
OPEN/CLOSE 
LABEL AREA 

CAPTURE 

* * 
*********** 



********* 



********** 



INITIALIZE 

USER 

REGISTERS 



LAST 

USER EXIT 
. NORMAL .' 



***** 

♦ SB ♦ 

♦ D1* 



*****H2********** 



***************** 



GETINE1 

*****J2********** 

* COMPUTE FINAL ♦ 

♦ CPU TIME AND ♦ 

♦ SAVE IT AS * 
♦START TIME FOR * 

* NEXT STEP ♦ 
********** 



*****G(|*** ******* 



*********** 



*****H3********** 
♦HTNCNT GO^ 

*-•-*_*-*„*.*-*-* 

♦ SEIZE THE ♦ 

♦ SSTSTEB ♦ 

♦ * 
***************** 



*****j3****** 



**y 5 ********** 

LOAD * * 

»JOBACCT ♦ ♦ 

INTO * ♦ 

PARTITION * ♦ 

<SVC<4) ♦ * 



****j5********* 



******** 



ENTRY FROH JJOBCTLG, 
JOB STATEMENT PROCESSOR 
AT SIMULATED BOJ, 



*K2******* 



*********** 



♦K3 
ENTRX FROH /♦ 
STATEMENT PROCESSOR 
AT NORMAL AND 
ABNORMAL EOJ, 



EXIT TO 
USEES' JOB 
ACCOUNTING 
PROGRAM 



**** 

* * 

* AU * 
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Chart SB* 



$JOBCTLN - Job Accounting Interface (Part 2 of 2) 
Refer to Chart 24. 



ENTRY FROM *JOBACCTA IP 
THE SJOBACCT ROUTINE WAS 
CANCELED. 



*POST PARTITION * 
..X* COMPLETE IN * 
. *ALL USED SEIZE * 

* BLOCKS * 

***************** 



CONTINUE X 

**E1******* 

* TURN * 

* OFF 

* SJOBCTLN 

* ACTIVE 

* SWITCH * 



CANCEL * 
*A1 * 

************ 



*****92* ********* 

* * 

* INITIALIZE * 

* BASE * 

* REGISTERS * 

* * 
***************** 



*****C 2* ********* 



***************** 



***** 02** ******** 
♦HTNCNT GU* 

*-*-*-*-*-*-*-*-* 

* RELEASE THE *. 

* SYSTEM * 



****A3******** 

* RETURN FROH 

* SJOBACCT 
************** 



* RESTORE 

* BASE 

* REGISTERS 

**************** 



****** 



!********** 



*****D3********** 

* *SVC 91 PASS* * 

* *CO»TROL TO * * 

* * POWER/VS * * 

* * SVC 90/91 * * 

* * APPENDAGE * * 
***************** 



****£ 3********4 

* SVC 7 * 

* WAIT FOR * 
♦POSTING OF * 

* ECB BY * 
POIEB/VS 



* * 



DEACTIVATE 

LABEL 

SWITCH 

* * 

*********** 



EXBKSWCH .*. 

G1 *. 

.* *. 
.* WAS *. NO 


EJBKSWCH .*. 

G2 *. 
.* * 
.* WAS 
....X*. ENTRY FROM 


*. EXEC .* 


*. EOJ 



**************** 



**P3******* 

* * 
* TORN OFF * 

OSER IN * 
♦CHARGE SWITCH* 

* * 
*********** 



*****G3********** 

* RETURN USER'S * 

* JOB NAME *. 

* TO COHREG * 

* * 

***************** 



*****B<1********** 



HOVE CPU TIME 
USED BY USER 
TO OVERHEAD 

*************** 



*****D4 ********** 

* * 

* REINITIALIZE * 
♦JOB ACCOUNTING * 

* TABLE * 

* * 
***************** 



*****gt) ********** 

* * 

* SET NEW START * 
♦TIME OF STEP IN* 

* ACCX RECORD ♦ 

* * 
***************** 



* tib * 

* * 
**** 



CLEAR 

FIRST SIO 

ENTRY 



**U5********** 

* 

CLEAR * 

TIME * 

COUNTERS * 

* 

************** 



*****G4 ********** 

* CLEAR USER * 
♦RELATED ACCOUNT* 

* FIELDS ♦ 

* * 
***************** 



*****P5********** 

* * 

* ♦ 
♦CLEAR SIO TABLE* 

* * 
***************** 



SIO ♦. NO 
TABLE .♦... 
CLEAR .♦ 



♦ POINT DUMMY 

♦ VECTOR TO 
♦EXEC PROCESSOR 

♦ IN SJOBCTLB 
**************** 



* WAS *. 

ENTRY FROH . 

*. SIHEOJ .* 



****J1 ********* 

* BRANCH TO 

* FETCHRF IN 

* SJOBCTLA 

*************** 



***** j 2* ********* 

* * 

* POINT DUMMY * 
.* VECTOR TO * 

* 'ACCTSIMR' * 

* IN SJOBCTLS * 
***************** 



****{! 3* ******** 

* CONTROL * 

* fJOBCTLA * 

* * 
*************** 



****j3********* 

* * 
,.X* EOJ SVC 14 * 

* * 

*************** 



* GET LENGTH * 

* OF * 

* SIO TABLE * 

* * 
***************** 



SET 

TABLE 

DELIMITER 
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Chart TA. $$BLSTIO - Initialization 
Refer to Chart 15. 



****A1******* 
* PUIF 
************* 



****ij-)********** 

LOAD BASE REG * 

WRKRG3 WITH * 

CURRENT POB * 

ADDR FROM * 

TPUBADD * 

**************** 



*****£ 1 ********** 

* UNPACK AMD * 

* TRANSLATE * 

* CHANNEL AND * 

* UNIT TO BCD * 

* IN WRKRG1 * 
***************** 



****D1******** 

MOVE CHANNEL 

AND UNIT TO 

TCHNL AND 

TUNIT 

************** 



IS IT 

SYSTEM 

UNIT 



**32******* 

INITIALIZE 

FOR 
TEST HOPPER 

* * 

*********** 



IS RDR 
LOGICAL 
UNIT 



.* IS IPT ♦. 

*.OR PCH A LOG-.* 

*.ICAL UNIT.* 



**K2******* 

* * 

* MODIFY TM * 
♦INSTRUCTION FOR* 

* SYSIPT OR * 

* SYSPCH * 



*****p 2********** 

* * 

* INSERT HI FOR * 

* HOPPER 1 INTO * 

* TMODE FIELD * 

* * 
***************** 



*. YBS 
STANDARD . *. . . 
. SETTING .* 



**H2******* 

* MODIFY * 
TM INSTRUCTION* 

* TO TEST 
* TEMPORARY * 

* SETTING * 
*********** 



* MODE * 

BYTE IN PUB 
*. EUUAL .* 



***** B 3******** 
* 

* MOVE 

* DEVICE TO 

* DVCHK 
* 
*************** 



YES .* IS 
X....*. DEVICE 
*. DASD 



*****Q3********: 

* 

* UNPACK MODE 

* OF DEVICE IN 

* WRKFLD1 



***A4******* 

CLEAR 

OWNERSHIP 

FIELD 

-fOHN- 

************ 



*MULTIPROGRAMING*... 



*****C(i**«******* 

* COMPUTE * 

* PUB OWNER ID * 
*BG,F1,F2, ETC. * 

* AND MOVE TO * 

* TOWN * 
***************** 



*A5 

THE SWITCH, TtfBOGSW, IS 
ON IF A SINGLE 
ASSIGNMENT IS BEING 
PROCESSED. A SINGLE 
ASSIGNMENT OR 
ARGUMENT IS SPECIFIED 
BY THE OPERAND SYSXXX. 



*B5 
POINT1 CONTAINS VALUE 
CALCULATED IN ROUTINE 
FNDABG FROM LOGICAL 
TRANSIENT KEY AND 
THE OPEBAND. POINT1 
VALUE MAY BK NEGATIVE. 



* D4 *.X. 

* * 
**** X 

PUIFT3 .*. 



*Db********** 



* SINGLE *. YES 

ASSIGNMENT .*.... 
*. ♦ AS .* 



*****P3********* 

* UNPACK 

* MODE OF JOB 

* CONTROL FLAGS 

* IN PUB IN 

* WRKFLD1 
**************** 



***** g<t ********** 

* * 

* LOAD WRKRG3 * 

* WITH KEY OF * 
♦UNIT CLASS FROM* 
♦POINT! *BS+ 
***************** 



****F5* 

CONVERT LOG 
WITH NO. TO 

EBCDIC IN 
TLUNIT ♦ i 
-SYSXXX FF- 

************** 



.* DEVICE *. 

♦TAPE CARTRIDGE.* 

♦. READER .♦ 



J1 ♦. 
.♦ WAS ♦. 
.* SINGLE 
. ARGUMENT 
*. SPECIFIED. 



**K1******* 

COMPUTE 

CLASS KEY 

FOR 

LATER 

TEST 



*****K 2* *♦♦♦♦♦*♦' 
* 

* INSERT H2 FOR 

* HOPPER 2 INTO 

* TMODE FIELD 
* 

****************: 



*****j3********** 

* * 

* RESET WRKRG1 * 

* TO ORIGINAL * 

* MODE * 

* * 
***************** 



♦TRANSLATE MODE ♦ 

♦ TO EBCDIC AND ♦ 

♦ MOVE TO TMODE ♦ 

♦ FIELD ♦ 



*****G4 ********** 

♦ BUILD LOGICAL ♦ 

♦ UNIT POINTER ♦ 

♦ IN WRKRG3 ♦ 



*****H4* ******* 

♦ MULTIPLY 

♦ POINTER BY 5 

♦ TO DEVELOP 

♦ TABLE 

♦ DISPLACEMENT 
*************** 



*****jtl ********** 
♦ADD SYSTEM UNIT^ 

♦ TABLE ADDRESS ♦ 

♦ DISPLACEMENT * 

* FOR LOG UNIT * 

* ADDR IN TABLE ♦ 
***************** 



*****K4**** 



*** 



* MOVE L03ICAL ♦ 

* UNIT TO ♦. 

* TLUNIT +3 * 

* -SYSXXX- * 

***************** 
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Chart TB. $$BLSTIO - Operand Identification 
Refer to Chart 15* 



PNDABG * 

************** 



♦A2 

1. POINT1 EQUALS THE EXIT 
ADDRESS EXIT OR ALLXT. 

2. WRKRG4 EQUALS 0. IT IS 
USED AS A DISPLACEMENT 
INDEX VALUE TO SELECT 
THE COBRECT BRANCH 
INSTRUCTION IN THE 
BRANCH TO HHICH LINKR1 
IS THE POINTER. 
WRKRG2 EQUALS 1. IT 
INDICATES THE SECTIONS 

OF THE LUB TABLE 1. 2, 4 
WRKRGJ EQUALS 0. IT 
INDICATES A KEY VALUE 
POINTER TO THE LOGICAL 
UNIT CLASS. 



3. 



♦ A3 

RBGISTSR 15 IS 
BASE REGISTER P 
THIS TRANSIENT. 
IS NOT RESTORED 
THIS ROUTINE. 



********** 



FNDARG5 

*****B3******** 

* SET RETURN 

* CODE 

* HRKRGU EQ 

* TO 1$ 

*************** 



NO .* IS *. YES 

...*. OPERAND .*.... 

*. ALL .♦ 



****D1* ********* 

* 

SET WRKRG3 » 

TO 1 * 

-KEY FOR * 

PPOG OPER.- * 

**************** 



**C2********* 
**BLSTIO 

************* 



*****£ 2* ******** 

* INITIALIZE 

* TRANSIENT 

* SWITCH BANKT 
♦TO OFF -HEX 00- 

**************** 



*****C3*** ******* 

♦ SET RETURN ♦ 

♦ CODE ♦ 

♦ VIBKRG** EQ ♦X 

♦ TO B ♦ 

♦ * 
***************** 



*****D 3* ********* 

♦ SET RETURN ♦ 

♦ CODE ♦ 

♦ WBKRG4 EQ ♦X 

♦ TO 12 ♦ 



IS 

OPERAND 

con 



********** 



E1 ♦. 


*****g2********** 


.♦ ♦. 


♦ GET * 


.♦ ♦. YES 


* COMMUNICATION * 


♦. OPERAND = .♦..X 


♦REGION ADDRESS * 


♦. PROG. .♦ 


♦ FROM LOCATION ♦ 


♦. .♦ 


♦ HEX 16 ♦ 


♦ . .♦ 


( ***************** 



*****E3********** 

* SET RETURN ♦ 

* CODE ♦ 

* WRKRG4 EQ *X 

* TO 16 ♦ 

* * 
***************** 



*****? i********** 

♦ SET LUB COUNT ♦ 

♦ IN HRKHG2 TO ♦ 
♦2 AND SET EXIT ♦ 

♦ ADDR. IN ♦ 
♦POINT1 TO ALLXT^ 
***************** 



.♦ IS ♦. 

♦ OPERAND ♦. YES 
-P1,F2,F3,P4-.*. ... 



**** F 2********** 

GET PIB TABLE ♦ 

ADDRESS FROM * 

COMMUNICATION * 

BEGION PLUS ♦ 

90 ♦ 

**************** 



****F3********** 
SET RETURN ♦ 
CODE TO 20 ♦ 
ASSUH SYSXXX 
OPERAND AND 
SET LUBCNT=1 

**************: 



SET LUB 
COUNT = 2 
-WRKHG2- 



IS 


♦. YES. 


* 


SET LOB CNT 


OPERAND 


.*..X. 




UKKK3 2 £0. 


DOWN 


.♦ 


♦ 


TO b 



♦X. 



*****G2***** 
♦GET ADDBESS 
♦LOGICAL TRA 
♦BUCKET, L.T 
♦FROM PIB TA 
♦ PLUS 8 
*********** 



NS. * 
.B. # * 
BLE * 



**** 
Y X 
*****G3********** 

♦ CALCULATE ♦ 
♦PARTITION CLASSY 
♦DEPENDING UPON ♦ 
♦OPERAND AND NO.^ 

♦ OF PARTITIONS ♦ 
***************** 



♦ G3 ♦ 

* * 
**** 



♦ ♦♦♦•[^♦♦♦♦♦♦♦♦♦^ 

♦ RESTORE REGS ♦ 
♦y-14 FROM SAVE ♦ 

♦ AREA PLUS 1b ♦ 

♦ ^A3 ♦ 

♦ * 
***************** 



EXIT FROM THIS 
ROUTINE IS TO THE 
BRANCH TABLE IN THE 
CALLING SEQUENCE. 
LINKBG1 PLUS THE 
DISPLACEMENT IN 
WRKfiGU SELECTS THE 
CORRECT BRANCH 
INSTRUCTION TO 
TRANSFER CONTROL 
TO THE CORRECT 
PROCESSING ROUTINE. 
P0INT1 CONTAINS 
LOGICAL UNIT CLASS 
POINTER. 
HRKRG2 CONTAINS 
THE LUB COUNT 
1# 2, U, 6, 8, OR 10. 



J1 ♦. 


*****j2* ******* 


* ♦. 


♦ RESTORE 


IS ♦. YES 


♦ REGISTERS 


OPERAND .♦..X 


* 0-8 FROM SAVE 


ASSGN .♦ 


♦ PLUS 44 



***************** 



**** K 2******** 

RETURN TO 

ADDRESS IN 

LINKR2 ^K3 

************** 



♦J 3 
L.T.B. CONTAINS THE ADDRESS 
OF THE SAVE AREA WHERE 
REGISTERS HAVE BEEN SAVED 
BY THE SUPERVISOR. 



♦ K3 
RETURN TO THE BOUTINE 
THAT FETCHED $*BLSTIO BY 
BRANCHING ON REG LINKR2. 
LINKR2 HAS LOADED WITH 
THE RETURN ADDBESS BY 
THE FETCHING ROUTINE 
AND HAS SAVED BY THE 
SUPERVISOR TO BE 
RESTORED BY THIS 
ROUTINE. 



*****£•)********** 

* REDUCE CLASS ♦ 

* KE*,*RKR3, ♦ 

* BY PARTITION ♦ 

* NO. VALUE ♦ 

* *K4 ♦ 
***************** 



***** Hb ********* 

* LOAD CLASS 
•INTO REG POINT1 

* FOR RETURN. 

* -VALUE MAY 

* NEGATIVE- 



***J5******** 

RETURN TO 

LINKR1+ 

WRKHG4 *G<4 



-1 FN -2 ETC. 
30 ... 
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Chart TC- $$BLSTIO - Build Print Line 
Refer to Chart 15. 



**** A 1 ********* 

* * 

* SULB * 

* * 

*************** 



*****B1********** 

* * 

* LOAD WBKRG3 * 

* WITH ADDRBSS * 

* OF I/O BUFFER * 

* * 
***************** 



*****C 1********** 

* HOVE TLUNIT * 

* TO LUNIT IN * 

* BUFFER+1 * 

* -SYSXXX- * 

* *J1 * 
***************** 



MOVE TCHNT 

TO LCHNT IN 

BUFFER+12 



*************** 



****ft^********* 

* SEUOB 

* 
*************** 



SEUOB 

*****Bt* ********** 

*INIT REGISTERS * 

* WRKRG3 EQ * 

* BUFFER ADDR * 

* HRKRG4 EQ * 

* PDB ADDR * 



*****Q4 ********** 

* * 

* CLEAR I/O *. 

* BUFFER TO * 

* BLAMKS * 

* * 
***************** 



*****D4 ********** 

* HOVE CHANNEL * 

* TO BUPFER * 

* FROM * 

* TCHRL. * 

* 1-BYTE * 
***************** 



IS *. NO 


SULB2 

*****B3********** 

* HOVE TCHNL * 

* TO LCHNL IN * 


X 

*****E4********** 

* MOVE UNIT * 
*TO BUFFER FROH * 

* TUNIT. * 


IGN .* 

. * 


* '* 

* *J 1 * 
***************** 


* * 

* 2 BYTES * 
***************** 



***F1 ********** 

HOVE **UA** * 

TO LCHNL IN * 

BUFFER+20 * 



***************** 



****F2* ******* 

HOVE **IGN** 

TO LCHNL IN 

BUFFERf20 



****? 3 ********** 

HOVE TUNIT * 

TO LPUNIT IN * 

BUFFER+26 * 



***************** 



*****G3********** 

* HOVE TMODE * 

* TO LHODE IN * 

* BUFFER+33 * 



*****p>,** ******** 

* * 

* MOVE -DOHN- * 
. X*TO THE I/O UNIT* 

*FIBLD IN BUFFER* 

***************** 



SEUOB2 

*****GU*** ******* 

* BUILD * 

* REHAINDER OF * 

* PRINT LINE * 

* BUFFER * 

* *JH * 
***************** 



****[]3********* 

* RETURN TO * 

* CALLING * 

* SEQUENCE * 
*************** 



LDNIT LCHNT LCHNL 
-SYSXXX XXX **-UA- 

**-IGN- : 



LPUNIT LHODE 



*JU 

1. HOVE OWNER TO OWNER FIELD 

2. HOVE HODE FROH THODE TO MODE FIELD 

3. MOVE LOGICAL UNIT FROH TLUNIT TO 
I/O UNIT FIELD 

4. HOVE THE COMMENT FROH TCMNT TO THE 
COMHENT FIBLD-HODE LBSS 6 BYTES 
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Chart TD. $$BLSTIO - Build Header 
Refer to Chart 15- 



*** A -i******** 

PSHRTN 



****A3****** 
* LHRTN 



BG 


FN - 


1 FN 


-2 ETC. 


LOGICAL 
IRAK. KEX 10 


20 


30 




PARTITION 
VALUE NO. 00 


02 


04 





***************** 



*****£ 1* ********* 

* * 

* MOVE CHANNEL * 

* AND UNIT * 

* HEADING TO * 

* OUTPUT BUFFER * 
***************** 



*****£ i ********** 

* MOVE OWNER * 
♦FLAG HEADING TO* 

* OUTPUT BUFFER * 



*****F1* ********* 

♦MOVE I/O UNIT, * 

* MODE AND * 
♦COMMENT HEADING* 

* TO BUFFER * 
***************** 



LHRTN 

*****g3***«****** 

♦COMPUTE LOGICAL* 

* UNIT CLASS * 
•NRKR4- RELATIVE* 
♦TO THIS PARTI- * 

♦ TION ♦AU * 
***************** 



****C3********* 

LOAD 

WRKRG4 WITH 

DISPLACEMENT 

TO CORRECT 

HEADER *B5 

*************** 



•****q 3*** ******* 

* * 

* LOAD URKR64 * 

* WITH ADDRESS ♦ 

* OF CORRECT ♦ 
♦HEADER *E5* 
***************** 



*****£ 3* ********* 

* * 

* MOVE HEADER * 

* TO OUTPUT ♦ 

* BUFFER ♦ 

* * 
***************** 



*B5 
PARTITION VALUE 
NUMBER ♦ CLASS 
KEY, POINT1 (FROM 
FNDARG ROUTINE) X2 
- DISPLACEMENT 
INTO HEADING 
INDEX TABLE. 



ISPLACENENT 
(VRKRG4) ♦ 
CONTENTS KEG 15. 
REG 15 = BASE 
REG OF »*8LSTI0 
TRANSIENT. 



****[] 3********* 

* RETURN TO 

* calling sag 

*************** 
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APPENDIXES 



APPENDIX A: LABEL LISTS 



1. SLA LABEL LIST 



Label 



Chart 



• ADDLBL 


- 


26 


• ADDNXL 


- 


26 


• CHAINREC 


- 


32 


• CHECKLAS 


- 


35 


• CLRGRPL 


- 


27 


• DETENTRY 


- 


30 


• DETLEN 


- 


34 


• DOIO 


- 


30 


• ENDLBL 


- 


26 


• EXECADD 


- 


31 


• FBAIN 


- 


35 


• FBAOUT 


- 


32 


• FBAREP 


- 


33 


• FIRSTADD 


- 


31 


• FIRSTREC 


- 


37 


• GETLACB 


- 


29 


• GETLBL 


- 


28 


• GETNXGL 


- 


28 


• GETNXL 


- 


28 


• GGRPCKD 


- 


37 


• GGRPFBA 


- 


37 


• GNXTFBA 


- 


36 


• GNXTHIS 


- 


36 


• HISTORY 


- 


35 


• IJBSLA 


- 


25 


• INITALL 


- 


29 


• INITLACB 


- 


29 


• INITPART 


- 


29 


• LOCGRPL 


- 


28 


• RDCHREC 


- 


34 


• RDIDREC 


- 


37 


• RDLABREC 


- 


34 


• READLAS 


- 


35 


• REPLBL 


- 


27 


• SRCHLAB 


- 


34 


• SRCHLAS 


- 


31 


• UPDHIS 


- 


35 


• UPDLACB 


- 


30 


• WRFBALAS 


- 


32 


• WRLABREC 


- 


32 


• WRLACB 


- 


29 


• WRSYSRES 


- 


30 
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2. DETAILED FLOWCHART LABEL LIST 



Label 


Phase 


Location 


SMAINERR 


SJOBCTLJ 


PLF3 


ACCNT1 


SJOECTLE 


LAA3 


ACCTBR1 


SJOBCTLA 


GBG2 


ACCTBR2 


SJOBCTLG 


NBH1 


ACCTBR3 


SJOBCTLG 


NBF4 


ACCTBR4 


SJOECTLG 


NBC4 


ACCTBR5 


SJOBCTLG 


NCD1 


ACCTBR6 


SJOECTLJ 


PMB5 


ACCTCL 


SJOBCTLA 


GBK2 


ACCTCL 


SJOECTLJ 


PMF5 


ACCTIGN 


SJOBCTLF 


MMC3 


ACCTIGN1 


SJOECTLE 


LBE2 


ACCTIGM2 


SJOBCTLG 


NED4 


ACCTIGN 4 


SJOECTLG 


NAE5 


ACCTIGN5 


SJOBCTLG 


NBK1 


ACCTIGN 6 


SJOBCTLG 


NBF5 


ACCTIGN7 


SJOBCTLJ 


PMB3 


ACCTIGN9 


SJOBCTLA 


GBA1 


ACCTLV1 


SJOBCTLA 


GBH3 


ACCTLV1B 


SJOBCTLJ 


PME5 


ACCTSIMR 


SJOBCTLG 


NCF1 


ACCTOPDT 


SJOECTLJ 


PMK2 


ACTION 


SJOBCTLJ 


PDB1 


ACTR$P 


SJOECTLA 


GCA1 


ACTTEST 


SJOBCTLF 


HSH3 


ADDRTN 


SIPLRT3 


DAB1 


ADREST 


SIPLRT4 


EFB3 


AGAIN 


SJOBCTLD 


JFE2 


AGAIN 


SYSEUFF1 


FQC4 


ALCMSG1 


SJOBCTLJ 


PRH2 


ALIGN 


SJOECTLG 


NHJ2 


ALIGN 


SJOBCTLJ 


PPE5 


ALLOC 


SJOECTLJ 


PQB1 


ALLOCR 


SJOBCTLJ 


PQB2 


ALLXT 


SSBLSTIO 


TBG5 


ALPHA 


SYSBOFLD 


FMB1 


ANSVA 


SIPLRT6 


E0C1 


ARND 


SJOECTLG 


NNA2 


ARND1 


SJOBCTLG 


NNJ4 


ASCIILBL 


SJOBCTLD 


INC3 


ASNRTN 


SIPLRT7 


EVC1 


ASSGN 


SJOBCTLD 


IAB1 


ASSGNALT 


SJOBCTLD 


I0A5 


ASSGNB4 


SJOBCTLD 


INB1 


ASSGNB6 


SJOBCTLD 


IHB1 


ASSGNB6A 


SJOBCTLD 


IGF3 


ASSGNB6D 


SJOBCTLD 


IGB4 


ASSGNB7 


SJOBCTLD 


IOBtl 


ASSGNC 


SJOBCTLD 


IBH2 


ASSGNDIB 


SJOECTLD 


IGH5 


ASSGNLST 


SJOBCTLD 


IGF5 


ASSGttP 


SJOBCTLD 


IFJ1 


ASSGNP1 


SJOBCTLD 


IFF2 


ASSGNP2 


SJOBCTLD 


IFH5 


ASSGNR 


SJOBCTLD 


IBE2 


ASSGNV 


SJOBCTLD 


IBJ2 


ASSGNO 


SJOBCTLD 


IBD3 


ASSGN1 


SJOBCTLD 


IBE3 


ASSGN10 


SJOBCTLD 


IPD2 



Label 

ASSGN101 

ASSGN11 

ASSGN12 

ASSGN20 

ASSGN20A 

ASSGN21 

ASSGN23 

ASSGN23A 

ASSGN23K 

ASSGN24 

ASSGN26 

ASSGN27 

ASSGN28 

ASSGN28A 

ASSGN28B 

ASSGN28C 

ASSGN29 

ASSGN3 

ASSGN3A 

ASSGN31 

ASSGN34 

ASSGN35 

ASSGN36 

ASSGN38 

ASSGN39 

ASSGN40 

ASSGN403 

ASSGN404 

ASSGN41 

ASSGN41A 

ASSGN41B 

ASSGN42 

ASSGN42A 

ASSGN42B 

ASSGN42E 

ASSGN43 

ASSGN43A 

ASSGN44 

ASSGN6 

ASSGN8 

ASSGN9 

ASSGN9A 

ASSGN9B 

ASSGN9C 

ASSGN901 

ASSIGN 

ASSIGNEX 

ASSIGN42D 

ASSPERH 

ASSTEMP 

ASSO 

ASS1 

ATNCOO 

ATNC001 

ATTNCHCK 

ATTNCHCX 

AOTONK 

BACK 

BACKSP 

BAD 



Phase 


Location 


$JOBCTLD 


IPJ1 


SJOBCTLD 


IPD4 


SJOBCTLD 


IPE2 


$JOBCTLD 


ISC2 


$JOBCTLD 


ISF1 


$JOBCTLD 


IGC3 


SJOBCTLD 


ISB3 


SJOBCTLD 


ISG3 


SJOBCTLD 


ISB5 


SJOBCTLD 


ISE2 


$JOBCTLD 


IJE3 


SJOBCTLD 


IJJ3 


SJOBCTLD 


ITD1 


$JOBCTLD 


ITE4 


SJOBCTLD 


ITF3 


SJOBCTLD 


ITB3 


SJOBCTLD 


I0C2 


SJOBCTLD 


IBH3 


$JOBCTLD 


JDB1 


SJOBCTLD 


I0F3 


SJOBCTLD 


IHD3 


$JOBCTLD 


IHC2 


$JOBCTLD 


IJB1 


SJOBCTLD 


JCJ3 


SJOBCTLD 


I0F5 


SJOBCTLD 


JCF4 


SJOBCTLD 


IGA1 


SJOBCTLD 


IGA3 


SJOBCTLD 


JDE3 


SJOBCTLD 


JDHU 


SJOBCTLD 


JDC5 


SJOBCTLD 


JDF5 


SJOBCTLD 


JEA1 


SJOBCTLD 


JED1 


SJOBCTLD 


JEA4 


SJOBCTLD 


JFC4 


SJOBCTLD 


JFC5 


SJOBCTLD 


JFB3 


SJOBCTLD 


IPC1 


SJOBCTLD 


IPF1 


SJOBCTLD 


IJB5 


SJOBCTLD 


IJGb 


SJOBCTLD 


IJJ5 


SJOBCTLD 


IJG4 


SJOBCTLD 


IHJ2 


SJOBCTLD 


IQB1 


SJOBCTLD 


I0K5 


SJOBCTLD 


JEJ1 


SJOBCTLD 


ISH1 


SJOBCTLD 


ITB1 


SJOBCTLD 


IAD1 


SJOBCTLD 


IAG1 


SJOBCTLA 


GVB1 


SJOBCTLA 


GVF1 


SSASIPLR 


BFB1 


SSASIPLR 


BFK2 


SJOBCTLE 


LDF3 


SJOBCTLN 


SBF3 


SJOBCTLD 


JFG1 


SYSBOFLD 


FPE2 
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Label 

BAD2 

BAL 

BBGSSXXX 

BCHEST 

BEGIPLR 

BEGXCOU 

BFOCL 

BFOCLC 

BFOCLI 

BFSMA'LL 

BINCON 

BLDAVRT 

BLDAVR10 

BLDAVR27 

BLDHDROO 

BLDIPLOO 

BLDIPL05 

BLDIPL10 

BLDIPL15 

BLDIPX20 

BLDIPL25 

BLDLUB2 

BLDOBROO 

BLDOBR10 

BLDOBR12 

BLDOBR20 

BLDOBR30 

BLDOBR50 

BLDPOB 

BLDP2T00 

BLDP2T05 

BLDP2T10 

BLDP2T12 

BLDP2T20 

BLDP2T25 

BLDP2T30 

BLDP2T40 

BLDSVA 

BLDTABL 

BLOCK 

BMPXCHK 

BMPXtNT 

BNPXLP 

BMPXMCR 

BMPXNBT 

BMPXNXT 

BMPXPT ' 

BMPXRTN 

BMPXSW1 

BMPXSW2 

BHPXZER 

BMPX8FL 

BMSGI 

BOTH FEAT 

BPUBLUB 

BPUBLUBC 

BPOBLOBL 

BPOBLOBP 

BPUBSC4 

BPUBSC6 

BPUBSC8 

BPOPSCT 

BSTOK 

BTLOOP 

BTLOOP 

BTOFRT 



Phase 


Location 


SYSBUFLD 


FPF2 


SYSBUFF1 


FSH2 


SJOBCTLD 


IBE1 


SIPLRT3 


DED1 


$$A$IPLR 


BAB1 


SJOBCTLD 


IQC1 


$$A$IPLR 


BGC3 


$$A$IPLR 


BGD3 


*$A$IPLR 


BGJ3 


SJOBCTLM 


RKG2 


*JOBCTLJ 


P0B5 


SIPLRT4 


ENB4 


SIPLRT4 


END4 


SIPLRT4 


ENF4 


SJOBCTLH 


RHB5 


SJOBCTLM 


RJBtl 


SJOBCTLM 


RJD1 


SJOBCTLM 


RJG 1 


SJOBCTLM 


RJF2 


tfJOBCTLM 


RJH3 


SJOBCTLM 


RJJ2 


SIPLRT7 


EVJ3 


SJOBCTLM 


REA1 


SJOBCTLM 


REF2 


SJOBCTLM 


REG3 


SJOBCTLM 


REH2 


SJOBCTLM 


REA2 


SJOBCTLM 


REB2 


$IPLRT3 


DEB1 


SIPLRT4 


EKC1 


SIPLRT4 


EKH1 


*IPLRT4 


EKB3 


$IPLRT4 


EKC3 


SIPLRT4 


EKD3 


SIPLRT4 


EKE3 


SIPLRT4 


EKK3 


4>IPLRT4 


EKF4 


SJOBCTLJ 


PPA5 


$IPLRT4 


EHB1 


SJOBCTLC 


HSB1 


SIPLRT4 


ESA2 


$IPLRT4 


ERE1 


SIPLRT4 


ERG3 


SIPLRT4 


ESE2 


SIPLRT4 


ERD3 


*IPLRT4 


ERG1 


SIPLRT4 


ERB5 


SIPLRT4 


ERB1 


SIPLRT4 


ERJ3 


SIPLRT4 


ERE5 


SIPLRT4 


ERF1 


$IPLRT4 


Esca 


$$A$IPLR 


BAH1 


SJOBCTLD 


KBK5 


«A$IPLR 


BGF1 


$$A$IPLR 


BGJ1 


$$A$IPLR 


BGE2 


$$A$IPLR 


BGH2 


*$A$IPLR 


BHE1 


$$A$IPLR 


BHH4 


$$A$IPLR 


BHG3 


$$A$IPLR 


BHB1 


SIPLRT3 


DFJ1 


$J0BCTLA 


GCH5 


SJOECTLG 


NGB3 


SJOBCTLJ 


PKG2 



Label 


Phase 


Location 


BTONRT 


SJOBCTLJ 


PKG1 


BUILDCOM 


$$A$IPLR 


BDG5 


BYPASS 


SJOBCTLJ 


PDH5 


B3DSASLO 


$$A$IPLR 


BEB1 


CALL 


SJOBCTLE 


LPA1 


CALLSEOJ 


SJOBCTLN 


SAG2 


CALLNORH 


SJOBCTLE 


LPA2 


CALL38 


SJOBCTLK 


Q0B1 


CALL 3b A 


$JOBCTLK 


Q0B3 


CANCEL 


SJOBCTLG 


NFB1 


CANCELIT 


SYSBOFF1 


FQE2 


CATAL 


$JOBCTLG 


NJB1 


CATAL 


$JOBCTLJ 


PNB1 


CCH1 


$$A$IPL1 


AAC3 


CCW2 


$*A$IPL1 


AAD3 


CCW3 


$$A$IPL1 


AAE3 


CCW4 


$*A$IPL1 


AAF3 


CCW5 


$4>A$IPL1 


AAG3 


CDLMANO 


$$A$IPLR 


BMB5 


CDLMANUX 


*$ASIPLR 


B1HF5 


CDLREAD 


$SA$IPLR 


BAG2 


CDSYSRDR 


$$A$IPLR 


BDJ2 


CHAIN 


SJOBCTLA 


GJE2 


CHCKDOC 


$IPLRT4 


END1 


CHCLOP 


$IPLRT3 


DEC1 


CHCNT 


3IPLRT3 


DEE1 


CHECKS1 


$JOBCTLE 


LEG1 


CHECK1600 


$JOBCTLD 


IttGl 


CHEK6250 


3JOBCTLD 


IMB4 


CHEXT 


$IPLRT3 


DHD4 


CHFIN 


$IPLRT3 


DEJ2 


CHKASG 


$JOBCTLA 


G0B3 


CHKASG3 


$JOBCTLA 


GOC3 


CHKCNL 


$JOBCTLA 


GHB2 


CHKCNT 


SJOBCTLA 


GJB4 


CHKCSW 


IP LB MAC 


AHD2 


CHKCSW1 


IPLBMAC 


AHC3 


CHKCYL20 


$IPLRT5 


FGC5 


CHKCYL30 


SIPLRT5 


FGD5 


CHKDIB 


$JOBCTLD 


IGA5 


CHKJIB 


$JOBCTLA 


GFD5 


CHKKBYTE 


3JOBCTLJ 


PRB5 


CHKLP 


SIPLRT3 


DHD 1 


CHKLST 


$JOBCTLA 


GFA3 


CHKNXC 


35JOBCTLD 


JHC3 


CHKNXC 


SJOBCTLK 


QRD3 


CHKOPN 


SJOBCTLD 


JSB3 


CHKOPN1 


3JOBCTLD 


JSC3 


CHKOPN2 


$JOBCTLD 


JSB4 


CHKOV 


$JOBCTLE 


LRB 1 


CHKPART 


SJOBCTLJ 


PRB3 


CHKPART1 


$JOBCTLJ 


PRD3 


CHKPGU 


$JOBCTLJ 


PTC4 


CHKPOB 


$JOBCTLF 


MPB2 


CHKPON 


$JOBCTLK 


QJJ3 


CHKREADY 


SJOBCTLJ 


PWB4 


CHKRF 


$JOBCTLJ 


PHA1 


CHKRNG 


$JOBCTLD 


JHB3 


CHKRNG 


$JOBCTLK 


QRC3 


CHKRNG1 


$JOBCTLK 


QRB3 


CHKSDL 


$JOBCTLJ 


PGD1 


CHKSTD 


$JOBCTLG 


NAJ3 


CHKTYPE 


SYSBOFLD 


FNA1 


CHKWAIT 


$$A$IPLR 


BEF4 


CHSLOP 


$IPLRT3 


DHJ5 
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Label 

CHSWFCL 

CHSWIST 

CHSWLP 

CHSWNXT 

CHSWOFF 

CHSWRTN 

CHULOP 

CHOPD 

CHURTN 

CHXCNV1 

CINIT 

CKCLAS 

CKDSCIL 

CKMSG 

CKPARM 

CKPRMO 

CKPRM1 

CKPRM2 

CKPRM3 

CKPRM4 

CKPRM5 

CKPRMb 

CLBLUB 

CLCKCHK 

CLDLP1 

CLDLP2 

CLDLP2 

CLDRTN 

CLEAR 

CLEAR 

CLEARFIN 

CLEAR370 

CLMOTOP 

CLOSALT 

CLOSE 

CLOSESYS 

CLOSfcl 

CLOSE 3 

CLOSE4 

CLOSE7 

CLOSO 

CLRDIB 

CLRDIB 

CLRDIB1 

CLRDIB2 

CLRDIB3 

CLRDIB4 

CLRDIB5 

CXRDIB6 

CLRDIB7 

CLRON 

CLRLBL 

CLR1 

CLSDU 

CNCLMD 

CNCLMOD1 

CNCL01 

CNIOAG 

CNKLNK 

CNUHCO 

CHONC01 

CNVRT 

CNVRTL 

CNVRTS 

CODEOO 

CODE05 



Phase 


Location 


SIPLRTU 


ETG3 


SIPLRT4 


ETC3 


SIPLRT4 


ETA3 


SIPLRT4 


ETD2 


SIPLRT4 


ETJ3 


SIPLRTU 


ETB1 


$IPLRT3 


DHE4 


SIPLRT3 


DHH4 


$IPLRT3 


DHB4 


$JOECTLK 


QWC5 


SJOBCTLE 


LPC3 


SJOECTLF 


NPJ1 


$$A$IPLR 


BEB2 


SYSBUFLD 


FOH1 


*JOBCTLK 


QVB1 


$JOBCTLK 


QVF1 


SJOBCTLK 


QVJ1 


SJOBCTLK 


QVB3 


WOBCTLK 


QVG3 


SJOBCTLK 


QVD2 


$JOBCTLK 


QVB5 


SJOBCTLK 


QVB4 


SJOBCTLF 


MP J 3 


SIPLRT4 


EAH1 


J&IPLRT4 


EEE4 


SIPLRT4 


EEF3 


SIPLRT4 


EEJ4 


SIPLRT4 


EEB4 


SIPLRT2 


CBH3 


IPLBHAC 


AEE3 


SIPLRT2 


CBJ3 


IPLBHAC 


AED2 


$IPLRT2 


CCC2 


SJOBCTLD 


JGH4 


SJOBCTLD 


IAB4 


SJOBCTLD 


JGB1 


$JOBCTLD 


JJB2 


SJOBCTLD 


JGB3 


SJOBCTLD 


JGB4 


MOBCTLD 


JGC2 


$JOBCTLD 


IAF4 


SJOBCTLD 


JKB1 


$JOBCTLE 


LFJ1 


$JOBCTLD 


JLB2 


SJOBCTLD 


JLC2 


$JOBCTLD 


JKB5 


*JOBCTLD 


JKE5 


SJOBCTLD 


JKK5 


SJOBCTLD 


JLB1 


SJOBCTLD 


JLD1 


$JOECTLF 


MPB3 


SJOBCTLG 


NJD3 


SJOBCTLN 


SBD5 


SJOBCTLD 


JKE4 


SJOECTLA 


GWJ5 


SJOBCTLA 


GWF4 


SJOBCTLG 


NFE1 


SJOBCTLD 


KAE2 


SJOBCTLG 


NMB2 


JfiJOBCTLJ 


PTB4 


SJOECTLJ 


PTD5 


SJOBCTLE 


LTB2 


SJOBCTLE 


LTD 2 


SJOBCTLE 


LTG2 


SJOBCTLM 


RMG1 


WOBCTLM 


RHH1 



Label 

CODE10 

CODE15 

COMCHK 

COMLOG 

COMLOP 

COMPARE 

COMPDAY 

CONDSCK 

CONTIN 

CONTINUE 

CONTROL 

CONT3 

CONT4 

CONT5 

C0NT6 

CONVHEX 

COPYLP 

CPBFEND 

CPYSLB 

CRBSQ1 

CRJBSQ 

CRTTST 

CRTTST1 

CSET 

CTRLSW 

CVHRC 

CVTOC 

CYLDP 

C48 

C60 

DASDOPO 

DASDOP2 

DASDVOL 

DATE 

DATIMERT 

DBLSCN 

DCUXTN 

DDLOB 

DEBLOCK 

DECK 

DECLP 

DECRL 

DECRR 

DECRTN 

DELLOP 

DELRTN 

DETACHR 

DETBG 

DETBGLS 

DETBGRS 

DETBGX 

DETCONT 

DETHW 

DETHWX 

DETHWY 

DET370 

DEVFND 

DEVTEST 

DIBRC 

DISDEV2 

DISKDEV 

DISKET1 

DISKET2 

DISKET3 

DISKT 



Phase 


Location 


SJOBCTLM 


RMJ1 


SJOBCTLM 


RMK1 


SIPLRT4 


EEB2 


$IPLRT4 


EBF3 


$IPLRT4 


EEC2 


SYSBOFLD 


FOJ4 


SIPLRT4 


EFE2 


$JOBCTLD 


JCD2 


IPLBHAC 


AEH2 


SJOBCTLN 


SBE1 


$JOBCTLA 


GCB2 


$JOBCTLA 


GCC3 


$JOBCTLA 


GCH3 


$JOBCTLA 


GCJ3 


SJOBCTLA 


GCC5 


SJOBCTLJ 


PWB3 


SJOBCTLJ 


PDF3 


$IPLRT4 


EEH3 


SIPLRT7 


ElfBI 


SJOBCTLG 


MAG3 


$JOBCTLG 


NAA3 


SJOBCTLG 


NBE3 


$JOBCTLG 


NBF3 


SJOBCTLE 


LPJ3 


$JOBCTLA 


GFJ3 


SIPLRT5 


FCC3 


$IPLRT5 


FBB5 


$IPLRT4 


EBD1 


$JOBCTLG 


NHG3 


SJOBCTLG 


NHG4 


SJOBCTLD 


ILE1 


$JOBCTLD 


ILJ1 


$JOBCTLD 


INF1 


SJOBCTLJ 


PHB2 


SIPLRT4 


5FB1 


$IPLRT3 


DAA3 


SJOBCTLA 


GFF5 


$IPLRT3 


DJF2 


SJOBCTLC 


HSB3 


SJOBCTLG 


NHB1 


SIPLRT2 


CJC3 


$IPLRT2 


CHD2 


SIPLRT2 


CHE4 


SIPLRT2 


CJB3 


$IPLRT3 


DCA3 


$IPLRT3 


DCA1 


SJOBCTLF 


HME4 


$*A$IPLR 


BJB2 


$*A$IPLR 


BJC4 


$$A$IPLR 


BJD2 


$*A$IPLR 


BJH4 


$JOBCTLF 


HMF3 


IPLBHAC 


AEA2 


IPLBHAC 


AEE1 


IPLBHAC 


AEH1 


IPLBMAC 


AEC2 


$$A$PLBK 


ACB3 


SJOBCTLD 


KDB1 


SJOBCTLJ 


PHH1 


$JOBCTLD 


KFC2 


SJOBCTLD 


KFB2 


$IPLRT2 


CDB4 


$IPLRT2 


CDCa 


$IPLRT2 


CDE4 


$IPLRT2 


CAJ1 
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Label 

DISKTMSG 

DKETSCAN 

DKETSCAR 

DKSYSRDR 

DLAB 

DLBBOFSP 

DLBCAT 

DLBKEYW 

DLBL 

DLBL1 

DLBQKW 

DNDERR 

DNEERR 

DOCHCK 

DOCRTN 

DOFFSET 

DpIO 

DOP34 

DOWN 

DPDOK 

DQNOT 

DQXTNT 

DSDP1 

DSDP2 

DSDP3 

DSDP4 

DSDfiTN 

DSKDEV 

DSKIND 

DSKINIT 

DUDFB 

DUDFI 

DUMP 

DUPKEYW 

DVCDN 

DVCONC 

DVCDNS 

DVCDNX 

DVCDN10 

DVCDN10 

DVCDN11 

DVCDN11 

DVCDNA4 

DVCDN14A 

DVCDN14B 

DVCDN2 

DVCDN25 

DVCDN25 

DVCDN27 

DVCDN3 

DVCDN30 

DVCDNS 

DVCDN6 

DVCDN7 

DVCDN8 

DVCUP 

EDECK 

EDIT! 

EJBKSWCH 

EHAP 

END 

ENDDVTCK 

ENDING 

ENDLQOP 

ENDMONTH 



Phase 


Location 


*IPLRT2 


CDF5 


$$A$IPLR 


BGF4 


$$A$IPLR 


BGH5 


$$A$IPLR 


BDC5 


SJOBCTLK 


QFB1 


SJOBCTLK 


QGC3 


*JOECTLK 


QGC2 


tfJOBCTLK 


QGB2 


3>JOBCTLK 


QEB1 


4>JOBCTLK 


QED1 


*JOBCTLK 


QGG1 


$JOBCTLD 


KAB3 


WOECTLJ 


PVC3 


$$A$IPLR 


BCF1 


$IPLRT2 


CCF5 


SJOBCTLA 


GRD1 


SYSBUFF1 


FSC2 


SJOBCTLK 


QMB1 


SJOECTLF 


MEB3 


SIPLRT2 


CFE4 


SJOBCTLG 


NNE2 


SJOBCTLG 


NNF5 


SIPLRT4 


EDC4 


$IPLRT4 


EDE4 


$IPLRT4 


EDF4 


SIPLRT4 


EDG4 


*IPLRT4 


EDB4 


SJOBCTLE 


LTB5 


*JOECTLA 


GRH2 


*JOBCTLE 


LTB3 


SJOBCTLA 


GPB4 


MOBCTLA 


GRB3 


SJOBCTLG 


NKJ3 


SIPLRT2 


CLB3 


SJOECTLF 


MHB1 


SJOBCTLF 


MJF1 


SJOBCTLF 


MJB 1 


$JOBCTLF 


MJF5 


SIPLRT4 


EBC4 


SIPLRT4 


ELC1 


SIPLRT4 


EBJ4 


$IPLRT4 


ELB4 


*JOBCTLF 


MHF2 


$JOBCTLF 


MHK2 


SJOECTLF 


MHA3 


SJOBCTLF 


MHD3 


SIPLRT4 


EBB 5 


SIPLRT4 


ELB2 


SIPLRT4 


EBC5 


SJOBCTLF 


HHB2 


*IPLRT4 


ELF2 


SJOBCTLF 


MHB4 


SJOBCTLF 


MJJ1 


SJOBCTLF 


WJF4 


*JOBCTLF 


MJH2 


SJOBCTLF 


MLB2 


SJOBCTLG 


NHJ4 


SIPLRT5 


■FD-B3 


tfJOBCTLN 


SBG2 


SJOECTLF 


MKA3 


SYSBUFLD 


FME3 


$JOBCTLD 


IJD4 


MOBCTLJ 


PDH4 


SIPLRT4 


EAB4 


*IPLRT4 


EFG2 



Label 

ENDMSG 

ENDOPSCN 

ENDROUT 

EN DSC AN 

ENDTIME 

ENFND 

ENTWAIT 

EODADDR 

EOFLAB 

EOFPRC 

EOJ 

EOJ 

EOJBY 

EOJNRF 

EOJPIB 

EPART 

EREXIT 

ERRAP 

ERRAP1 

ERRCHK 

ERREND 

ERROFF 

ERROI07A 

ERROR 

ERROR 

ERRORO 

ERROR1 

ERROR2 

ERROR87 

ERRRTN 

ERRRTNl 

ERRRTN2 

ERRRTN2 

ERRS 

ERRTN 

ERR0I00A 

ERROIOOA 

ERR0I00A 

ERR0I02A 

ERR0IO5A 

ERROI06A 

ERR0I07A 

ERR0I08A 

ERR0I09A 

ERR0I09A 

ERR0I1A 

ERR0I68A 

ERR0I68B 

ERR0I68C 

ERR0I684 

ERR1M21 

ERR1T10I 

ER1121 

ER3800 

ESETID 

ESKIPRTY 

ESTVOPEN 

ESOPV 

EXBKSWCH 

EXBLNK 

EXCECP 

EXCEDT 

EXCP 

EXCP 

EXCP GO 

EXCPIPT 



Phase 


Location 


$$BUFLDR 


FHC5 


$JOBCTLD 


IBA3 


SIPLRT4 


EMB3 


SJOBCTLD 


INE5 


SJOBCTLG 


NEF4 


$IPLRT3 


DEK1 


$*A$IPLR 


BEHS 


$JOBCTLD 


JKDU 


SJOBCTLK 


QOE2 


$JOBCTLA 


GrJ3 


$JOBCTLG 


NDE1 


$JOBCTLN 


SAB3 


$JOBCTLG 


NBA4 


SJOBCTLG 


NDB1 


$JOBCTLG 


NDB2 


$JOBCTLF 


MKD3 


SJOBCTLJ 


PFE3 


$JOBCTLA 


GWG3 


$JOBCTLA 


GWC4 


$JOBCTLD 


IPB1 


$JOBCTLE 


LQJ4 


$JOBCTLA 


GSC5 


$*A$PLBF 


ADG3 


$$BUFLDR 


FKD5 


$JOBCTLE 


LQL4 


IPLBMAC 


AHB5 


$JOBCTLE 


LQC4 


$JOBCTLE 


LQE4 


$IPLRT4 


EMG4 


$JOBCTLA 


GWD2 


$JOBCTLF 


MNKb 


$JOBCTLA 


GWF2 


$JOBCTLF 


MNJ5 


$JOBCTLG 


NHG1 


$JOBCTLF 


WNCb 


$$A$IPLR 


BBF4 


$$A$PLBF 


AD HI 


$S»A$PLBK 


ACC4 


$$A$IPLR 


BBD4 


$i(>A$IPLR 


BGE5 


$4>A$PLBK 


ACA4 


$$A$PLBK 


ACH3 


$4>A$IPLR 


BBE2 


$*A$IPLR 


BBG5 


$$A$PLBF 


AD J 3 


$$A$IPLR 


BDG3 


$4>A$IPLR 


BCF2 


$4>A$IPLR 


BCB2 


$»A$IPLR 


BCE2 


$$A$IPLR 


BCA2 


$JOBCTLG 


NAJ2 


$JOBCTLJ 


PLA4 


SIPLRT4 


EDH4 


$*BUFLDR 


FHJ4 


$JOBCTLF 


MKC4 


$JOBCTLF 


HKB4 


$JOBCTLJ 


PFBb 


SJOBCTLF 


HKC3 


SJOBCTLN 


SBG1 


$JOBCTLE 


LBF 1 


$JOBC'i?LA 


GRA4 


$JOBCTLE 


LFB1 


$i(>B0FLDR 


FKD1 


SJOBCTLD 


J0B1 


$JOBCTLA 


GTD3 


SYSBOFLD 


FPF3 
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Label 

EXCPRG 

EXCPROG 

EXCPROG 1 

EXCPROG2 

EXCPROG3 

EXCPROG4 

EXEC 

EXEC 

EXECBACK 

EXF6A 

EXFBA10 

EXIT 

EXIT 

EXIT 

EXIT 

EXPEXT 

EXTNT 

EXTR , 

EXOOO 

EX005 

EX010 

EX115 

EX150 

EX155 

EX160 

EX170 

FBACDLO 

FBADIB 

FBAINT 

FBAIN1 

FBAPROC 

FBAREAD 

FBASCAN 

FBASLD 

FBASLD1 

FBASLD4 

FBASOPD 

FBASOPL 

FDDKCODE 

FDKIJ 

FDKIJL 

FDKIJ2 

FDKTDAT 

FDKTDAT1 

FDKTDAT2 

FDKTID 

FDKTID2 

FDKTVNH 

FDKTV2 

FDK1 

FDK2 

FDSRTN 

FDSYSU 

FEED 

FESEQ 

FESPLIT 

FESPLIT3 

FESPLIT3 

FESYSX2 

FESYSX3 

FETCH 

FETCBM 

FETCHN 

FETCHRF 

FETCHX 



Phase 


Location 


SJOBCTLA 


GPB1 


SJOBCTLD 


JUB4 


SJOBCTLD 


JUB5 


SJOBCTLD 


JUDM 


SJOBCTLD 


J0E5 


SJOBCTLD 


JUF4 


SJOBCTLE 


LAB1 


SJOBCTLN 


SAB1 


SJOBCTLN 


SBH1 


SJOBCTLE 


LAE5 


SJOECTLE 


LAG5 


$$BLSTIO 


TBH5 


SJOECTLA 


GDB3 


*JOBCTLD 


IAC2 


SYSBUFF1 


FRG5 


$JOBCTLA 


GTH<4 


SJOECTLK 


QKB1 


*IPLRT5 


FFBtl 


$JOBCTLE 


LAJ3 


SJOBCTLE 


LAH1 


SJOBCTLE 


LAJ1 


&JOECTLE 


LAC2 


3JOBCTLE 


LAE4 


JGJOECTLE 


LAH4 


SJOBCTLE 


LAK4 


SJOBCTLE 


LBD1 


*$A$IPLR 


BAC2 


SJOBCTLE 


LTB4 


SJOBCTLA 


GPF4 


$$A$IPLR 


BAG1 


*JOECTLE 


LRB5 


SJOBCTLE 


LRE5 


SJOBCTLE 


LRF5 


SJOBCTLD 


KGB1 


*JOBCTLD 


KGE2 


SJOBCTLD 


KGD4 


$$A$IPLR 


BBC3 


$$A$IPLR 


BBG4 


*JOBCTLK 


QFK3 


SJOBCTLK 


QEB2 


SJOBCTLK 


QEH2 


SJOBCTLK 


QEJ2 


SJOECTLK 


QDH3 


SJOBCTLK 


QDJ5 


SJOBCTLK 


QDFa 


SJOBCTLK 


QDB1 


*JOECTLK 


QDH2 


$JOBCTLK 


QCC3 


SJOBCTLK 


QCB2 


SJOBCTLK 


QEF4 


$JOBCTLK 


QEH4 


SIPLRT2 


CJB2 


SJOECTLJ 


PTD4 


WOBCTLA 


GSE2 


SJOECTLK 


QPB1 


SJOBCTLK 


QLF3 


SJOBCTLK 


QKJ5 


*JOECTLK 


QLB4 


SJOBCTLK 


QKH1 


SJOBCTLK 


QKA2 


$$BUFLDR 


FKH1 


SJOECTLG 


NBJ3 


SJOBCTLG 


NBD4 


*JOBCTLA 


GDB4 


SIPLRT2 


CFF3 



Label 

FETCH1 

FETCH2 

FETCHN 

FETCH51 

FETCH6 

FETCH7 

FETINSRO 

FETINSRT 

FETINSR1 

FETINSR3 

FETINSR4 

FETINSR5 

FETK 

FETKNO 

FETKN01 

FETKTK 

FETYPE 

FETYPED 

FETYPEI 

FETYPEI4 

FETYPE1 

FEVSER 

FEVSER1 

FEVSER2 

FICNIC 

FIND 

FINDOPN 

FINDPRC 

FINDSIZE 

FINISH 

FIRSTCYL 

FJB3 

FLAGOFF 

FND 

FNDARG 

FNDARG1 

FNDARG5 

FNDOPER 

FNDSTAT 

FNDSTATO 

FNDSTAT1 

FNDTYP 

FNIOAG 

FNXTDRBLK 

FORMAT 

FORMR 

FOUND 

FOUND 

FOUND 

FPRTN 

FRDBCCW 

FRDNOIN 

FRDPHASE 

FSCAN 

FSCAN1 

FSCILDR 

FSCLDIRF 

FSCLDIRN 

FSCLDIRS 

FSCLDIRX 

FTCHJIB 

FTEND1 

GETADD 
GETASG 
GETCC 



Phase 


Location 


$*BUFLDR 


FHG4 


SYSBUFF1 


FQJ4 


$IPLRT2 


CFB3 


$IPLRT2 


CFG 3 


$IPLRT2 


CFC4 


SIPLRT2 


CFC2 


SJOBCTLK 


QCE4 


$JOBCTLK 


QCB4 


$JOBCTLK 


QCF4 


SJOBCTLK 


QCH4 


$JOBCTLK 


QCJ4 


SJOBCTLK 


QCK4 


$JOBCTLK 


QLF1 


SJOBCTLK 


QLC2 


$JOBCTLK 


QLC3 


SJOBCTLK 


QPB3 


SJOBCTLK 


QKC3 


SJOBCTLK 


QKK3 


$JOBCTLK 


QKA4 


$JOBCTLK 


QLA1 


$JOBCTLK 


QKE5 


SJOBCTLK 


QKB2 


SJOBCTLK 


QKC2 


SJOBCTLK 


QKD2 


SJOBCTLA 


GAHV 


SJOBCTLE 


LPJ2 


SJOBCTLA 


GRK2 


SJOBCTLE 


LRB2 


$IPLRT2 


CBA3 


$JOBCTLN 


SBH5 


SJOBCTLK 


QOD3 


$JOBCTLE 


LSB2 


SJOBCTLK 


QNF1 


SJOBCTLE 


LRG3 


$*BLSTIO 


TBB1 


$*BLSTIO 


TBHV 


$*BLSTIO 


TBB3 


$JOBCTLD 


XBB4 


SJOBCTLD 


IKB5 


$JOBCTLD 


ILE4 


$JOBCTLD 


ILJ4 


SIPLRT3 


DFB1 


SJOBCTLD 


KAE3 


IPLBMAC 


AGE1 


$IPLRT5 


FDB1 


SIPLRT5 


FEB1 


$$BUFLDR 


FHA2 


SJOBCTLD 


KBF5 


SJOBCTLE 


T.RH3 


SIPLRT4 


EJB1 


IPLBMAC 


AGF3. 


IPLBMAC 


AGE3 


IPLBMAC 


AGC3 


SJOBCTLK 


QBB4 


$JOBCTLK 


QBC4 


IPLBMAC 


AGB1 


IPLBMAC 


AGJ1 


IPLBMAC 


AGJ2 


IPLBMAC 


AGH1 


IPLfeMAC 


AGK2 


SJOBCTLB 


LSB1 


SJOBCTLK 


QBD3 


$IPLRT2 


CFA2 


SJOBCTLJ 


PEA3 


SYSBUFF1 


FRD1 
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Label 

GETDAT 

GETDEF 

GETDEL 

GETDIR 

GETDPD 

GETIME1 

GETIME1 

GETIME2 

GETJIB 

GETJIBSW 

GET J IB 1 

GETJIB2 

GETK 

GETLAN 

GETLOB 

GETLUB 

GETLOB 

GETNAME 

GETNEXT 

GETNICL 

GETOPND 

GETPBOWN 

GETPID 

GETPOB 

GETRESC 

GETRESC 

GETSET 

GETSIZE 

GETS V A 

GETSYS 

GETVC 

GETVOL 

GETV01 

GO 

GPEXIT 

GPEXIT1 

GPEXIT2 

GUNPA 

HCCREATE 

HCCREA10 

HCCREA20 

HCCREA30 

HCEND 

HCIOERR 

HCMSG 

HCNO 

HCOPNMSG 

HCSET 

HCSMALL 

HCYES 

HCYES01 

HCYES02 

HCYES05 

HCYES10 

HCYES20 

HCYES30 

HCYES40 

HCYES60 

HEADNO 

HEXCON 

HEXCON 

HEXRTN 

HOLD 

HOLD1 

HOLD2 



Phase 


Location 


SJOECTLG 


NLB2 


SIPLRT2 


CFA5 


SIPLRT2 


CFA1 


SJOECTLE 


LEA5 


SIPLRT2 


CFD3 


*JOBCTLG 


NLB1 


SJOBCTLN 


SAJ2 


*JOECTLG 


NLC1 


SJOBCTLD 


JNB1 


$JOBCTLD 


JNK1 


SJOBCTLD 


JNH1 


SJOBCTLD 


JND2 


*JOBCTLJ 


PQB3 


WOBCTLD 


JHB2 


SJOECTLF 


M0B1 


tfJOBCTLG 


NPB1 


$JOECTLK 


QTE3 


SJOBCTLJ 


PPD2 


MOBCTLD 


IKD1 


SJOBCTLF 


MUF1 


MOBCTLK 


QTB4 


SJOBCTLD 


JRB4 


SJOBCTLJ 


PQD 1 


SJOBCTLG 


NPB2 


*$A$PLBF 


ADD2 


$$A$PLBK 


ACp2 


SIPLRT2 


CFA3 


tfJOBCTLJ 


PSF1 


*IPLRT2 


CFA4 


MOBCTLF 


HUD2 


*IPLRT5 


FGB1 


SJOBCTLA 


GSB2 


*JOBCTLD 


IKB2 


&JOBCTLN 


SAC1 


SJOBCTLD 


KBE2 


MOBCTLD 


KBE3 


WOBCTLD 


KBA5 


SJOBCTLD 


JFB4 


WOBCTLC 


HPB4 


SJOBCTLC 


HPF4 


MOBCTLC 


HPC5 


*JOBCTI.C 


HPD5 


*JOBCTLJ 


PJJ3 


*JOECTLC 


HQK4 


SJOBCTLC 


HRB1 


SJOBCTLJ 


PJA4 


SJOBCTLC 


HSB5 


SJOBCTLJ 


PJK3 


SJOBCTLC 


HP J 2 


SJOECTLJ 


PJF4 


SJOBCTLC 


HQE1 


SJOBCTLC 


HQG1 


$JOBCTLC 


HQK1 


SJOBCTLC 


HQB2 


*JOECTLC 


HQE2 


SJOBCTLC 


HQB3 


MOBCTLC 


HQE3 


$JOBCTLC 


HQH2 


SJOBCTLA 


GRC5 


SJOBCTLD 


JJB1 


SJOBCTLJ 


PTB2 


*IPLRT3 


DHC1 


SJOBCTLJ 


PAB3 


*JOBCTLJ 


PAF3 


SJOECTLJ 


PAB4 



Label 

IGNORE 

IJBIPL6 

IJBJOBRS 

ILLCARD 

ILLCD 

ILLCD1 

ILOS 

ILUS 

INAERR 

INCLUDE 

INCL02 

INCL05 

INCL15 

INCL20 

INCL25 

INCRPTR 

INCRPUB 

INCRTRK 

INDIB 

INDIGN 

INDSEQ 

INDOA 

INDVTP 

INIT 

INIT 

INITDIB 

INITDIB1 

INITDIB7 

INITIAL 

INITIAL 

INITL 

INITSCAN 

INITSEC 

INITOO 

INIT020 

INIT060 

INIT070 

INITObO 

INIT080 

INIT20 

INIT3800 

INPGONS 

INPDKET 

INVASGN 

INVCC 

INVFOR 

INVKEYW 

INVNUM 

INVSEQ 

INVSPEC 

INVSTD 

INVSTDNO 

INVSTD1 

INVSYN 

INVSYN1 

INVSYN2 

INVVAL1 

IOCOMPL 

IOERR 

IOERRF00 

IOERRF10 

IOHALT 

IOHLD 

IORCKD 

IORFBA 

IORTN 



Phase 


Location 


SJOBCTLA 


GCB4 


SIPLRT6 


EOB1 


SJOBCTLB 


HAB2 


SIPLRT4 


EAB5 


$IPLRT2 


CKB1 


$IPLRT2 


CKC1 


SJOBCTLD 


KAB1 


SJOBCTLF 


MNEM 


SJOBCTLJ 


PVF1 


SJOBCTLJ 


PDB3 


$JOBCTLA 


GLA2 


$JOBCTLA 


GLE2 


SJOBCTLA 


GLG3 


$JOBCTLA 


GLH3 


SJOBCTLA 


GLJ3 


SJOBCTLK 


QWF1 


SJOBCTLD 


KBK4 


SJOBCTLK 


QOA1 


SJOBCTLA 


GRD2 


$JOBCTLD 


ICD2 


$JOBCTLK 


QHG3 


SJOBCTLD 


ICD1 


$JOBCTLD 


KAB2 


SJOBCTLE 


LAA4 


SYSBUFLD 


FMD1 


SJOBCTLA 


GXB1 


SJOBCTLA 


GXA3 


SJOBCTLA 


GXA5 


SIPLRT4 


EMF1 


SJOBCTLK 


QTD1 


SJOBCTLD 


JHB1 


SJOBCTLJ 


PPJ2 


SJOBCTLA 


GXD2 


$JOBCTLM 


REB5 


$JOBCTLC 


HNA4 


$JOBCTLC 


HND4 


$JOBCTLC 


HNE4 


$JOBCTLC 


HNH4 


$JOBCTLM 


REK4 


$JOBCTLM 


REG5 


$3>BOFLDR 


FHFb 


$IPLRT2 


CKB3 


$IPLRT2 


CKBa 


SJOBCTLD 


JCF3 


SYSBOFF1 


FQEb 


$JOBCTLD 


JFHi 


$IPLRT2 


CLB1 


$JOBCTLJ 


PUG 1 


$IPLRT2 


CLB5 


$IPLRT2 


CLB2 


itJOBCTLJ 


PXH2 


^JOBCTLJ 


PXG2 


^JOBCTLJ 


PXB4 


$JOBCTLJ 


PSF2 


$JOBCTLJ 


PSE2 


$JOBCTLJ 


PSE3 


$JOBCTLJ 


PSB5 


$JOBCTLA 


GTA3 


IPLBMAC 


AHA2 


$JOBCTLM 


RTB5 


$JOBCTLM 


RTC5 


$IPLRT2 


CKH1 


$IPLRT2 


CKB2 


IPLBMAC 


AHH3 


IPLBMAC 


AHJ4 


IPLBMAC 


AHB1 
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Label 

IOSTOP 

IPLCCW1 

IPLCCW2 

IPLCCW3 

IPLCCW4 

IPLPSW 

IPLTERM 

IPTDATA 

IS b\ 

ISCKSQ 

ISPRNT 

ISSMSG 

ISSMSG10 

ISSMSG50 

ISSMSG54 

ISSHSG94 

ISSOE66 

ISSOIO 

ISSOMSG 

ISTYP4 

ISX 

IVDS 

IVDS 

IVSERR 

JCBCMVBD 

JCBERMSG 

JCBMSGMV 

JCBMSGM2 

JCB0060 

JCB0200 

JCB0500 

JCB0900 

JCB1200 

JCB1220 

JCB1BOO 

JCB2Q00 

JCB2010 

JCB2160 

JCB2350 

JCB2600 

JCB2600 

JFB1 

JIBPRT 

JOB 

JOBCTL 

JOBCTL4 

JQBCTL5 

JOB05 

KEY 

KEYCfcK 

KEYCHK1 

KEYCHK2 

KLEER 

KNXTBLK 

KNXTBLK2 

KSCILDR 

LAXERR 

LBLOUT 

LBLOOT1 

LBLPED 

LBLTYP 

LBTOOT 

LDMNT 



Phase 


Location 


SIPLRT2 


CKJ1 


$$A$IPL0 


ABC3 


$$A$IPL0 


ABD3 


$*A$IPL0 


ABE3 


$$A$IPL0 


ABF3 


«A$IPL0 


ABB3 


*IPLRT2 


CFH2 


4>JOECTLE 


LRH1 


*JOBCTLD 


JEA5 


*JOBCTLK 


QHD4 


SYSBUFF1 


FSG1 


SIPLRT2 


CDD3 


SIPLRT2 


CDC3 


SIPLRT2 


CFD5 


SIPLRT2 


CFG2 


*IPLRT2 


CFF2 


SIPLRT2 


CAH4 


tfJOBCTLA 


GTK1 


SYSEUFF1 


FQB1 


MOBCTLK 


QHG4 


SYSBUFF1 


FRA2 


SJOBCTLD 


KAB4 


SJOBCTLF 


MNA4 


SJOECTLJ 


PVB5 


SJOBCTLB 


HCC5 


SJOBCTLB 


HCB5 


$JOBCTLB 


HCD5 


*JOECTLB 


HCE5 


SJOBCTLB 


HAC3 


*JOECTLB 


HAE3 


tfJOBCTLB 


HAC1 


SJOBCTLB 


HBB1 


SJOBCTLB 


HBJ1 


SJOBCTLB 


HBC2 


SJOBCTLB 


HBB3 


*JOECTLB 


HBH4 


SJOBCTLB 


HCB1 


SJOBCTLB 


HCK1 


SJOBCTLB 


HCC2 


SJOBCTLB 


HCD3 


*JOBCTLB 


HCB4 


SJOBCTLE 


LSE1 


SJOBCTLG 


NNH5 


*JOECTLG 


NAB1 


*JOBCTLA 


GAB1 


SJOBCTLA 


GBG1 


*JOBCTLA 


GBF2 


SJOECTLG 


NAA2 


SSBLSTIO 


TBG3 


SIPLRT3 


DBC2 


SIPLRT3 


DBA2 


*IPLRT3 


DAF4 


$$BUFLDR 


FKF3 


IPLBMAC 


AFB3 


IPLBMAC 


AFD3 


IPLBMAC 


AFB1 


SJOECTLK 


QSC3 


SJOBCTLK 


QNJ2 


SJOECTLK 


QOE1 


SIPLRT3 


DJK1 


SJOBCTLK 


QAB1 


*JOECTLK 


QAG2 


SJOBCTLA 


GAB3 



Label 

LDSVA3 

LDSVA5 

LHRTN 

LINK 

LINKINT 

LINKINTF 

LIOCOO 

LIOEOJ 

LIOEOJ1 

LIOL 

LIOLL201 

LIOLX 

LIOL1 

LIOL2 

LIOL202 

LIOL3 

LIOL4 

LIOSYX 

LIST 

LISTIO 

LISTX 

LLOPD 

LMODOG 

LMOD02 

LMOD03 

LMOD04 

LMOD07 

LNAERR 

LNKNOP 

LNKOUT 

LOADA 

LOADFCB 

LOADPH1 

LOADPH11 

LOADRS 

LOADRS1 

LOAD1 

LOAD2 

LOG 

LOGCHK 

LOGIN 

LOGINO 

LOGIN1 

LOGIPL 

LOGOUT 

LOGPRT 

LOGRED 

LOGREQ 

LOGREQLO 

LOGREQ00 

LOGREQ01 

LOGREQ01 

LOGREQ5 

LOGRITE 

LOGSTR 

LOOKDOC 

LOOP 

LOOPS3 

LOOP2 

LOOP3 

LPDOPT 

LSTOUT 

LSTTRACK 

LOBOPL 

L0B2INI1 

LODRTN 



Phase 


Location 


$IPLRT7 


EVG3 


$IPLRT7 


EVH3 


$*BLSTIO 


TDB3 


SJOBCTLG 


NJB2 


$JOBCTLA 


GQB2 


$JOBCTLA 


GQB4 


SJOBCTLF 


HDB2 


$JOBCTLF 


UAA4 


SJOBCTLF 


1AB4 


$JOBCTLF 


1BA2 


SJOBCTLF 


MBD1 


3JOBCTLF 


1BB1 


SJOBCTLF 


MBA3 


SJOBCTLF 


1BA4 


$JOBCTLF 


MBE1 


SJOBCTLF 


HBE3 


SJOBCTLF 


IBFi 


$JOBCTLF 


MDB3 


SJOBCTLG 


NHBi 


SJOBCTLF 


MAB1 


SJOBCTLG 


HBB5 


SIPLRT5 


FGB3 


$IPLRT4 


EQD1 


SIPLRT4 


EQE2 


SIPLRT4 


EQK2 


SIPLRT4 


EQA1 


SIPLRT4 


EQE3 


$JOBGTLG 


NMEJ 


SJOBCTLE 


LHA3 


$JOBCTLJ 


P0C3 


3IPLRT2 


CAH1 


SYSBUFF1 


FRH2 


SIPLRT2 


CFE1 


SIPLRT2 


CFG1 


$JOBCTLK 


QQB4 


SJOBCTLK 


QQF4 


$*BUFLDR 


FHB4 


$$BUFLDR 


FHE4 


SJOBCTLJ 


PKB5 


$JOBCTLA 


GLB4 


$ JOBCTL A 


GMC2 


SJOBCTLA 


GME2 


SJOBCTLA 


GMF2 


3IPLRT2 


CCF2 


SJOBCTLA 


GJC1 


SJOBCTLA 


GLH4 


SIPLRT2 


CDE3 


$4>A$IPLR 


BBA1 


SJOBCTLM 


RKC5 


SJOBCTLM 


RKB4 


SJOBCTLC 


HSB4 


SJOBCTLM 


RKB4 


$*A$IPLR 


BBB1 


$$BUFLDR 


FKB1 


SIPLRT2 


CDB3 


SIPLRT4 


ENE1 


$JOBCTLG 


MKA2 


SJOBCTLJ 


PSJ1 


$JOBCTLJ 


PRCb 


SJOBCTLJ 


PPL3 


SJOBCTLJ 


PDEb 


SJOBCTLA 


GJB3 


$JOBCTLK 


QOA2 


SIPLRT3 


DJE1 


SIPLRT7 


EVK3 


SIPLRT3 


DJB2 
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Label 


Phase 


Location 


LUURTN 


SIPLRT3 


DJB1 


MAINOO 


SJOBCTLC 


HMB1 


MAlNOO 


MOBCTLM 


RAB1 


MAIN020 


SJOBCTLM 


RAJ3 


MAIN100 


SJOBCTLC 


HMF1 


MAIN200 


SJOBCTLC 


HMG2 


MAIN200 


SJOBCTLM 


RAH4 


MAIN220 


SJOBCTLM 


RAJ4 


MAPCHNOO 


SJOBCTLM 


RGB1 


MAPCHNIO 


SJOBCTLM 


RGG1 


MAPCHN15 


SJOBCTLM 


RGA2 


MAPCHN20 


SJOBCTLM 


RGD2 


MAPCHN25 


*JOBCTLM 


RGG2 


MAPCHN30 


MOECTLM 


RGF3 


MAPCH05 


SJOBCTLM 


RGE1 


MAPDMC 


IPLBMAC 


AEH4 


MAP370 


SJOBCTLF 


MKC1 


MCRETURN 


SIPLRT2 


CBA4 


MDR3401 


SJOBCTLM 


RCE3 


MDR3800 


SJOECTLM 


RCD3 


MDR3b95R 


tfJOBCTLM 


RCB3 


MDVTPLST 


$JOECTLD 


KBA3 


MICRTST 


SIPLRT4 


ESB5 


MIC30A 


SJOBCTLE 


L0D2 


MIP20D 


*JOECTLE 


LUB<4 


MISKEYW 


SIPLRT2 


CLB4 


MMDD1 


SJOECTLJ 


PGJ3 


MODEOK 


SIPLRT2 


CBE3 


MODERTN 


SIPLRT4 


EQB2 


MODLOP 


SIPLRT3 


DDD1 


MODMOVE 


*IPLRT3 


DDE2 


MODSCAN 


SJOBCTLD 


KCD3 


MONITOR 


SIPLRT2 


CDA1 


MONITOR 2 


SIPLRT2 


CDC1 


MOVEC 


SJOBCTLK 


QWG2 


MOVEMSG 


SYSBUFF1 


FSA1 


MOVINFO 


SIPLRT7 


EVE1 


MSGMtCR 


SIPLRT4 


ESH2 


MSGOR19I 


SJOBCTLB 


HBB2 


MSGOOT 


SJOBCTLA 


GJB2 


MSG0R11I 


SJOBCTLB 


HCG2 


MTC 


MOBCTLJ 


PEB1 


MTCMTCS 


*JOBCTLJ 


PEC3 


MTCTEST 


SJOBCTLJ 


PED4 


MTCTEST1 


*JOBCTLJ 


PFB1 


MTC 2 


MOBCTLJ 


PEG2 


MTC 3 


*JOBCTLJ 


PEE 3 


MTC4 


SJOBCTLJ 


PEG4 


MTNCNT 


SJOBCTLA 


GOB (1 


MVDO 


*JOBCTLA 


GRA1 


MVN 


*JOBCTLD 


JAD1 


MVN1 


WOBCTLD 


JAB 2 


MVN2 


WQBCTLD 


J AC 3 


MVN3 


WOBCTLD 


JABM 


MVQOO 


SJOBCTLG 


NKC2 


MYJOBDTE 


*IPLRT4 


EAH4 


M1S10D 


$JOBCTLE 


L0C5 


M1S10D1 


MOECTLE 


L0B5 


NDSCAN 


*JOBCTLA 


GKG 1 


N DSC AN 


SJOBCTLG 


NKE4 


NDSCAN 


tfJOECTLK 


QDJ2 


NDSCAN 1 


$JOBCTLK 


QDG3 


NDSERR 


tfJOECTLJ 


PVF2 


NDSERR 1 


SJOBCTLJ 


PFca 



Label 

NDTERR 

NEWXTN 

NEXT 

NEXT 

NEXTFCB 

NEXTFCB 

NEXTKW 

NEXTPOO 

NEXTP05 

NEXTP10 

NEXTRK 

NEXTSYS 

NEXTOP 

NK 

NLISTX 

NLSERR 

NLOERR 

NLOERR 

NOALIGN 

NOASINO 

NOCAT 

NOCATL 

NOCLEAR 

NODASD 

NODASD 

NODASDIP 

NO DATE 

NODCOX 

NODECK 

NODSYS 

NO DUMP 

NODOR1 

NOEDECK 

NOEERT 

NOEOC 

NOERRS 

NOES TV 

NOFEAT 

NOFP 

NOIDAT 

NOINCL 

NOINTENT 

NOIPT 

NOIPTA 

NOIPT3 

NOIPT7 

NOLEAP 

NOLINK 

NOLIST 

NOLIST 

NOLNKDIR 

NOLOG 

NOLOG 

NOMFCXT 

NOMFCXT 

NOMODE 

NOMOVE 

NOMRJB 

NONFPR 

NOPAOSE 

NOPHSE 

NOPHYS 

NO PL 

NOPL 

NOPRT 

NOPSE 



Phase 


Location 


SJOBCTLJ 


PVCV 


$JOBCTLK 


QJFb 


$$B0FLDR 


FHC2 


$JOBCTLJ 


PNC5 


$*B0FLDR 


FKE3 


SYSBOFF1 


FRKa 


SJOBCTLK 


QTG4 


SJOBCTLM 


RMBV 


$JOBCTLM 


RMC2 


SJOBCTLM 


RME1 


SJOBCTLK 


QOB1 


$IPLRT4 


EDD1 


SYSBOFLD 


FPA1 


SJOBCTLE 


LDB5 


$JOBCTLG 


NHD1 


SJOBCTLK 


QSC2 


SJOBCTLJ 


PVC2 


SJOBCTLK 


QSC4 


SJOBCTLG 


NHJ3 


$*A$IPLR 


BCB1 


SJOBCTLE 


LBB2 


$JOBCTLG 


NEA1 


SJOBCTLG 


NDF1 


$IPLRT2 


CBE2 


$JOBCTLD 


INH1 


SYSBOFLD 


FMH1 


5JOBCTLE 


LAG 3 


$JOBCTLK 


QJD4 


$JOBCTLG 


NHB2 


$JOBCTLA 


GFE3 


SJOBCTLG 


NKJ2 


$JOBCTLG 


NEH3 


$JOBCTLG 


NHJ5 


$JOBCTLA 


GVD3 


$JOBCTLD 


JBF5 


$JOBCTLG 


NHG2 


$JOBCTLJ 


PFD2 


$JOBCTLD 


KBDf> 


$JOBCTLE 


LEK2 


$$A$IPLR 


BCE4 


$JOBCTLA 


GCE2 


$JOBCTLD 


KBJ1 


$JOBCTLG 


NEC2 


SJOBCTLG 


NEB2 


$JOBCTLG 


NEA2 


SJOBCTLG 


NEE 2 


$JOBCTLJ 


PGG3 


$JOBCTLG 


NKF2 


$JOBCTLG 


NHB4 


STSBOFLD 


FMH3 


$JOBCTLE 


LFD1 


$JOBCTLJ 


PKH4 


SXSB0FF1 


FQD1 


$JOBCTLD 


KDF4 


$JOBCTLD 


KED5 


SJOBCTLD 


IQE1 


$JOBCTLG 


NEA4 


$JOBCTLD 


KAE5 


$JOBCTLD 


I AC 3 


SJOBCTLA 


GBEV 


SYSBOFF1 


FQC2 


SYSBOFLD 


FNE3 


$$A$PLBF 


ADF5 


$4»A$PLBK 


ACF5 


$JOBCTLJ 


PJB4 


SJOBCTLG 


NED5 
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Label 

NOPUB 

NOPUB1 

NOPUB2 

NORESET 

NOREW 

NORLD 

NOSET 

NOSLO 

NOSOAD 

NOSODL1 

NOSODL2 

NOSVAIPL 

NOSYtt 

NOSYS 

NOTAP 

NOTAPE 

NOTASS 

NOTDEFIN 

NOTDISKT 

NOTDSK 

NOTDU 

NOTERR 

NOTFBA 

NOTICA1 

NOTLAST 

NOTLIST 

MOTNOS 

NOTPRNT 

NOTPTST 

NOTRDY 

NOTRECPT 

NOTRPS 

NOTSEQ 

NOTSTRES 

NOTTCR 

NOTUNIQ 

NOTVIRT 

NOTYPE 

NOTYP2 

NOT370B 

NOUAIGN 

NOWVIRT1 

NOXREF 

NO1052T 

NO3330 

NO3340 

N081STD 

NPT01 

NPWR 

NSTADSK 

NTINJB 

NULCHK 

NOMCON 

NUMCON 

NOMCON 

NOMCVT 

NVOERR 

NVSERR 

NVSERR1 

NVSERR2 

NVSLST 

NVS1 

NXTBIT 

NXTDPD 

NXTDRCYL 

NXTENTRX 



Phase 


Location 


SJOBCTLG 


NNG1 


SJOBCTLG 


NND4 


SJOBCTLG 


NNG4 


*JOECTLJ 


PFG3 


SJOBCTLD 


INJ2 


*JOBCTLG 


NHK2 


$JOBCTLE 


LAK2 


SJOBCTLD 


JCH1 


SIPLRT3 


DEJ5 


SIPLRT3 


DDF4 


SIPLRT3 


0DA1 


SJOBCTLA 


GAA4 


tfJOBCTLG 


NHD3 


SYSB0FF1 


FQG3 


$SBLSTIO 


TAK3 


$JOBCTLD 


IMH5 


*JOECTLA 


GNF2 


SJOBCTLD 


IMA3 


SIPLRT2 


CAK1 


SJOBCTLA 


GTA1 


*JOBCTLD 


JEB1 


*JOBCTLG 


NMG3 


&JOBCTLD 


JBC2 


SIPLRT2 


CBC1 


SJOBCTLN 


SBH4 


SJOBCTLG 


NFE2 


SJOBCTLG 


NGG1 


SYSBUFLD 


FHA2 


tfJOBCTLD 


KDB3 


SJOBCTLD 


INC4 


*JOBCTLD 


KED3 


SJOBCTLD 


JBF2 


SJOECTLK 


QHG2 


SJOBCTLD 


KEA2 


SJOBCTLD 


IKE 3 


$IPLRT4 


EMD2 


tfJOBCTLE 


LEK1 


SYSBUFF1 


FQG2 


SYSBUFLD 


FNE1 


$IPLRT4 


EBH2 


SJOBCTLD 


IFD1 


SIPLRT7 


EVE3 


SJOBCTLG 


NHD5 


SJOBCTLD 


KEA5 


*JOBCTLD 


KEF1 


tfJOBCTLD 


K-E0.1 


SJOBCTLD 


JME4 


tfJOBCTLA 


GRF3 


SJOBCTLA 


GSD1 


SJOBCTLD 


KEA1 


JGJOBCTLA 


GVD2 


SJOBCTLJ 


PBJ3 


SJOBCTLD 


JHB4 


SJOBCTLJ 


PUB4 


SJOECTLK 


QRB1 


$IPLRT3 


DBG2 


SJOBCTLG 


NQG4 


SJOBCTLA 


GWC2 


SJOBCTLJ 


PLB2 


SJOBCTLJ 


PLA2 


SJOECTLJ 


PLC3 


SJOBCTLJ 


PLE2 


SJOBCTLJ 


PKH1 


SJOBCTLG 


NQC5 


IPLBMAC 


AFC1 


SJOBCTLJ 


PPB2 



Label 

NXTENTRY 

NXTJIB 

NXTLOB 

NXTNONIQ 

NXTOPRD 

NXTPARM 

NXTPARTN 

NXTPOB 

NXTTYPE 

OERRTN 

OKSUP 

OPENERR 

OPENEX 

OPENFILE 

OPENFILE 

OPERSCN 

OPH1 

0PH2 

OPIGN 

OPLOG 

OPMODE 

OPMODE1 

OPMODE2 

OPNEND 

OPNHCERR 

OPNLNK 

OPNLOP 

OPNRTN 

OPNUSN 

OPPERM 

OPRSP 

OPRTN 

OPRTN30 

OPSHR 

OPSYS 

OPTEMP 

OPTION 

OPTLOG 

OPTNLG 

OPTNOONL 

OPTONL 

OPOA 

OPVOL 

OPXLIST 

OPX2 

OPX3 

OTSERR 

OTSERR 

OTSERR 

OTSERR1 

OOTLBL 

OOTMSG 

OOTP 

OUTPUTS 

OUTPUT1 

OUTPOT2 

OVDERR 

OVEND 

OVRLPI 

OVTOC 

OWNED 

PAGEKN 
PARCHK 
PARSTD 



Phase 


Location 


$JOBCTLJ 


PPA2 


SJOBCTLA 


GFG3 


SJOBCTLA 


GFF3 


SIPLRT4 


EMG2 


SJOBCTLJ 


PNE1 


$JOBCTLK 


QWB1 


$IPLRT3 


DJJ3 


SJOBCTLD 


KCG5 


SJOBCTLD 


KDC1 


SJOBCTLA 


GVF3 


$*A$IPLR 


BCG1 


$JOBCTLM 


RACi> 


$JOBCTLD 


JFH1 


SJOBCTLC 


HSB2 


SJOBCTLM 


RHB1 


SJOBCTLD 


IBB1 


SJOBCTLD 


ICH4 


3JOBCTLD 


IDB1 


SJOBCTLD 


ICB2 


SJOBCTLJ 


PKC4 


SJOBCTLD 


IDB3 


$JOBCTLD 


IDBb 


$JOBCTLD 


IDC3 


SIPLRT4 


EDH1 


SJOBCTLC 


HME4 


SJOBCTLG 


NLB5 


SIPLRT4 


EDC2 


SIPLRT4 


EDC1 


SIPLRT4 


EDG1 


$JOBCTLD 


IEA4 


SIPLRT5 


FCE1 


SIPLRT2 


CEB1 


SIPLRT2 


CED1 


SJOBCTLD 


IEA1 


$JOBGTLD 


IEB5 


$JOBCTLD 


IEA3 


$JOBCTLG 


MGB1 


$JOBCTLG 


NKH4 


SJOBCTLG 


NHG5 


$JOBCTLG 


NIB4 


$JOBCTLG 


NIIB3 


$JOBCTLD 


ICB1 


$JOBCTLD 


IEB4 


$JOBCTLD 


IDB2 


$JOBCTLD 


IBB5 


$JOBGTLD 


IBJ5 


$JOBCTLG 


NMK4 


$JOBCTLJ 


PVG3 


SJOBCTLK 


QSC1 


$JOBCTLJ 


PVF3 


$JOBCTLK 


QJF4 


$JOBGTLD 


IQA3 


$IPLRT2 


CKB5 


SJOBCTLF 


MQC1 


$JOBCTLF 


1QC2 


$JOBCTLF 


MQE1 


$JOBCTLA 


GNH4 


$JOBCTLA 


GNHb 


$JOBCTLA 


GTA2 


$IPLRT5 


FBB1 


$JOBCTLD 


I«B3 


$JOBCTLD 


KBA4 


$JOBCTLE 


LDB1 


SJOBCl'LG 


NJB4 
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Label 


Phase 


Location 


PART 


SJOECTLF 


MKH1 


PARTDUMP 


tfJOBCTLG 


NKJ1 


PASSGN 


SJOBCTLE 


LSB3 


PASSMC 


SIPLRT2 


CBA5 


PASS1 


SIPLRT4 


EBB1 


PASS2 


$IPLRT4 


EBE2 


PASS2EX 


$IPLRT4 


EBH3 


PAOSE 


MOBCTLJ 


PKB3 


PBFEND 


$IPLRT4 


EEH2 


PBFLOP 


SIPLRT4 


EEF1 


PBFRTN 


SIPLRT4 


EEE1 


PCHOUT 


WOECTLJ 


PNB2 


PCILSUP 


SJOBCTLG 


M JD 1 


PCILSUPR 


MOBCTLG 


MJD2 


PCLOSE 


SJOBCTLG 


NTB4 


PEND 


*JOECTLG 


M-SB1 


PENDR1 


SJOBCTLG 


NDA2 


PENDR1 


MOECTLG 


NDJ1 


PEND1 


tfJOBCTLG 


NSE1 


PERCNTOO 


MOBCTLM 


RKB1 


PERCNT03 


$JOBCTLM 


RKJ1 


PERCNT05 


*JOBCTLM 


RKK 1 


PERCNT90 


SJOBCTLM 


RKB2 


PEREXIT 


&JOBCTLD 


KAK4 


PEREXIT 


SJOBCTLF 


MFH2 


PFORMAT 


SIPLRT5 


FDB4 


PFREE 


SJOBCTLG 


NTC2 


PFT10 


SJOBCTLA 


GFJ1 


PJB 


MOBCTLE 


LSE3 


PLOG 


MOBCTLG 


NUB1 


PLOG05 


SJOBCTLG 


N0C1 


PLOG07 


SJOECTLG 


N0D1 


PLOGQ8 


$JOBCTLG 


NUH2 


PND02 


SJOECTLG 


NSF1 


PND03 


SJOBCTLG 


NSH1 


PND05 


$JOBCTLG 


NSG3 


PND10 


$JOBCTLG 


NSB5 


PNPERR 


*JOBCTLJ 


PVB4 


POSTAN 


SIPLRT6 


E0D1 


POUT 


SJOECTLG 


NOE3 


PRCDIB 


$JOBCTLA 


GRC1 


PRCINIT 


tfJOBCTLA 


GGC2 


PREP000 


SJOBCTLC 


HPB1 


PREP020 


SJOBCTLC 


HPD2 


PREP030 


tfJOBCTLC 


HPH1 


PRGONT 


SJOBCTLJ 


PTC5 


PRINTBR 


SYSBUFF1 


FQD2 


PRINTMSG 


SYSBUFF1 


FQC5 


PROGDIB 


SJOBCTLE 


LTB1 


PROCOP 


$$A$IPLR 


BFB4 


PROMPT 


SJOBCTLJ 


PLG5 


PROMPTTM 


$IPLRT2 


CFF5 


PROTP 


SJOBCTLD 


IFF1 


PRSYSLOG 


*$A$IPLR 


BDE5 


PRSYSRDR 


*$A$IPLR 


BDG2 


PRT1F 


SYSBOFLD 


FOF1 


PSHRTM 


$$BLSTIO 


TDB1 


PSHRTN1 


$$BLSTIQ 


TDF1 


PSOP 


$$A$IPLR 


BAB4 


PSUPERR 


$$A$IPLR 


BAJ5 


PSOPX 


$$A$IPLR 


BAK5 


PTEST 


SJOECTLA 


GEB1 


POBDTS 


SJOBCTLD 


KBB3 


POBEXD 


$IPLRT3 


DAC2 


PUBLOOP 


$IPLRT4 


EMC1 


POBMKE 


SIPLRT3 


DBJ2 



Label 

P0BMK1 

POBMSK 

PUBOK 

PUBSCAN 

PUIF 

PUIFTP 

POIFT3 

PUIFl 

P0IF2 

POIF3 

PUIF4 

P0IF5 

QEND 

RANXJB 

RASCAN 

RASSGN 

RASWAIT 

RCMOVE 

RCMOVE 

RDDISKOO 

RDERR 

RDOVER 

RDOVERI 

RD0V06 

RDOV02 

RDOV04 

RDOVOb 

RDOV10 

RDRESP 

RDRIN 

RDRIN3 

RDRIN5 

RDSTMT 

RDVOL2 

RDVOL2A 

READ 

READGO 

READIN 

READOV 

READRT 

READRT3 

REALALOC 

RELO 

REQASI 

REQLATIN 

REQLERR1 

REQLERR2 

REQLIKIT 

REQLOG 

REQLOGL 

REQLOGX 

REQLREST 

REQLWAIT 

REQLOO 

REQL04 

REQSPOP 

REQSTERM 

REQSOP 

REQSOPX 

REQSWAIT 

REQSOO 

REQS08 

RESET 

RESET 



Phase 


Location 


$IPLRT3 


DBB5 


SJOBCTLF 


MRE4 


$$A$IPLR 


BEE1 


$IPLRT7 


EVA1 


$*BLSTIO 


TAB1 


$$BLSTIO 


TAA3 


$*BLSTIO 


TAD4 


$$BLSTIO 


TAA4 


$*BLSTIO 


TAF2 


$$BLSTIO 


TAJ2 


$$BLSTIO 


TAE4 


$$BLSTIO 


TAG4 


SJOBCTLG 


NKE3 


SJOBCTLG 


NPB5 


SJOBCTLG 


»*PB4 


SJOBCTLG 


NPE5 


SIPLRT2 


CBG4 


$JOBCTLD 


IRF5 


SJOBCTLD 


KFC<* 


$JOBCTLM 


RTB1 


$JOBCTLA 


GSH4 


SJOBCTLA 


GMB4 


SJOBCTLA 


GND<* 


SJOBCTLA 


GNG1 


SJOBCTLA 


GND1 


SJOBCTLA 


GNE1 


SJOBCTLA 


GNA3 


SJOBCTLA 


GNE2 


SYSB0FF1 


FQC1 


$JOBCTLA 


GMA3 


$JOBCTLA 


GMD3 


SJOBCTLA 


GME4 


$JOBCTLA 


GttBI 


$JOBCTLD 


IQCa 


$JOBCTLD 


IRG3 


SIPLRT5 


FBB3 


SIPLRT2 


GBE1 


SYSBOFLD 


FMD2 


SJOBCTLA 


GNB1 


$IPLRT2 


GDB2 


$IPLRT2 


ODD 2 


$I^LRT7 


EVBb 


$*BUFLDR 


FHB1 


«$A$IPLR 


BLB4 


*$ASIPLR 


BKC2 


$$A$IPLR 


BKF4 


*$ASIPLR 


BKH5 


$$A$IPLB 


BKA3 


^$AJBIPLR 


BKB1 


^$ASIPLR 


BKH2 


$$ASIPLR 


BKK1 


$$A^IPLB 


BKA2 


$$A-SIPLR 


BKB2 


$$A«IPLB 


BKD4 


4>$ASIPLR 


BKH4 


$$A$IPLR 


BLB3 


$$ASIPLR 


BLJ3 


IfcSASIPLR 


BLB1 


^>$A?5IPLR 


BLK4 


$$A$IPLR 


BLB2 


ai$ASIPLR 


BLF1 


$$A$IPLR 


BLE5 


$JOBCTLF 


MFB1 


$.J-OBCTLJ 


PFF3 
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Label 

RESET 

RESETBUF 

RESETCL 

RESETONN 

RESET01 

RESET015 

RESET1 

RESET101 

RESET2 

RESET3 

RESET5 

RESET6 

RESET7 

RESET8 

RESFCH 

RESIDL 

RESIDR 

RESTART 

RETADD 

RETCNCL 

RETSVA 

RETURN 

REVERSE 

RFEND 

RFIOERR 

RFYES 

RIGHT 

RLD 

RLINDT 

RLSENT 

RMSBCRET 

RNGTOP 

RNGTQP 

RNVHB 

RODCMP 

RODCONT 

RODDASD00 

ROD00 

ROD05 

ROD10 

ROD 15 

ROD20 

R0D3G 

UOD30 

ROD40 

RSPASG 

RSSASG 

RSTASG 

RSTCOM 

RSTDPD 

RSTLOB 

RSTRET 

RSTRT 

RSTSTD 

RSTSTD1 

RSTSTD4 

BSTswa 

RWFLOOP 

SAVEBOTH 

SAVECUU 

SAVEONE 

SCANCDL 

SCANRES 

SCANRL3 

SCANR1 



Phase 


Location 


SYSB0FF1 


FRA4 


SJOBCTLG 


NQB2 


SJOECTLF 


MPJ2 


SJOBCTLD 


IMC 3 


SJOBCTLF 


MFD2 


*JOBCTLF 


MFF2 


SJOBCTLF 


MFC2 


SJOBCTLF 


MGC1 


SJOBCTLF 


MGE1 


SJOECTLF 


MGE5 


SJOBCTLF 


HGA2 


SJOECTLF 


MGF4 


SJOBCTLF 


MGB4 


SJOECTLF 


MGJ3 


SJOBCTLE 


LBJ2 


SIPLRT2 


CHF2 


SIPLRT2 


CHG4 


$$A$IPLR 


BGB4 


SJOBCTLF 


MAJ1 


SJOECTLN 


SBC 3 


MOBCTLJ 


PPH5 


$JOBCTLN 


SBB3 


SXSBUFF1 


FQG5 


3JJOECTLJ 


PJK1 


SJOBCTLM 


RAA5 


SJOBCTLJ 


PJG2 


SIPLRT2 


CHCa 


SJOBCTLG 


NHJ1 


SJOBCTLA 


GMC1 


SJOBCTLJ 


PAC3 


IPLBMAC 


AEG4 


SJOBCTLD 


JHD3 


SJOBCTLK 


QRE3 


*JOECTLG 


NEH5 


SJOBCTLM 


RCJ4 


SJOECTLM 


RCKM 


SJOBCTLM 


RCG2 


*JOECTLM 


RCB1 


SJOBCTLM 


RCJ1 


MOECTLM 


RCA4 


tfJOBCTLM 


RCE4 


&JOBCTLM 


RCG4 


SJOBCTLC 


HNB2 


$JOECTLM 


RCH4 


SJOBCTLC 


HNH2 


SJOECTLG 


NME4 


$JOBCTLG 


NAA4 


MOECTLG 


NMB<4 


SJOBCTLG 


NBA1 


MOECTLG 


NQB5 


*IPLRT3 


DJJ1 


*JOECTLG 


NQD2 


MOECTLK 


QQB1 


*JOBCTLD 


JMB1 


*JOBCTLD 


JMF1 


SJOBCTLD 


JMD2 


tfJOBCTLG 


NCC1 


SJOBCTLM 


RPB3 


MOBCTLD 


KBH4 


SJOBCTLD 


ISJ2 


SJOBCTLD 


KBH5 


$$A$IPLR 


BGB1 


$$A$PLBK 


ACJ2 


SJOECTLA 


GKE3 


SJOBCTLA 


GKC1 



Label 

SCANR2 

SCANR3 

SCANOO 

SCHLOP 

SCHSCH 

SCHSTA 

SCHTST 

SCILDIRF 

SCILDI3N 

SCILDIRS 

SCILDIRX 

SCNEND 

SCNINT 

SCNJIB 

SCNLOP 

SCNLUB 

SCNRL1 

SCNRL2 

SCNRT 

SCRTCH 

SDLFOLL 

SDLNEXT 

SDLOVRFL 

SDL2 

SEND 

SENSE 

SET 

SETAPRT 

SETAPRTA 

SETAPRTB 

SETAPRTE 

SETAPRTF 

SETAREA 

SETBTN 

SETCLOCK 

SETDIBl 

SETEXT 

SETFCL 

SETFLAGS 

SETID 

SETKEY1 

SETKEX2 

SETLAST 

SETLOB 

SETOK3 

SETOUT 

SETOUTPT 

SETRFOOO 

SET SDL 

SETSIZE 

SETSKIP 

SETSVA 

SETUP 

SETUP 

SETWRT 

SEUOB 

SEUOB2 

SFNC 

SFPPE 

SFPPE 

SFPPEDQ2 

SFPPE01 

SFPPE02 

SFPPE02 

SFPPE03 

SFPPE03 



Phase 


Location 


$JOBCTLA 


GKB1 


SJOBCTLA 


GKB3 


SJOBCTLM 


RMB3 


$IPLRT3 


DFC1 


SIPLRT3 


DEJ1 


SIPLRT3 


DEF1 


$IPLRT3 


DEH1 


IPLBMAC 


AFH1 


IPLBMAC 


AFJ2 


IPLBMAC 


*FF1 


IPLBMAC 


AFK1 


SIPLRT3 


DCB<* 


$JOBCTLG 


NMB1 


SJOBCTLD 


JSB2 


SIPLRT3 


DCD3 


SJOBCTLD 


JSB1 


SJOBCTLA 


GKD1 


3JOBCTLA 


GKD2 


SJOBCTLE 


LPD2 


$IPLRT5 


FBH3 


SJOBCTLJ 


PLA5 


$JOBCTLJ 


PPB4 


SJOBCTLJ 


PLC4 


$JOBCTLJ 


PPF1 


SJOBCTLE 


LQG3 


IPLBMAC 


AHC2 


SJOBCTLJ 


PGB2 


$JOBCTLA 


G*B2 


$JOBCTLA 


GYB4 


SJOBCTLA 


GXEa 


SJOBCTLA 


GYH4 


SJOBCTLA 


G¥F2 


SJOBCTLG 


NKH5 


SIPLRT4 


EAC1 


SIPLRT4 


EAG4 


3JOBCTLD 


JFC2 


$JOBCTLJ 


PGA1 


SIPLRT3 


DHG4 


SJOBCTLK 


QPF2 


SJOBCTLF 


MKC2 


$$A$IPLR 


BCB5 


$*A$IPLR 


3CC5 


$JOBCTLG 


NME1 


$3>BUFLDR 


FHC4 


$IPLRT2 


CFD4 


$JOBCTLA 


GSD2 


SJOBCTLJ 


PDC2 


$JOBCTLM 


RTB2 


$JOBCTLJ 


PPB1 


SJOBCTLD 


JEC5 


SJOBCTLA 


GTH2 


$JOBCTLJ 


PLB1 


$JOBCTLG 


NNE2 


SJOBCTLJ 


PSB4 


SJOBCTLA 


GT J 1 


$$BLSTIO 


TCBU 


$*BLSTIO 


TCGU 


SJOBCTLF 


MNB5 


SJOBCTLD 


JPB1 


$JOBCTLF 


MRB1 


SJOBCTLF 


MJC4 


$JOBCTLF 


MRE2 


$JOBCTLD 


JPE1 


SJOBCTLF 


MRE1 


$JOBCTLD 


JRE1 


SJOBCTLF 


MRF5 
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Label 

SFPPE04 

SFPPE1 

SFPPE10 

SFPPE10 

SFPPE11 

SFPPE12 

SFPPE12 

SFPPE13 

SFPPE13 

SFPPE14 

SFPPE14 

SFPPE15 

SFPPE15 

SFPPE16 

SFPPE17 

SFPPE17 

SFPPEIb 

SFPPE19 

SFPPE2 

SFPPE2 

SFPPE201 

SFPPE3 

SFPPE3 

SFPPE4 

SFPPE4 

SFPPE5 

SFPPE5 

5FPPE5A 

SFPPE6 

SFPPE7 

SFPPEB 

SFPPE8 

SFPPE8A 

SFPPE8B 

SFPPEbC 

SFPPE9 

SFPPE9 

SHARE 

SHORTFCB 

SHORTFCB 

SIMEND 

SIHEOF 

SIMEOJ 

SIMRET 

SIO 

SIO 

SIZE 

SJBKSWCH 

SKIP 

SKIPDC 

SK1PDC 

SKIPLOAD 

SKIPMSG 

SKIPRTY 

SKPI^IC 

SKPKEY 

SLDLOOP 

SLIBAE 

SLIBDF 

SNSOO 

SNS001 

SNS10 

SOLVE 

SPRSW 

STARTIO 

STDASSGN 



Phase 


Location 


$JOBCTLD 


JPH3 


SJOBCTLF 


MRC1 


$JOBCTLD 


JQB1 


SJOECTLF 


MSA1 


SJOBCTLF 


MSD3 


tfJOBCTLD 


JQD2 


SJOBCTLF 


MSB2 


SJOBCTLD 


jQca 


SJOBCTLF 


MSC4 


*JOBCTLD 


JQG2 


SJOBCTLF 


MSF2 


SJOBCTLD 


JQD4 


SJOBCTLF 


MSD4 


WOBCTLF 


MSG*4 


SJOBCTLD 


JQJ5 


SJOECTLF 


MSJ5 


SJOBCTLF 


MSK4 


*JOfiCTLF 


MSA4 


SJOBCTLD 


JPD1 


*JOECTLF 


MRD1 


SJOBCTLF 


MSE3 


*JOECTLD 


J R J 3 


SJOBCTLF 


MRJ5 


*JOBCTLD 


JPG1 


$JOBCTLF 


MRH1 


SJOBCTLD 


JPB2 


SJOBCTLF 


MRC3 


*JOBCTLF 


MRB3 


SJOBCTLF 


MRC4 


*JOECTLF 


MRD5 


SJOBCTLD 


JQE1 


SJOBCTLF 


MSC1 


SJOBCTLF 


MSG1 


MOBCTLF 


MSB a 


tfJOBCTLF 


MS AS 


SJOBCTLD 


JQF2 


SJOBCTLF 


MSE2 


SJOBCTLD 


IKF5 


$$BUFLDR 


FKG3 


SYSB0FF1 


FRC5 


*JOBCTLG 


NCA1 


SYSBUFLD 


FPD5 


*JOBCTLN 


SAB2 


SJOECTLG 


NBB1 


SJOBCTLC 


HRB5 


IPLBMAC 


AHC1 


SJOECTLJ 


PSB1 


$JOBCTLN 


SBH2 


SJOBCTLJ 


PHF5 


*$A$PLBF 


ADB1 


*$A$PLBK 


ACB1 


**BUFLDR 


FKJ3 


$JOBCTLD 


IAE2 


WOBCTLF 


MKC2 


SIPLRT4 


EFD3 


*IPLRT3 


DAG1 


SJOBCTLD 


JBD4 


*JOECTLG 


NKD5 


$JOBCTLG 


NKE5 


$JOECTLM 


RNB1 


tfJOBCTLM 


RNE2 


*JOECTLM 


RND1 


SYSBUFF1 


FRK3 


SIPLRT3 


DEC3 


$$BUFLDR 


FKE1 


$JOBCTLG 


NNG3 



Label 

STDCPT1 

STDLBL 

STDOPTX 

STDOPTI 

STDOPTZ 

STDUCHN 

STGETOP 

STIDC 

STIDEL 

STLOOP1 

STOP 

STORERJ 

STORNAM 

STORQNIT 

STSCLB 

ST370 

SOBLIB 

SOLB 

S0LB1 

S0LB2 

SOPCHCK 

SOPREQ 

SOPV 

SVCBTRNS 

SWBACK 

SWDEV1 

SWDEV3 

SWITCHING 

SWOFF1 

SWOFF2 

SWVIRT1 

SWVIRT2 

SXTPOK 

SYM 

SYNTAX 

SYN02 

SYSDATE 

SYSERR 

SYSERR1 

SYSHC 

SYSMVC 

SYSPRM 

SYSR 

SYSRF 

SYSRTURN 

SYSTERR 

SYSOPI 

SYSOPT1 

SYSXXX 

SYSXXX 

SYSYYY 

SYSZZZ 

SYSZZZ01 

SYSZZZ1 

SYSZZZ2 

SYSZZZ3 

SYSZZZ4 

SYSZZZ5 

SYSZZZ6 

TAPINT 

TEMPASS1 

TEMPEND 

TEST 

TESTACCT 

TESTAOTO 



Phase 


Location 


*JOBCTLJ 


PXB1 


SJOBCTLG, 


NJB3 


$JOBCTLJ~ 


PXK3 


4>JOBCTLJ 


PXH1 


tfJOBCTLJ 


PXF1 


$JOBCTLA 


GPC5 


*JOBCTLJ 


PXC3 


$$A$IPLR 


BCB3 


$$A$IPLR 


BCJ3 


SJOBCTLJ 


PXA3 


SJOBCTLJ 


PMB1 


SYSBCJFF1 


FQH5 


$$BUFLDR 


FHG3 


SJOBCTLG 


NQA2 


SJOBCTLG 


NPG1 


$$A$IPLR 


BCH2 


$JOBCTLG 


MKB5 


$3>BLSTIO 


TCB1 


$$BLSTIO 


TCE2 


$$BLSTIO 


TCE3 


$*A$IPLR 


BBD3 


$*A$IPLR 


BBF1 


SJOBCTLF 


MKG1 


$JOBCTLF 


MAD5 


$JOBCTLN 


SBD1 


$IPLRT4 


EMC3 


$IPLRT4 


EMF3 


$IPLRT7 


EVG1 


$JOBCTLD 


INC5 


$JOBCTLD 


IND5 


$IPLRT7 


5VB3 


SIPLRT7 


EVC3 


SJOBCTLK 


QHK1 


3JOBCTLG 


NBD2 


$JOBCTLE 


LQB2 


$JOBCTLE 


LQE2 


$JOBCTLJ 


PGH2 


$JOBCTLA 


GWB5 


$JOBCTLG 


NCA2 


$JOBCTLJ 


PJA3 


$IPLRT2 


CHB2 


$JOBCTLG 


NRB1 


SIPLRT5 


FFB3 


$JOBCTLJ 


PJB1 


SYSBOFLD 


FME4 


$JOBCTLD 


KFB4 


$JOBCTLJ 


PGG1 


SJOBCTLJ 


PKC1 


$JOBCTLK 


QTB2 


$JOBCTLK 


QTE 1 


$JOBCTLD 


KFB1 


$JOBCTLD 


JTBI 


$JOBCTLD 


JTG3 


$JOBCTLD 


JTD1 


$JOBCTLD 


JTE1 


$JOBCTLD 


JTE3 


$JOBCTLD 


JTAU 


$JOBCTLD 


JTA5 


5JOBCTLD 


JTH2 


$JOBCTLA 


GQB1 


SJOBCTLD 


JEG5 


$JOBCTLE 


LHE2 


$JOBCTLN 


SAE1 


$JOBCTLA 


GAF4 


$JOBCTLE 


LHB1 
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Label 


Phase 


Location 


TESTCIOA 


SJOBCTLD 


IPB1 


TESTCSW 


IPLBMAC 


AHH1 


TESTDEV 


SYSB0FF1 


FRJ1 


TESTEMD 


SJOBCTLA 


GNE5 


TESTIPT 


SJOBCTLD 


ITF2 


TESTNK 


SJOBCTLE 


LDH2 


TESTOV 


SJOECTLA 


GNB5 


TESTREAL 


SJOBCTLE 


L0E5 


TESTSIZE 


SJOBCTLE 


LDG1 


TEST1 


SJOBCTLF 


MEG2 


TEST2 


*JOBCTLF 


MEG3 


TEST3420 


SJOBCTLD 


IMD4 


TFILL 


SJOBCTLK 


QAD4 


TIAERR 


SJOBCTLD 


KAE1 


TIAERR 


SJOECTLF 


MNG4 


TIMERT 


SIPLRT4 


EFB4 


TIMOOT 


SJOECTLG 


NLB3 


TIMOUT1 


$JOBCTLG 


NLK3 


TIMO0T2 


SJOBCTLG 


NLE4 


TIO 


IPLBMAC 


AHG1 


TLBL 


SJOBCTLK 


QBB1 


TLOOP 


3>JOECTLE 


LDC5 


TW1 


$IPLRT2 


CFD1 


TOOMANY 


*JOBCTLJ 


PNJfl 


TPLAB 


SJOBCTLK 


QAB2 


TPVER 


*JOECTLK 


QAH3 


TRLBL 


SJOBCTLD 


IQE4 


TRTDO 


SYSB0FF1 


FQE4 


TSLNKSW 


SJOBCTLJ 


PDA2 


TSTCLASS 


SJOBCTLF 


MOC2 


TSTDF 


SJOBCTLA 


GSE4 


TSTEXT 


SJOBCTLD 


JKJ3 


TSTLOG 


SJOBCTLA 


GDF1 


TSTMNT 


SJOBCTLD 


IQJ1 


TSTPAOSE 


MOBCTLA 


GBD1 


TSTPROC 


SJOBCTLD 


KAG4 


TSTPRT1 


SYSBOFLD 


FNA2 


TSTTYPE 


SJOBCTLA 


GCKM 


TTRCONV 


IPLBMAC 


AFB5 


TXCOO 


SJOECTLF 


MQB4 


TXCOO 


SJOBCTLJ 


PTC1 


TXCOO 1 


SJOBCTLD 


KCC1 


TXCOO 1 


SJOBCTLF 


MQE4 


TXCOO 1 


$JOECTLJ 


PTD1 


TXCOOl&b 


SJOBCTLF 


MNC4 


TXCOO 2 


SJOBCTLF 


MQH4 


TXC002 


SJOBCTLJ 


PTF1 


TXC003 


SJOECTLF 


MQJ3 


TXC004 


SJOBCTLF 


MQF4 


TYPEXCP 


SYSB0FF1 


FQB5 


TYPRTORN 


SYSBOFLD 


FMK3 


TYP2RTRN 


SYSBOFLD 


FNC1 


T125BG 


MPLRT4 


EPC3 


T125CH 


SIPLRT4 


EPD1 


T125EN 


SIPLRT4 


EPH3 


T125HW 


SIPLRT4 


EPJl 


T125NOC 


SIPLRT4 


EPG3 


T125NOR 


SIPLRT4 


EPB4 


T125RT 


SIPLRT4 


EPA4 


T125SCA 


$IPLRT4 


EPA3 


T1442 


tfJOBCTLJ 


PNE2 


T9TRK 


^JOBCTLD 


KCB4 


T9T3401 


SJOBCTLD 


KCC5 


DA 


SJOECTLF 


MEB1 


OADN1 


SJQBCTLF 


MEE1 



Label 

0ADN2 

0ADN3 

0ADN4 

0ADN5 

0ADN6 

OALOB 

OALOB1 

OANXJB 

OASCAN 

OASTD 

OCBLOAD 

OCS 

OCSSCN 

OCSVN 

0CS1 

0CS3 

0CS4 

UNA 

ONAE 

ONANENT 

UNASGN 

ONASSGN 

0NA1 

0NA1A 

0NA2 

0NA2A 

0NA2AA 

0NA2B 

ONBATCH 

0MBLKD1 

ONCLOG 

ONCO 

ONITCHCK 

ONITPOB 

UNITR 

ONITS 

0NITS1 

0NITS2 

0NITS3 

0NITS401 

0NITS402 

0NITS5 

0NITS501 

0NITS6 

0NITS8 

0NITS9 

ONPA 

UNPA3 

ONTFND 

OPDATE 

OPDBLK 

OPDCHBKT 

OPDHDN 

OPDSAV 

OPLOB 

OPSICH 

OPSIPROC 

OSERENTZ 

OSERETRN 

OSEREXIT 

OSERNONE 

OSERNOXT 

OSEROOT 

OSERPTST 

OSERROR 

OSERSEIZ 



Phase 


Location 


SJOBCTLF 


1EJ1 


$JOBCTLF 


HEE5 


$JOBCTLF 


*!EF3 


SJOBCTLF 


1EA4 


$JOBCTLF 


MEH3 


$JOBCTLF 


*JC3 


$JOBCTLF 


WJD3 


SJOBCTLG 


MNC5 


SJOBCTLG 


NNB1 


SJOBCTLF 


HJB5 


SYSBOFLD 


FOB1 


SJOBCTLJ 


PBB1 


$JOBCTLJ 


PCB2 


$JOBCTLJ 


PCC1 


$JOBCTLJ 


PBH1 


SJOBCTLJ 


PCE3 


SJOBCTLJ 


PCE4 


SJOBCTLF 


MNB1 


SJOBCTLF 


WNF1 


$JOBCTLF 


URGb 


SJOBCTLG 


NNA4 


$JOBCTLD 


^1FJ3 


SJOBCTLF 


1NB3 


$JQBCTLF 


MNE3 


SJOBCTLF 


1PA1 


$JOBCTLF 


MPE1 


$JOBCTLF 


1PF1 


$JOBCTLF 


MPG1 


SJOBCTLF 


MMB1 


$JOBCTLJ 


PDCb 


SJOBCTLA 


GDF2 


SJOBCTLF 


MCA3 


$*A$IPLR 


BFB3 


SYSBOFLD 


FMJ5 


$IPLRT5 


FEB3 


SJOBCTLF 


1CB2 


$JOBCTLF 


1CA1 


SJOBCTLF 


1CH1 


SJOBCTLF 


1CH2 


SJOBCTLF 


MCE1 


SJOBCTLF 


^1CB3 


SJOBCTLF 


WCC3 


SJOBCTLF 


1CC4 


SJOBCTLF 


WCA5 


$JOBCTLF 


^1CH4 


SJOBCTLF 


WCD3 


SJOBCTLD 


JRB1 


$JOBCTLD 


JRB2 


$JOBCTLJ 


PTF4 


$JOBCTLC 


HRB3 


SJOBCTLC 


HRD3 


$*A$IPLR 


BEH1 


$JOBCTLA 


GRD5 


SJOBCTLJ 


POB1 


$IPLRT3 


DJH1 


SJOBCTLJ 


PKE1 


SJOBCTLJ 


PKB1 


$JOBCTLA 


GEF3 


SJOBCTLA 


GEJ3 


$JOBCTLA 


GEB3 


SJOBCTLA 


GEJi> 


SJOBCTLA 


GEE5 


SJOBCTLA 


GEH5 


SJOBCTLA 


GED4 


SJOBCTLN 


SAF1 


SJOBCTLA 


GEG5 
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Label 

OSERSKIP 

DSNRES 

USRLBL 

VMBOCK 

VMEND 

VMRTN 

VNFERR 

VOL 

VOLIDR 

VOLOK 

WAIT 

WAITERR 

WAITHARD 

WAITLOG 

WAITLOGW 

WAITLOGX 

1TAITR 

WRITE 

WRITLOG 

WRNGPART 

WRONG 

WRONGVQL 

WRTDSKOO 

WRTERR 

WRTFBAOO 

WRTFBA10 

WRTFILOO 

WRTFIL10 

WRTFIL20 

WRTHDROO 

WTORLOG 

WTORLOGC 

WTORLOGO 

WTORLOGX 

WTORLOG3 

XCTL 

XCTL2 

XFERINS 

XREF 

XTENT 

XTOP12 

XTOP12A 

XTOP12B 

XTOP3 

XTOP34 

XTOP5 

XTOOT 

XTONIT 

X203 

YEOLST 

ZEROSLD 

ZONE 

ZONECHK 

ZRHVDN 

ZRMVLP 



Phase 


Location 


SJOBCTLA 


GEF5 


$IPLRT4 


EAJ4 


SJOBCTLG 


NJB5 


SJOBCTLJ 


PNB5 


SJOBCTLJ 


PNF5 


SJOBCTLJ 


PNB3 


SJOBCTLD 


KAE4 


SJOBCTLK 


QAB5 


SIPLRT5 


FEB5 


SJOBCTLD 


IQJ4 


*$A$IPLR 


BDD3 


SJOBCTLA 


GVH5 


$$A$IPLR 


BED5 


$*A$IPLR 


BMBM 


$$A$IPLR 


BMD4 


tf$A$IPLR 


BMJ5 


SJOBCTLJ 


PMA5 


*IPLRT5 


FCA1 


SJOBCTLE 


LED4 


$JOBCTLJ 


PXB2 


SJOBCTLD 


IQH2 


SJOBCTLD 


IQJ2 


tfJOBCTLM 


RHB2 


SJOECTLA 


GSG5 


SJOBCTLM 


RTB3 


tfJOBCTLH 


RTD3 


SJOBCTLM 


RLA4 


WOBCTLM 


RLE a 


MOBCTLM 


RLK4 


SJOBCTLM 


RHB3 


$$A$IPLR 


BMA1 


$$A$IPLR 


BMC1 


$$A$IPLR 


BMC2 


$$A$IPLR 


BHK1 


$$A$IPLR 


BHD2 


$$A$IPLR 


BED 2 


*JOBCTLE 


LEG5 


$$A$IPLR 


BEE2 


SJOBCTLG 


NHD4 


SJOECTLK 


QHB1 


WOBCTLK 


QMB2 


SJOBCTLK 


QMD2 


*JOBCTLK 


QMF2 


MOBCTLK 


QHC5 


SJOBCTLK 


QMB3 


SJOBCTLK 


QJA1 


*JOBCTLK 


QJG2 


SJOBCTLK 


QJG3 


SYSBOFLD 


FOB 2 


*JOBCTLD 


KBK3 


SJOBCTLD 


JBJ5 


SJOBCTLJ 


PHB4 


SIPLRT4 


EAJ1 


*JOECTLA 


GJE4 


SJOBCTLA 


GJD4 
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APPENDIX B: PHASE TO MODULE CROSS REFERENCE 



IPL: 



JCL: 



Phase : 


Module : 


$$A$IPLR 

1 

$$A$PLBF 
K 


$$A$IPLR 

1 

$$A$PLBF 
K 


$$BATTF0 
2 
3 


$$BATTF0 
2 
3 


$$BFCB 

BOO 
130 
3 
5 


$$BFCB 

BOO 
10 
3 
5 


$$BUCB 


$$BUCB 


$$BUCB00 


$$BUCB00 


$$B0CB3 


$$BUCB3 


$$BUCB4 


$$BUCB4 


$$BUCB5 


$$BUCB5 


$$BUFLDR 

LD1 

2 


$$BUFLDR 
$$BUFLDfi 
$$BUFLDR 


$IPLRT2 
3 
4 
5 
6 
7 


IJBIPL 
IJBIPL 
IJBIPL 
IJBIPL 
IJBIPL 
IJBIPL 


SSVABAM 


SSVABAM 


$SVACSC 


SSVACSC 


$$A$SVA 

SSVADLI 

SSVASORT 

$SVAVSAM 

$SVA00O0 

$SVA3800 

$SVACICS 

SSVASEC 


$$A$SVA 



Phase 

SYSBUFF1 
SYSBUFLD 

$$BJCOPT 
JCOP1 
LSTIO 

SIJBSLA 

SJOBACCT 
SJOBCTLA 
SJOBCTLB 
SJOBCTLC 
SJOBCTLD 
SJOBCTLE 
SJOBCTLF 
SJOBCTLG 
SJOBCTLJ 
SJOBCTLK 
SJOBCTLM 
SJOBCTLN 
SJOBEXIT 



Module 

IJBSBUF1 
IJBSBUFF 

$$BJCOPT 
JCOP1 
LSTIO 

IJBSLA 

SJOBACCT 

IJBJC1 

IJBJCB 

IJBJCC 

IJBJC2 

IJBJC9 

IJBJC5 

IJBJC3 

IJBJC4 

IJBJC6 

IJBJC7 

IJBJC8 

SJOBEXIT 



These phases are dummy phases to be replaced 
later by real phases of the same name, which 
contain their own modules- These do not belong 
to the IPL component. 
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APPENDIX 


C: ERROR ME. 


Message 


Phase 


0100 


$$A$IPLR 


01 


$$A$IPLR 


02 


$$A$IPLR 


03 


$$A$IPLR 


04 


SSASIPLR 


05 


$$A$IPLR 


06 


SSASPLBK 




$$A$PLBF 


07 


$$A$IPLR 


08 


SSASIPLR 


09 


$$A$IPLR 


10 


$IPLRT2 


11 


$IPLRT2 


12 


$IPLRT3 


13 


$IPLRT3 


15 


$IPLRT3 


16 


$IPLRT4 


17 


$IPLRT4 


18 


$IPLRT2 


19 


$IPLRT4 


| 20 


$IPLRT7 


21 


$IPLRT2 


22 


$IPLRT3 


23 


$IPLRT4 


I 24 


$$A$IPLR 


25 


SIPLRT4 


26 


$$BUFLDR 




$$BQFLD2 


27 


$$BUFLD2 


28 


SSBUFLDR 


29 


SIPLRT4 


30 


$IPLRT2 


31 


$IPLRT2 


32 


$IPLRT2 


34 


$IPLRT4 


35 


$IPLRT4 


36 


$IPLRT2 


37 


SIPLRT5 


38 


$IPLRT5 


39 


SIPLRT5 


40 


$IPLRT4 


41 


$IPLRT5 


42 


$IPLRT5 


43 


$IPLRT5 


44 


$IPLRT5 


45 


$IPLRT5 


46 


$IPLRT5 


50 


$IPLRT2 


51 


$IPLRT5 


52 


$IPLRT5 


54 


$IPLRT2 


• 58 


$IPLRT4 


I 59 


SIPLRT7 


60 


$IPLRT3 


61 


$IPLRT4 


63 


SIPLRT4 


64 


$IPLRT2 


65 


$IPLRT2 


66 


SIPLRT2 


67 


$IPLRT4 


I 68 


$$A$IPLR 


69 


$$BUFLDR 



ERROR MESSAGES CROSS REFERENCE 



Message 


Phase 


0170 


SSBUFLDR 


71 


$$BUFLDp 


72 


SIPLRT3 


73 


$IPLRT5 


74 


SIPLRT7 


75 


$IPLRT5 


76 


$IPLRT5 


77 


$IPLRT5 


78 


SIPLRT5 


79 


$IPLRT5 


81 


$IPLRT7 


82 


$IPLRT7 


83 


SIPLRT6 


84 


SIPLRT6 


85 


$IPLRT6 


86 


$IPLRT2 




$IPLRT4 




SIPLRT5 




$IPLRT6 


87 


SIPLRT2 




$IPLRT4 




$IPLRT5 




$IPLRT6 


88 


$IPLRT2 




$IPLRT5 




$IPLRT6 


89 


$IPLRT2 




$IPLRT4 




$IPLRT5 


90 


$IPLRT6 


91 


$IPLRT6 


92 


SIPLRT7 


94 


$IPLRT2 


95 


$IPLRT6 


96 


SSASIPLR 


99 


$IPLRT5 


0J18 


SIPLRT7 


0R00I 


$JOBCTLB 


011 


SJOBCTLB 


021 


$JOBCTLB 


031 


$JOBCTLB 


041 


SJOBCTLB 


051 


$JOBCTLB 


061 


$JOBCTLB 


071 


$JOBCTLB 


081 


$JOBCTLB 


091 


$JOBCTLB 


101 


$JOBCTLB 


111 


SJOBCTLB 


121 


$JOBCTLB 


131 


SJOBCTLB 


141 


SJOBCTLB 


151 


$JOBCTLB 


191 


SJOBCTLB 


1A0n 


SJOBCTLD 


tin 


SJOBCTLD 


2n 


SJOBCTLD 




SJOBCTLG 




SJOBCTLJ 
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Message 


Phase 


1A3n 


$JOBCTLD 


4n 


SJOBCTLD 




$JOBCTLF 




$JOBCTLJ 




$JOBCTLK 


5n 


$JOBCTLD 




$J0BCTLF 




$JOBCTLJ 


6n 


$JOBCTLD 




SJOBCTLF 


7n 


$JOBCTLD 




SJOBCTLF 




SJOBCTLJ 


80 


$JOBCTLD 


81 


SJOBCTLA 


82 


$JOBCTLD 


83 


$JOBCTLD 


9n 


$JOBCTLD 




SJOBCTLF 


1B01 


SYSBUFLD 


08 


SJOBCTLJ 


10 


SYSBUFLD 


11 


SYSBUFLD 


1C00 


SJOBCTLA 


10 


SJOBCTLJ 




SJOBCTLA 




SJOBCTLG 


3n 


SJOBCTLE 




SJOBCTLJ 


70 


SJOBCTLA 


8n 


SJOBCTLA 




SJOBCTLG 


1100 


SJOBCTLA 




SJOBCTLG 


10 


SJOBCTLF 


20 


SJOBCTLG 


50 


SJOBCTLA 


70 


SJOBCTLA 


74 


SJOBCTLM 


75 


SJOBCTLM 


76 


SJOBCTLM 


77 


SJOBCTLM 


78 


SJOBCTLM 


79 


SJOBCTLM 


80 


SJOBCTLG 


82 


SJOBCTLM 


83 


SJOBCTLM 


84 


SJOBCTLM 


85 


SJOBCTLM 


86 


SJOBCTLM 


89 


SJOBCTLM 


90 


SJOBCTLM 


91 


SJOBCTLM 


92 


SJOBCTLM 


93 


SJOBCTLM 


95 


SJOBCTLM 




SJOBCTLC 


96 


SJOBCTLM 




SJOBCTLC 


97 


SJOBCTLM 




SJOBCTLC 



Message 


Phase 


1198 


SJOBCTLJ 


99 


SJOBCTLM 




SJOBCTLC 


1L0n 


SJOBCTLK 


1n 


SJOBCTLK 


2n 


SJOBCTLK 


40 


SUbSLA 


1M10 


SJOBCTLA 




SJOBCTLG 


20 


SJOBCTLA 


21 


SJOBCTLG 


3n 


SJOBCTLA 


4n 


SJOBCTLG 


5n 


SJOBCTLD 




SJOBCTLF 


6n 


SJOBCTLE 


7n 


SJOBCTLE 




SJOBCTLG 


8n 


SJOBCTLE 




SJOBCTLG 


9n 


SJOBCTLE 




SJOBCTLG 


1N00 


SJOBCTLA 


10 


SJOBCTLE 


2n 


SJOBCTLE 


30 


SJOBCTLE 


40 


SJOBCTLE 


50 


SJOBCTLE 


60 


SJOBCTLE 


7n 


SJOBCTLG 


80 


SJOBCTLG 


90 


SJOBCTLG 


91 


SJOBCTLA 


92 


SJOBCTLE 


1P01 


SJOBCTLJ 


02 


SJOBCTLJ 




SJOBCTLE 


03 


SJOBCTLJ 


04 


SJOBCTLJ 


05 


SJOBCTLJ 


2n 


SJOBCTLE 


1S0n 


SJOBCTLA 




SJOBCTLG 




SJOBCTLJ 


In 


SJOBCTLG 




SJOBCTLE 




SJOBCTLJ 




SJOBCTLK 


2n 


SJOBCTLJ 


3n 


SJOBCTLE 


40 


SJOBCTLA 




SJOBCTLD 




SJOBCTLE 


41 


SJOBCTLJ 


42 


SJOBCTLJ 


50 


SJOBCTLJ 


51 


SJOBCTLJ 


52 


SJOBCTLJ 
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Message 
| 1S6n 
1T10 



Phase 
$JOBCTLE 



Message Eil§.se 



$JOBCTLA 

$JOBCTLJ 

20 $JOBCTLD 

| 40 $JOBCTLD 



1T50 

60 

70 

I 80 

| 3M91 



$JOBCTLD 
$JOBCTLD 
$JOBCTLD 
SJOBCTLA 

$JOBCTLD 
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APPENDIX D: SAMPLE LISTIO PRINTOUTS 









±i 


<j 




■"-•»•--'- FOREGROUND 1 ftftft 






// LISTIO SYS 


// LI STIO ALL 




l/O UNIT CMNT CHNL 


UNIT MODE 






*** BACKGROUND *** 




*** BACKGROUND *** 


SYSOOO 


UA ftft 






I/O UNIT CMNT CHNL UNIT MODE 


I/O UNIT CMNT CHNL UNIT MODE 


SYSOOI 


UA ftft 












SYS00 2 


UA ftft 






SYSRDR OC 


SYSRDR 


OC 


S Y S 3 


UA ftft 






SYSIPT OC 


SYS 1 PT 


OC 


SYS004 


UA ** 






SYSPCH OD 


SYSPCH 


OD 


SYS 005 


UA -'■■•"• 






SYSLST 1 OA 


SYSLST 


1 OA 


SYS 006 


UA ft'-- 






SYSLOG IF 


SYSLOG 


1 F 


SYS00 7 


UA •"--'-- 






SYSLNK 1 91 


SYSLNK 


1 91 


SYS008 


UA ftft 






SYSRES 1 92 


SYSRES 


1 92 


SYS009 


UA ftft 






SYSSLB ** UA ** 


SYSSLB 


ft* UA ** 


S Y S 1 


UA ** 






SYSRLB ** UA ** 


SYSRLB 


*•:.- UA •'-■»• 


S Y S 1 1 


UA ** 






SYSREC 1 91 


SYSREC 


1 91 


S Y S 1 2 


UA ftft 






11 






S Y S 1 3 " " 


UA •'•-•'• 








ft ftft BACKGROUND *** 


S Y S 1 k 


UA ** 






// LISTIO PROG 






SYS015 


UA ftft 








I/O UNIT CMN T chwi iim i t MnnF 










ft ftft BACKGROUND *** 


SYSOOO 


ft-:.- UA ft* 


U 

// LISTIO SYSRDR 








I/O UNIT CMNT CHNL UNIT MODE 


SYSOOI 


1 91 












SYS002 


1 91 


•»** BACKGROUND *** 






SYSOOO 91 


SYS003 


1 91 










SYSOOI 91 


SYS004 


ftft UA ••••■•'•' 


I/O UNIT CMNT CHNL 


UNIT MODE 






SYS002 91 


SYS005 


ftft UA ** 










SYS003 91 


SYS006 


ft* UA *' ft- 


S~Y S R D R 


OC 






SYS004 ** UA ** 


SYS007 
SYS008 
SYS009 


ft ft UA ft* 
ftft UA ft* 










SYS0 05 ** UA --■-•»• 


U 








U 


ft ft U A ft •'•' 


// LISTIO UNITS 








SYS010 


ft-;.- UA ft ft- 










// LI STIO F2 


SYS01 1 
SYS012 


ft ft UA ft ft- 
ft ft UA ft ft- 


CHNL UNIT OWNER 


I/O UNIT CMNT 


MOD 




•"••-* FOREGROUND 2 *** 


SYS013 


ft ft UA ** 


OC BG 


SYSRDR 








SYS014 


ft -a- UA ft ft- 


OC BG 


SYSI PT 






I/O UNIT CMNT CHNL UNIT MODE 


SYS015 


ft ft UA ft ft- 


OD BG 
OE 


SYSPCH 
ft UA -•'• 






SYSRDR ** UA ftft 
SYSIPT ftft UA ft* 




ft ftft FOREGROUND 2 ft ftft 


1 F BG 
1 F BG 


SYSLOG 
SYS 1 N 






SYSPCH ftft UA ft*: 
SYSLST ftft UA ftft 


I/O UNIT CMNT CHNL UNIT MODE 


1 OA BG 

1 90 

1 91 BG 


SYSLST 

ft UA ft 
SYSLNK 






SYSLOG ftft UA ftft 


SYSRDR 


ftft UA ft ft- 






SYSLNK ftft UA ftft 


SYSIPT 


ft ft UA ft ft- 


1 91 BG 


SYSREC 






SYSRES 1 92 


SYSPCH 


ft ft UA ft ft- 


1 91 BG 


SYSOOI 






SYSSLB ftft UA •'••'• 


SYSLST 


ft ft UA ft ft- 


1 91 BG 


SYS002 






SYSRLB ftft UA ftft 
SYSREC 1 91 


SYSLOG 
SYSLNK 


ft ft UA ft ft- 
ft ft UA ftft 


1 91 BG 
1 91 F2 


SYS003 
SYSREC 








SYSRES 


1 92 


1 91 F1 


SYSREC 






*** FOREGROUND 2 ft* ft 


SYSSLB 


ftft UA ftft 


1 92 BG 


SYSRES 






I/O UNIT CMNT CHNL UNIT MODE 


SYSRLB 
SYSREC 


ftft UA ** 
1 91 


1 92 F2 
1 92 F1 


SYSRES 
SYSRES 






SYSOOO ftft UA ftft 




--'--•'-•'- FOREGROUND 2 *** 


1 80 
1 81 


•'•- UA * 
* UA ft 
ft UA * 
ft UA ft- 
ft UA * 






SYS001 ftft UA ftft 






1 82 
1 83 
1 84 






SYS0O2 ftft UA ftft 


I/O UNIT CMNT CHNL UNIT MODE 






SYS 003 ftft UA ftft 
SYS 004 ftft UA ftft 
SYS00 5 ft* UA ftft 


SYSOOO 
SYSOOI 


ftft UA ft ft- 
ft--'.- UA ft ft- 






u 








SYS006 ftft UA ft* 


SYS002 


ft ft UA ftft 


// LISTIO UA 








SYS00 7 ** UA ft* 


S Y S 3 


** UA ** 










SYS008 ftft UA ftft 
SYS00 9 ftft UA ftft 


SYS004 
SYS005 


ftft UA ft ft- 
ft ft UA ft ft- 


•••"-•'- UNASSIGNED 








SYS010 ftft UA *ft 
SYS01 1 ftft UA ftft 


SYS006 
SYS007 


ft ft UA ft ft- 
ft ft UA ft ft- 


CHNL UNIT 








SYS0 12 ft* UA ftft 


SYS008 


ft ft UA ** 


1 80 
1 81 
1 82 
1 83 








SYS013 ftft UA ft* 


SYS009 


ftft UA ftft 








SYS0 14 ftft UA ftft 


SYS010 


ftft UA ftft 








SYS015 ft* UA ftft 


SYS01 1 
SYS012 
SYSOl 3 


ftft UA ftft 










'•'■' ft U A ft ft- 
ft ft UA ftft 


u 








Note: The 1st line of each sample shows the control 


SYS014 


-'.--•-- UA ft ft- 


// LISTIO DOWN 








statement as it was logged by job control . 


SYS01 5 


ft ft UA ftft 










1 . List all background system units. 




--••---'•--'•- FOREGROUND 1 *** 


ftftft DOWN ftft-- 








2. List all background programmer units. 






CHNL UNIT 








3. List all foreground 2 units. 


I/O UNIT CMNT CHNL UNIT MODE 










4. List all units. 


SYSRDR 


ftft UA ft ft- 
ft ft UA ft ft- 


ftft NONE ftft 








5. List a specific unit (SYSXXX). 


SYS 1 PT 


•J 

// LISTIO X*01F' 








6. List the logical units assigned to all physical 


SYSPCH 


ft ft UA ft ft- 








devices. 


SYSLST 


ft ft UA * ft- 










7. List all unassigned units. 


SYSLOG 


ft ft UA ftft 


CHNL UNIT OWNER I/O UNIT CMNT 


MODE 




8 . List all down units. 


SYSLNK 


ftft UA ** 










9. List all logical units assigned to a specified 


SYSRES 
SYSSLB 


1 92 

ft-:.- UA ftft 


OIF BG SYSLOG 






'physical unit . 












SYSRLB 


ftft UA ftft 










SYSREC 


1 91 








L 











Figure 17.. Sample LISTIO Printouts 
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APPENDIX E: VARIOUS CONTROL BLOCKS AND 
TABLES 



THE PUB TABLE 



PUBTAB 




Job Control Flags 

Channel Scheduler Flags - 

Device Type 

Retry Counter- — 

Unit 1 



- Channel Queue Pointer 
-Channel 
Device Characteristic Code - 



FF PUB-table delimiter 



PUBEND 

Figure 18- Physical Unit Block (PUB) Table 

By t e s : 


1 
2 

3 
4 
5 



Channel number- (Hex 0-9, FF=NULL) 
I/O device unit number- 
Hex 0, 1, 2, ,...- first channel queue 
entry number for this device- 



ERP retry counter- 
Device type code- 

For ICA line (Model 115, or 125), 
this byte contains the displacement 
index of the entry in the Line Mode 
Table (LMT).. The address of the LMT 
is in SYSCOM- 

For DASD with Track Hold this byte 
contains a printer to the Track Hold 
table entry or X B FF«- 

For MICR type devices, this byte 
indicates which external interrupt 
line is in use- 

For a 3704/3705 Communications 
Controller, this byte contains the 
type number of the Channel Adapter. 



For MFCM or MFCU: 



Bit 



0: 1 = Repositioning required 



SYSPCH temporarily 
assigned to hopper 1 
SYSPCH temporarily 
assigned to hopper 2 

SYSIPT temporarily 
assigned to hopper 1 
SYSIPT temporarily 
assigned to hopper 2 

SYSRDR temporarily 
assigned to hopper 1 
SYSRDR temporarily 
assigned to hopper 2 

SYSPCH permanently 
assigned to hopper 1 
SYSPCH permanently 
assigned to hopper 2 

SYSIPT permanently 
assigned to hopper 1 
SYSIPT permanently 
assigned to hopper 2 

SYSRDR permanently 
assigned to hopper 1 
SYSRDR permanently 
assigned to hopper 2 



Channel Scheduler Flags 



1: 







1 


2: 







1 


3: 







1 


5: 







1 


6: 







1 


7: 







1 



Bit 0: 


1 


= 


Device busy 


1: 


1 


= 


Switchable device 


2: 


1 


= 


EOJ for SYSRDR or SYSIPT 


3: 


1 


= 


I/O error queued for 
recovery 


4: 


1 


= 


Operator intervention 
required 


5: 


1 


= 


I/O interrupt 
outstanding 


6: 


1 


= 


Burst or overrunable 
device 


7: 


1 


= 


7-track tape unit 



Job Control Flags 



Bit 0-4: 



Standard MODE assignment 
for 7- and 9-track tape 
(all ones if not tape, all 
zeros if device is down) 
1 = Device supports RPS 
Reserved 

Unit check pending on 
alternate channel 
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Notes: 



A nul 

gener 

suppo 

stand 

made 

assig 

I PL,. 

prior 

must 

for a 



1 entry is generated at supervisor 
ation time for each device to be 
rted by the supervisor.. Then 
ard physical unit assignments are 
to the PUB table. Physical unit 
nments can also be made during 

PUBs are ordered by channel and 
ity within a channel. A PUB entry 
be generated or added during IPL 
ny device of the installation. 



An entry in the PUB Ownership Table is 
associated with each entry in the PUB 
table, if the supervisor has been 
generated to support multiprogramming. 



For the PUBOWNER table see DOS^VS 
Supervisor Logic. 

Bytes 64-65 (X'40 f - X f 41«) of the 
partition communication region contain 
the address of the PUB table entry. 
Label PUBTAB identifies the first byte 
of the table. 

Bytes 76-77 (X» 4C« - X«4D«) of the 
partition communication region contain 
the address of the LUB table.. Label 
LUBTAB identifies the first byte of the 
table,. 

SYSUSE may be called SYSCTL in error 
recovery messages,. 



2. THE NICL, FICL, AND LUB TABLES 



Number in 

Class List 

(NICL) LUBTAB 



First in 
Class List 
(FICL) 



SYS 



BG 



Fn 



F2 



F1 



BG 

System LUBs 



BG 

Programmer LUBs 



Fn 

System LUBs 



Fn 

Programmer LUBs 



F2 

System LUBs 



F2 

Programmer LUBs 



F1 

System LUBs 



F1 

Programmer LUBs 



SYS 



BG 



Fn 



F2 



F1 



LUB Table for any partition 

SYSRDR 
SYSIPT 
SYSPCH 
SYSLST 
SYSLOG 
SYSLNK 
SYS RES 
SYSSLB 
SYSRLB 
1. SYSUSE 
SYSREC 
SYSCLB 
SYSCAT 
SYSOOO 
SYS001 
SYS002 
SYS003 
SYS004 



/ 2. SYS240 



00000000- Points to first PUB and PUBOWNER 

00000001- Points to second PUB and PUBOWNER 
00000010- Points to third PUB and PUBOWNER 



1 1 1 1 1 1 1 — Ignore, assigned ignore 

1 1 1 1 1 1 1 1 - Null pointer, the LUB is unassigned 

When a logical unit is assigned, the system inserts a pointer to 
the PUB for the physical device specified. 



Format of 
any LUB 





ByteO 


Byte 1 




Pointer to PUB 
and PUBOWNER 


JIB Pointer 



JIB Index (multiply by 4— displacement into JIB Table) or 
X'FF'-null pointer, no JIB for this LUB. 

A LUB has a JIB pointer when: 

1. The logical unit is temporarily assigned. 

2. The logical unit assigned is alternate (ALT). 

3. A DASD file (except a system I/O file on disk) is opened 
(DASDfile protect only). 



Figure 19,. Logical Unit Block (LUB) Table 
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3- THE I/O TABLES 



FICL ^ LUBTAB 



System 
BG 
Fn 

F2 

F1 



m = number of units 

n = index to first programmer unit 




JIBTAB 



i^«a*>**~- - 



EXTENT (Entry length 12 bytesl 



IS 



~±~ 


IP 


1 


11 




FOCL 



[thtab! 
(Optional) 
LMT J 

used by PIOCS 



CHANQ (Entry length 32 bytes) 




* Optionally allocated and initialized by IPL 



Key 



| Explanation 



NICL (Number in Class) | Byte contains the 

| bytes contain the n 
{partition.. The tota 
[number of partition 



number of system class LUBs.. The remaining 
umber of programmer class LUBs for each 
1 number of bytes is one more than the 
s supported. 



FICL (First in Class) 



| Byte points to th 
J (LUBTAB). This is a 
{ The remaining bytes 
| in the LUB table pa 
lis one more than th 



e first system class LUB in the LUB table 
Iways the first entry in the LUB table,. 

point to the first programmer class LUBs 
rtition areas. The total number of bytes 
e number of partitions supported.. 



LUBTAB (Logical Unit 
Block Table) 



J Byte of each entr 
| PUB Table (PUBTAB) 
| (PUBOWNER) , or cont 
| Byte H points to an 
| tains X^F", 



y is an index pointer to an entry in the 
and to an entry in the PUB Ownership Table 
ains X f FF" if no logical unit is assigned, 
entry in the JIB Table (JIBTAB) or con- 



Figure 20. I/O Table Interrelationships (Part 1 of 3) 
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r 

| Key I Explanation 


I PUBTAB (Physical Unit | Bytes and 1 of each entry contain the channel and unit 
| Block Table) | address of the physical device- Byte 2 points to the entry in 
| | the channel queue (CHANQ) table or contains X^FF 1 if no re- 
| | quest is queued to the PUB. Byte 4 contains the device type 
| |code- Byte 5 is an index pointer to the entry in the Track- 
| JHold Table or the line mode table (Models 115/125 only) when 
| lone of these options is active for the device- Otherwise 
| | this byte contains X'FF 1 . Byte 6 contains the channel sche- 
| jduler flags and byte 7 the job control flags.- 


|F0CL (First on Channel | Byte points to the first PUBTAB entry for a device on 
| 'List) | channel 0.- Byte 1 points to the first PUBTAB entry for a 
| { device on channel 1, and so on. X'FF" indicates that the 
| | associated channel is not supported- 


IPUBOWNER | Byte of each entry is reserved,- Byte 1 identifies the 
| | partition that owns the corresponding PUB- 


|FAVP (First Available |This one-byte pointer to the next available entry in the JIB 
| Pointer) | Table (JIBTAB) is used by the ASSGN statement processor and by 
| | job control- 


| JIBTAB (Job Information J Bytes and 1 of each entry contain extent or LUB information 
J Block Table) | used by job control and the ASSGN statement processor,. Byte 2 
| |is a flag byte,. Byte 3 is a chain byte to the next JIB for 
| | this LUB. 


IINTTAB1 | Consists of 255 one byte entries that contain an index to a 
| Irelated PUB entry, or zero if an entry is to be obtained from 
| | the INTTAB2 table. The one-byte device address, stored in low 
| Icore at interrupt time, is used as an index- 


IINTTAB2 | Consists of 255 one-byte entries that contain an index to an 
| | entry in the INTTAB3 table, or zero. The one-byte device 
| | address, stored in low core of interrupt time, is used as an 
I J index - 


IINTTAB3 | Contains one 16-byte entry for each PUB entry that has a 
| | device address (PUB byte 1), which exists at least two times 
| | on different channels- The channel-ID, stored in low core at 
| linterrupt time, is used to index a byte within the entry, 
| | This byte contains an index to the related PUB, or zero if 
| I the PUB is not defined- 


ICEANQ (Channel Queue |Byte in each entry points to the next entry in sequence, 

I |or it contains X'FF" if the entry is the last in a chain- 

| IThere are two types of chains, one is based on a PUBTAB entry 

| | (byte 2) , the other on the FLPTR entry. 

| | Bytes 17 through 19 contain the address of the PUB2 entry- 


| FLPTR (Free List | This ohe-byte pointer contains the entry index of the next 
| Pointer) |free entry in the channel queue table (CHANQ). 



Figure 20. I/O Table Interrelationships (Part 2 of 3) 
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Key 



| Explanation 

+ - « > 

This table is built at supervisor generation time if the 
TRKHLD=n parameter is included in the FOPT macro- Byte 
in each entry points to the next entry in the chain of 
requests for a track to be held on a specific DASD (or the 
next free entry if in the free list) , or it contains X'FF 1 
if the entry is the last in a chain- Bytes 1, 2, and 3 con- 
tain the CCB address. 

Bytes^ 4-11 describe the resource to be held- For CKD devices 
they contain the track address (BBCCHH) padded with X'OQQOr. 
For FBA devices they contain the range of FBA blocks, where 
bytes 4-7 present the physical block number of the first block 
of the range and bytes 8-11 of the last block of the range. 
Byte 12 contains a backward pointer- The backward pointer of 
the first Track Hold table entry contains the PUB index- 
Byte 13 is a flag and counter byte: bit is turned on when 
a task requests a track already held by another task. 
Bit 1 is turned on if this entry is the first entry of a 
chain. The value in the low-order half-byte is incremented 
by one each time a task requests a hold on a track that it 
already holds itself- When multiple holds by one task are 
effective, the value in the lower-order half-byte is one less 
than the actual number of holds. Bytes 14 and 15 contain the 
key of the owning task, or zeros if the entry is free.. 



THTAB (Track-Hold 
Table) 



LMT (Line Mode Table) 



This table is built at supervisor generation time if the 
processor is model 115 or 125,. An entry is built for each 
device in the address range X* 20* to X" 3F", specified as 2703- 



Figure 20- I/O Table Interrelationships (Part 3 of 3) 
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4. JOB ACCOUNTING INTERFACE TABLES 



J ok Accounting Interface Common Table (ACCTCOMN) 



This table is used by the supervisor and job control to save and to communicate general 
job accounting information. 



Displacement | Label | 



Description 



0-15 


| (ACCTCOMN) 
IACCTSVRG 


16-17 


IACCCTSVRX 


;8-i9 


fACCTSVRE 


20-23 


IACCTPCNT 


24 


4ACCTSAID 


25 


IACCTFAID 


26 


{ACCTRAID 



27 



28-31 
32-33 
34-35 
36-37 

38-39 
40-43 



ACCTSWCH 



ACCTIME 
ACCTRESC 
ACCTUSEP 
ACCTUSEL 

ACCT$JOB 
ACCTBLES 



Temporary register save area 

Reserved 

Reserved 

Count of partitions using the Job Accounting interface 

Reserved 

Reserved 

Accounting ID: 

X^O* = overhead time 
X"04 f = allbound time 
byte 1 of PIK for CPU time 

Accounting switches: if bit=1, true; if bit=0, not true 

bit 0: cancel accounting bit 4: IPL indicator 

bit 1: no active partitions bit 5: not used 

bit 2: catalog in process bit 6: not used 

bit 3: alternate label area bit 7: not used 

Reserved 

Reserved 

Address of user save area (ACCTUSER) 

Length of user save area (set with 1st operand of FOPT macro 
parameter JALIOCS) 

Job accounting partition indication 

Address of BG Job Accounting Table 



This table 
partitions- 



is extended with the following fields depending on the number of supported 



Figure 21. Job Accounting Interface Common Table (ACCTCOMN) (Part 1 of 2) 



Appendixes 371 



44-47 j (Address of Fn Job Accounting Table 

| 

|- '■ 

I 

I 
+4 | | Address of F2 Job Accounting Table 

I 
+ 4 | J Address of F1 Job Accounting Table 

I 

+ (n*2)-1 |ACCTSEAS j Control Field: prevents the accounting routine being loaded 

| twice (depending on the number of supported partitions) 9 
J otherwise the table ends here, 



L • 



J 



Bytes 124-127 (X § 7C a - X^F 1 ) of the System Communication Region (SYSCOM) contain the 
address of the Job Accounting Interface Common Table. Label ACCTCOMN identifies the 
first byte of the table. 

Figure 21. Job Accounting Interface Common Table (ACCTCOMN) (Part 2 of 2) 



Q.2.U Accounting Interface Partiti on Tables (ACCTxx) 

These tables are maintained by the supervisor and job control. They contain job 
accounting information for single partitions. 



| Displacement! Label | 



Description 



+ + 



0-3 
4-7 

8-11 
1 2- 1 3 
14-15 

16-21 

22-23 
24-27 
28-31 

32-35 

36-39 



| (ACCTABLE) 
JACCTWK1 

I 
IACCTWK2 

I 
I 

IACCTSVPT 



I 
IACCTPART 

I 
JACCTLEN 

I 
I 

IACCTLOAD 

I 

I 

IACCTEES3 

I 

IACCTLADD 

I 

IACCTCPUT 

I 
I 

IACCTOVHT 

I 
I 

jACCTBNDT 

I 



Work area used by job control in SIO update 

I Work area used by job control with ACCTWK1 in start/stop 
| time routine 

| Job card pointer; address of job card field following jobname 

| ID of partition in charge (partition switch name) 

| Length of SIO area=6n+1, where n=number of devices for this 
[partition in SYSGEN option JA=(n,n,...) 

| Label area instruction; moves JAI label area address to 
| OPEN/CLOSE transients 

| Reserved 

i Address o£ alternate label area 

| Counter for program execution time ( € CPU-time') in the current 
| job step, counted in 300th of a second 

ICounter for system execution time ('overhead time 1 ) in the 
| current job step distributed in proportion to the CPU time. 

ICounter for all-bound time; system wait state time divided 

| between running partitions 

j 



Figure 22. Job Accounting Interface Partition Table (ACCTxx) (Part 1 of 2) 
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r 

1 Displacement 


Label 


Description 


| 40-47 


■—•— » — — • — — — — —.-• 4 

ACCTSVJN 


Save area for job name during simulated EOJ 


| 48-55 


lACCTJBNM 




{ 56-71 


ACCTUSRS 


User information; 16 bytes from job statement 


| 72-73 


ACCTPTID , 


Partition ID: ■BG I , 'F1', ■F2 l r etc- in EBCDIC 
format 


1 74 


ACCTCNCL 


Cancel code 


1 75 


ACCTYPER 


Type of record: 'S 1 = job step, • L' = last step of job 


| 76-83 


ACCTDATE i 


Date in format specified at SYSGEN (MM/DD/YY or DD/MM/YY) 


| 84-87 


ACCTSTRT 


Start time of job step in packed decimal (DHHMMSSF; F = sign) 


| 88-91 


ACCTSTOP 


Stop time of job step.. This value is used as the start time 
for the next step (same format as ACCTSTRT) 


| 92-95 


ACCTRES 


Reserved 


l 96-103 


ACCTEXEC 


Phase name; taken from EXEC statement 


| 104-107 


ACCTHICR 


2K number of partition pages referenced (or PFIX-ed for real 
execution) by the problem program in the current job step* 


| 108-111 


ACCTIMES 


Same as ACCTCPUT at the end of the job step 


| 112-115 




Same as ACCTOVHT at the end of the job step 


| 116-119 




Same as ACCTBNDT at the end of the job step 


| 120 


ACCTSIOS 


SIO tables: 6 bytes for each device specified by SYSGEN 
options, as follows: 2 bytes for device address (Ocuu) , 4 
[bytes for count of SIOs in current jobstep 

Overflow byte: normally X^O 1 , but is X^O 1 if more devices 
are used within a partition than specified by SYSGEN options 



i. 



Notes: 



1.. DSECT ACCTABLE symbolically addresses the JAI Partition Tables with labels as shown- 
Each partition in which JAI is supported has its own JAI Partition Table- This table 
is labelled ACCTBG for the active partition BG; ACCTF1 for the active partition F1; 
ACCTF2 for F2 etc. 

2-m The address of this table is in the partition Communication Region at displacement 
116 (X"74«)- 

Figure 22- Job Accounting Interface Partition Table (ACCTxx) (Part 2 of 2) 
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5. PUB2 TABLE ENTRY FORMATS 



Decimal 
Displacement 



Byte | 
Length | 



Description 




3 



4 
5 
6 



| Usage Count (number of non-ERP SIOs) 

I 

[Flag Byte 



I Bit 



0: 1 =.. Device in intensive mode 

1: 1 = Device in diagnostic mode 

2: 1 = No recording mode 

3: 1 = Call statistics transient 2 

4: 1 = Use PUB 2 name completion field 

5: 1 = Volume opened on this device 

6,7: Reserved 



CE mode limit byte 
CE mode byte/bit mask 
Statistical data counters 



Total length 12 



* This bit is also set (during IPL) to indicate hardware recording for the device on the 
Model 115/125, 

Figure 23* PUB2 Table Entry Format for Unit Record and Unsupported Devices 



Decimal 
Displacement 



Byte | 
Length | 



Description 



3 
3 



1 
1 

20 



| Usage Count (number of non-ERP SIOs) 
I 



Flag Byte 
Bit 0: 1 

i: 

2: 

3: 

4: 

5: 
6,7: 



= Device in intensive mode 

= Device in diagnostic mode 

= No recording mode 

= Call statistics transient 2 

= Use PUB 2 name completion field 

= Volume opened on this device 



Reserved 



CE mode limit byte 
CE mode byte/bit mask 
Statistical data counters 



Total length 26 



Figure 24- PUB2 Table Entry Format for 3886 Optical Character Reader 
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Decimal 
Displacement 


Byte 
Length 






Description 





| 3 


| Usage 


Count 


(number of non-ERP SIOs) 


3 


1 


|Flag Byte 

|Bit 0: 1 = Device in intensive mode 

| II: 1 = Device in diagnostic mode 

| 2: 1 = No recording mode 

| 3: tl = Call statistics transient 2 

i 4: 1 = Use PUB2 Jiame completion field 

| 5: 1 = Volume openend on this device 

i 6,7: Reserved 


4 


1 


|CE mode limit byte 


5 


1 


|CE mode byte/bit mask 


6 


1 


JFlag byte 

J Bit 0: 1 = Soft DASD error is queued 

|- 1: 1 = ERP requests logging of error 

| 2-7: Reserved 


7 


2 


| Reserved 




9 


1 


| Physical module identifier 


10 


6 


| Volume serial number 



End 


3340- Total length 16 


16 j 8 | Statistical data counters 


End 


DASD except 3330/3333/3350/FBA, Total length 24 


24 | 8 J Additional statistical data counters (3330/3333/3350/FBA only) 


End 


3330/3333/3350/FBA- Total length 24 



Figure 25- PUB2 Table Entry Format for DASD 
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Decimal 


| Byte 






Description 


Displacement 


Length 








— — — — — — — — — — —— — — . 




1 3 


t Osage 


Count 


(number of non-ERP SlOs) 


3 


1 


I Flag ] 


Byte 








Bit 


: 1 = 


Device in intensive mode 






1 1 


: 1 = 


Device in diagnostic mode 






2 


: 1 = 


No recording mode 
















4 


: 1 = 


Use PUB2 name completion field 






| 5 


: 1 = 


Volume opened on this device 






I 6,7 


: Reserved 


4 


1 


ICE mode limit byte 


5 


1 


|CE mode byte/bit mask 


6 


2 


|Name of ERP 


that wants control 


8 


1 


Flag byte 1 








Bit 


: Reserved 






I 1 


: 1 = 


Unsolicited interrupts 


\ 




2 


: 1 = 


ERP is in control 






I 3: 


. 1 = 


ERP requests repositioning 






4: 


: 1 = 
= 


Use original TIE byte 
Use opposite TIE byte 






5: 


: 1 = 


Intercept next SIO request 






6: 


1 = 


ERP read opposite request 






7 


: 1 = 


Restart user's CCW chain 


9 


1 


Flag byte 2 








Bit 0: 


1 = 


Last ERP operation was ERG 






1 


: 1 = 


Last ERP operation was reposition 






2: 


1 = 


Cleaner action in progress 






3: 


1 = 


Read Opposite Recovery in progress 






4: 


1 = 


Message stored in P20RGTIE 


d 




5: 


1 = 


Error on attempt to recover by respositioning 






6: 


.1 = 


Data check after ERP in control 






I 7: 


Reserved 


10 


1 i 


Flag 1 


)yte 3 








Bit 0: 


1 = 


Failing CCW is Writer or Control command 






1: 


1 = 


User reading backwards 






2- 


: 1 = 


Read Opposite Recovery (ROR) 






3: 


1 = 


Maximum ROR retries 






4 


: (J = 


Command chaining ROR 






5: 


1 = 


ROR suppressed incorrect length 






6 


: 1 = 


User used SILI 






1 7: 


: Reserved 



I . . . — 



Figure 26.. PUB2 Table Entry Format for Tapes (Part 1 of 2) 
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Decimal 


| Byte 


| Description { 


Displacement 


| Length 




11 


••+ ———————— "i ■ | 

| ^ | Temporary read count I 


12 


1 1 


Temporary write count I 


13 


| 1 


Noise record count { 


14 


1 2 


| Erase gap count I 


16 


I 2 


i Cleaner action count j 


18 


1 1 


Permanent read errors count | 


19 


i 1 


Permanent write errors count | 


20 


I 1 


TIE original direction J 


21 


I 1 


TIE opposite direction I 


22 


I 1 


ERP counter j 


23 


I 1 


ERP counter 1 1 


24 


i 3 


ERP work area 1 


32 


I 6 


Tape serial number 1 


38 


I 2 


Block length I 


40 


I ^ 


User ROR command address from CSW | 


44 


I 2 


User ROR residual count from CSW | 


46 


I 2 


Reserved I 


48 


| 16 


Work area for rewind-unload error action | 


64 


| 10 


2400-series statistical data counter area | 


74 


I 2 


Reserved I 


End 2400-series: Total length 76 I 


64 


| 20 


3410/3420 statistical data counter area | 


End 3410/3420/8809: Tote 


il entry length 84 I 



Note; PUB2 Table is not generated for Model 11 5 or 125 without RMSR support- 
Figure 26- PUB2 Table Entry Format for Tapes (Part 2 of 2) 
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Decimal 
Displacement 


Byte 
Length 




Description 





i 6 


Standard PUB-2 area prefix 


6 i 

1 

8 

9 
10 
11 
12 
13 
14 


1 
1 


SDR counterl (channel data checks) 

2 (channel control checks) 

3 (interface control checks) 

4 (stacker misfolds) 

5 (burster-trimmer jams) 

6 (no-burst checks) 

7 (burster-stacker jams) 

8 Reserved 
i 9 Reserved 


15 


1 1. 


Default 
Bit 0: 
1-7: 


flags 

1 = BQRST defaults to Y 

Reserved 


16 


I . 4 


Default 


FCB identifier 


20 


4 


Default 


character arrangement table identifier 


24 


I 4 


Default 


copy modification identifier 


28 


I 4 


Default 


forms overlay frame identifier 


32 


I • 4 


Default 


paper forms identifier 


36 


I 4 


IDs of character sets loaded in printer 


40 


1 


IWCGMs with modified character sets 

Bit 0: contains a modified character set 
1 • ii it ii ii ii 






2: 

1 3: 

4-7: 


ii ii ii it ii 
ii ii ii ii ti 

Reserved 


41 


I . 1 


Flag byte 
Bit 0: Reserved 
1 : Reserved 

2: = Threaded in continuous forms stacker 
2: 1 = Threaded in burster-trimmer stacker 
3: Reserved 

4: = DCH'K=B was coded or DCHK was omitted 
| 4: 1 = DCHK=0 was specified 
5-7: Reserved 



L -■ . ■ 



__. , . J 



Figure 27- PQB2 Table Entry Format for 3800 (Part 1 of 2) 



378 DOS/VS IPL and Job Control Logic 



Decimal 
Displacement 


Byte 
Length 


Description 


i 


42 


tl |Flag byte 

| 2: = Records do not contain TRCs 
i 2: 1 = Records contain TRCs 
| 3-7: Reserved 




43 , 


1 


[Flag byte Reserved 




44 


4 


| ID for currently loaded FCB 




48 


i 4 


| ID for first character arrangement table currently loaded 




52 


4 


I ID for second character arrangement table currently loaded 




56 


4 


|ID for third character arrangement table currently loaded 




60 


4 


| XD for fourth character arrangement table currently loaded 




64 


4 


i ID of the character arrangement table used for the current 
copy modifications 


1 


68 


4 


ID of the copy modification module currently loaded 




72 


4 


ID of forms currently loaded 




76 


4 


ID of current forms overlay frame 




80 


8 


iThe eight copy group count received by SETPRT 




88 


* 


|Copy group numbers if grouping , transmission number if not 
grouping 




89 


1 


Flash count presently set 




90 


2 


Reserved 





Figure 27. PUB2 Table Entry Format for 3800 (Part 2 of 2) 
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For a more complete list of data processing 
terms, refer to IBM Data Processing 
Technigues, A Data Processing Glossary,, 
GC20-1699. 

§ddress translation: The process of 
changing the address of an item of data or 
an instruction from its virtual address to 
its real storage address,. See also dynamic 
address translation. 

American national standard label form at : 
The tape file format used when the label is 
written in the ASCII mode,. 

ASCII (American na tion al standard code for 
information interchange) : A 128-character, 
7-bit code. The high-order bit in the 
System/370 8-bit environment is zero, 

I A SI (automatic system initialization) 

block £refix: An optional, 0-99 byte field 
preceding an ASCII record. It contains 
user specified data or, for variable-length 
(format D) records, the physical record 
length,. 

CCH (channel check handler) : A feature that 
assesses channel errors to determine if the 
system can continue operations. 

change bit: A bit associated with a page in 
real storage: the change bit is turned M ON" 
by hardware whenever the associated page in 
real storage is modified. In DOS/VS, there 
is a change bit in the storage key 
associated with each 2K storage block, 

channel inboard error: An error that occurs 
between one I/O device and the central 
processing unit. 

channel ££ogr;am translation: In a channel 
program, replacement, by software, of 
virtual addresses with real addresses. 

ICKD (count key. da£aj : The DASD architecture 
with variable block size and addresses of 



the format BBCCHHR (bin, cylinder, head, 
record) ; as opposed to Fixed Block 
Architecture. 

4§i§L conversion: The process of changing 
data from one form of representation to 
another* 

diskette: A flexible magnetic oxide coated 
disk, permanently enclosed in a semi-rigid 
protective plastic jacket approximately 8 
inches square. During data processing 
operations, the disk turns freely within 
the jacket,. It is capable of storing 1898 
128-character data records. 

dynamic address translation (DAT): (1) The 
change of a virtual storage address to a 
real storage address during execution of an 
instruction. See also address translation. 
(2) A hardware feature that performs the 
translation. 

EC PS: DOS/VS (extended control £roqram 
su£port for DOS/VS: An implementation of 
the virtual storage concept which does not 
require software participation in the 
translation of virtual addresses into real 
addresses. 

I£1E (£IlYJlILOIliental recording;, editing, and 
££i££iH£) : A program that processes the 
data contained on the system recorder file. 

Hi (£££2£ Y_2iujne_ analysis) . An option of 
TES that causes the system to issue a 
message to the operator when a number of 
temporary read or write errors (specified 
by the user at system generation time) has 
been exceeded on a currently accessed tape 
volume. 

£Xt§£L4§4 control (EC) mode: A mode in which 
all the features of a System/370 computing 
system, including dynamic address 
translation, are operational. 

FBA (fixed block architecture) : The DASD 
architecture where data addresses are by 
block numbers only, since blocks have a 
fixed size, as opposed to CKD. 

£CB (forms control butter) : A buffer that 
is used to store vertical formatting 
information for printing, each position 
corresponding to a line on the form, 

£ii§ section number: For ASCII files, the 
number indicates the order of a volume in a 
given file or multifile set. The first 
file must be numbered 0001- The ASCII file 
section number is equivalent to the EBCDIC 
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volume sequence number. 

fixed: In DOS/VS, not capable of being 
paged out.. 

£ix§4 £2L£§ : A page in real storage that is 
not to be paged out. 

frame: Same as page frame 

frame number: In DOS/VS, the part of a real 
storage address needed to refer to a frame. 
See also page number. 

££§JLe t^ble: Same as page frame table. 

frame table entry, (FTE): In DOS/VS , an 
entry in the page frame table that 
describes how a frame is being used- 

FTE: Frame table entry. 

hold £§.£§. queue: A queue to which pages in 
real storage are initially assigned through 
a page-in. 

inv a lid £aqe: A page that cannot be 
directly addressed by the dynamic address 
translation feature of the central 
processing unit.. 

I/O (Input/Output) error logging: The 
process of recording OBR and SDE records on 
the system recorder file. 

job Recounting interface: A function that 
accumulates accounting information for each 
job step to charge usage of the system, 
help plan new applications, and help 
supervise system operation more 
efficiently. 

load point: The beginning of the recording 
area on a reel of magnetic tape. 

main page po ol: The set of all page frames 
in real storage not assigned to the 
supervisor or one of the real partitions. 

MCAR (machine check analysis and 
E§2ordin£) : A feature that records 
System/370 machine check interrupt error 
information on the system recorder file and 
then attempts to recover from the 
interrupt. 

MCI (machine check interrupt) : The 
interrupt that occurs if the central 
processing unit fails to operate.. 

nonstandard labels: Labels that do not 
conform to the System/370 standard label 
specifications. They can be any length, 
need not have a specified identification, 
and do not have a fixed format. 

page: (1) A fixed-length block of 
instructions, data, or both, that can be 



transferred between real storage and page 
data set. (2) To transfer instructions, 
data, or both between real storage and 
external page storage. 

£§-9. e . data set: A file in external page 
storage, in which pages are stored. 

£sL3.§ f§.Jiit: A program interruption that 
occurs when a page that is marked "not in 
real storage" is referred to by an active 
page- Synonymous with page translation 
exception. 

£§.£§. £i£i££L : Marking a page as nonpageable 
so that it remains in real storage, 

page frame: A block of real storage that 
can contain a page. Synonymous with frame. 

£ a _2 e - frame table: In DOS/VS, a table that 

contains an entry for each frame.. Each 

frame table entry describes how the frame 
is being used. 

£a£e-in: The process of transferring a page 
from the external page storage to real 
storage. 

£§.£§ number r The part of a virtual storage 
address needed to refer to a page- See 
also frame number: 

£a£e-out: The process of transferring a 
page from real storage to external page 
storage. 

page pool: The set of page frames available 
for paging virtual mode programs. 

£§.&£ table (PT) : A table that indicates 
whether a page is in real storage and 
correlates virtual addresses with real 
storage addresses. 

.paging: The process of transferring pages 
between real storage and external page 
storage. 

E.Q.LL (private core imaqe libraryj : A file 
referenced in the same manner and for the 
same purposes as the system core image 
library, but distinct from the system core 
image library.. PCIL increases available 
core image library space to enable 
compiling, linkage editing, and executing 
in the foreground partition, when a private 
core image library is assigned to that 
foreground partition,. 

£§al address: The address of a location in 
real storage.. 

real a ddr ess area: In DOS/VS, the area of 
virtual storage where virtual addresses are 
equal to real addresses. 

real mode: In DOS/VS, the mode of a program 
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that may not be paged,. 

real partition: (1) In DOS/VS, a division 
of the real address area of virtual storage 
that may be allocated for programs that are 
not to be paged, (2) An area of real 
storage that can contain pages that are to 
be PFIXed. 

£§§.1 storacje: Ttte storage of a System/370 
computing system from which the central 
processing unit can directly obtain 
instructions and data, and to which it can 
directly return results, 

£§£§£§££§ kii : A bit associated with a page 
in real storage; the reference bit is 
turned "ON" by hardware whenever the 
associated page in real storage is referred 
to (read or stored into),. In DOS/VS, there 
is a reference bit in the storage key 
associated with each 2K storage block,. 

reliability; data extractor (RDE) : A 
function that provides hardware reliability 
data that is analyzed by IBM,. 

EflSg (Jtecovery_ Management Supp ort 
Recorder) : A feature that consists of the 
MCAR "(Machine Check Handler) functions. 
RMSR gathers information about System/370 
hardware reliability and attempts certain 
error recovery operations. RMSR is a part 
of the entire reliability, availability, 
and serviceability support for System/370. 

rotational position sensing: A standard 
feature of IBM 3330/3333 and an optional 
feature of IBM 3340 disk storage devices. 
It permits a device to disconnect from a 
block multiplexer channel during rotational 
positioning operations, thereby allowing 
the channel to service other devices on the 
channel during the positioning delay,, 

second level directory.: A table located in 
the supervisor, and containing the first 
phasenames found on the corresponding 
directory tracks of the system core image 
library. 

segment: A continuous 64K area of virtual 
storage starting and ending on a 64K 
boundary- 
segment t ab le (SGT) : A table used in 
dynamic address translation to control user 
access to virtual storage segments. Each 
entry indicates the length, location, and 
availability of a corresponding page table.. 

shared virtual area: An area located in the 
highest addresses of virtual storage* It 
can contain a system directory list (SDL) 
of frequently used phases, resident 
programs that can be shared between 
partitions, and an area for system GETVis 
supports 



SLA (symbolic label access) : A reentrant 
program, resident in the SVA to read, 
write, and modify labels from the label 
area. 

system directory list: A list containing 
directory entries of frequently used phases 
and of all phases resident in the shared 
virtual area. This list is placed in the 
shared virtual area,. 

si§ tern recorder file: The file that is used 
to record hardware reliability data, 

TES (tape error statistics) : A facility 
provided by RMSR that monitors and records 
read and write errors per volume for IBM 
2400 and 3400 series tapes.. 

thrashing: A condition in which the system 
can do little useful work because of 
excessive paging, 

TOD-clock: A 64-bit binary counter;. It 
provides a consistent measure of elapsed 
time for time-of-day indication. 

translation tables: Page tables and segment 
tables - 

UCB (universal cha rac ter set buffer) : A 
buffer that is used to store print control 
information for output with a UCS print 
train, 

UCS (universal character set) : A printer 
feature that permits the use of a variety 
of character arrays. 

virtual address: An address that refers to 
virtual storage and must, therefore, be 
translated into a real storage address when 
it is used, 

virtual address area: In DOS/VS, the area 
of virtual storage whose addresses are 
greater than the highest address of the 
real address area,, 

virtual mode: In DOS/VS, the mode of a 
program which may be paged. 

XiEtMi partition: In DOS/VS, a division of 
the virtual address area of virtual storage 
that is allocated for programs that are to 
be paged, 

virtual storage: Addressable space that 
appears to the user as real storage, from 
which instructions and data are mapped into 
real storage locations.. The size of 
virtual storage is limited by the 
addressing scheme of the computing system 
and by the amount of auxiliary storage 
available, rather than by the actual number 
of real storage locations,. 
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working set: The set of a user's pages that zone: Difference (hours and minutes) 
must be in real storage in order to avoid between Greenwich Mean Time and local time- 
excessive paging. 
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INDEX 



ACCTCOMN (job accounting interface 

common) table 371 
ACCTxx (job accounting interface partition 

table) 372 
ACTION statement processor 

detail chart 285 

general chart 63 
ADD 

routine 22 
ALLOC (R) statement processor 

detail chart 296 

general chart 62 
ASSGN statement processor 

detail chart 187 

general chart 54 



B 



bootstrap processing 17, 44 # 83 



CANCEL command processor 

detail chart 268 

general chart 61 
CALL processor 

detail chart 238 

general chart 58 
CATALR statement processor 

detail chart 294 

general chart 64 
CLOSE statement/command processor 

detail chart 212 

general chart 54 
control flow IPL 25 

job control 38 

SLA 38 

SYSBUFLD 25 



general chart 59 
DVCOP command processor 
detail chart 254 
general chart 59 



ENTRY statement processor 

detail chart 285 

general chart 63 
EOJ (/&) statement processor 

detail chart 266 

general chart 61 
EOP (/+) statement processor 

detail chart 279 

general chart 61 
error message cross reference 362 
EXEC statement processor 

detail chart 232 

general chart 58 
EXEC PROC= statement/command processor 

detail chart 238 

general chart 58 
EXTENT statement processor 

detail chart 315 

general chart 66 



FICL (first-in-class-list) table 
first-in-class-list (FICL) table 
flowchart symbols, explanation of 
flowcharts (see phases) 
formats 

DFB 32 

FICL 367 

NICL 367 

phase-vector table entry 31 



367 
367 

82 



data file block (DFB) format 

DATE statement processor 
detail chart 289 
general chart 64 

DEF routine 23 

DEL routine 22 

DFB (data file block) format 

DLAB statement processor 
detail chart 311 
general chart 65 

DLBL statement processor 
detail chart 310 
general chart 66 

DPD routine 23 

DVCDN command processor 
detail chart 251 



32 



32 



general charts conventions 43 
glossary 380 



H 

hard wait codes 28 
HOLD command/ processor 
detail chart 282 
general chart 63 



I/O flow/ job control 42 

I/O table interrelationships 368 

I/O tables 27 

INCLUDE statement processor 
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detail chart 285 

general chart 64 
initial program load (IPL) 
IPL (initial program load) 
IPL phases (see phases) 16 
IPL 

ADD command 22 

DEL command 2 2 

DPD command 23 

real storage map 26 

SET command 22 



16 
16 



OPTION statement processor 

detail chart 269 

general chart 60 
OVEND statement/command processor 

detail chart 158 

general chart 51 
I overview of the system 13 



job accounting interface common 

(ACCTCOMN) table 371 
job accounting interface 68, 340 
job accounting interface partition 

table 372 
job control 29 

job control phases (see phases,) 30 
JOB statement processor 
detail chart 263 
general chart 61 
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label list 

LAS format 

LBLTYP sta 

detail 

general 

LISTIO pri 

LISTIO sta 

detail 

general 

LOG comman 

detail 

general 

logical un 

LUB, logic 

M 



p entry 39 
346 
41 
tement/command processor 
chart 30 6 

chart 65 
ntout samples 365 
tement/command processor 
chart 244 

chart 59 
d processor 
chart 291 

chart 62 
it block {LUB) table 367 
al unit block, table 367 



MAP command processor 

detail chart 253 

general chart 59 
Module/Phase/Function Overview 
MTC statement/command processor 

detail chart 286 

general chart 64 



16 



N 



next-in-class-list (NICL) 

NICL (next-in-class- list) 

NOLOG command processor 

detail chart 291 

general chart 62 



367 
367 



PAUSE statement/comma 


nd processor 


detail chart 291 




general chart 62 




PHASE statement processor 


detail chart 285 




general chart 63 




phase to module cross 


reference 361 


phase-vector table entry format 31 


phases, IPL 
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detail chart 


84 


general chart 


44 


text 16, 17 




*$A$IPL1 




detail chart 


83 


general chart 


44 


text 16, 17 




$$A$IPLR 




detail charts 


91 


general chart 


44 


text 16, 18 




$$A$PLBF 




detail chart 


86 


general chart 


44 


text 16, 18 




$$A$PLBK 




detail chart 


85 


general chart 


44 


text 16, 18 




$$BUFLDR 




detail chart 


146 


general chart 


48 


text 23 




$IPLRT2 




detail charts 


103 


general chart 


45 


text 16, 21 




SIPLRT3 




detail charts 


113 


general chart 


46 


text 16, 21 




$IPLRT4 




detail charts 


122 


general chart 


46 


text 16, 22 




$IPLRT5 




detail charts 


139 


general chart 


47 


text 16, 22 




$IPLRT6 




detail chart 


137 


general chart 


47 


text 16, 23 




$IPLRT7 




detail chart 


138 
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general chart 


47 


text 16, 23 




IPLBMAC 




detail chart 


87 


SYSBOFLD 




detail charts 


148 


general chart 


49 


text 24 
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$$BLSTIO 




detail charts 


342 


general chart 


59 


text 34 




$IJBSLA 




general charts 


69 


text 34 




$JOBCTLA 




detail charts 


155 


general charts 


50 


text 30 




$JOBCTLB 




detail charts 


177 


general chart 


52 


text 33 




$J0BCTLC 




detail chart 


181 


general chart 


53 


text 33 




$J0BCTLD 




detail charts 


187 


general chart 


54 


text 33 




SJOBCTLE 




detail charts 


232 


general chart 


58 


text 33 




$J0BCTLF 




detail charts 


244 


general chart 


59 


text 33 




$J0BCTLG 




detail charts 


263 


general charts 


60 


text 34 




$J0BCTLJ 




detail charts 


282 


general charts 


62 


text 34 




$J0BCTLK 




detail charts 


306 


general charts 


65 


text 34 




$J0BCTLM 




detail charts 


328 


general chart 


67 


text 34 




$J0BCTLN 




detail charts 


340 


general chart 


68 


text 34 




physical unit block 


(PUB) table 366 


PUB (physical unit b 


lock) table 366 


PUB2 table entry formats 374 



real storage map, IPL 26 

RESET statement/command processor 

detail chart 249 

general chart 59 
restart processor 

detail chart 177 

general chart 52 
ROD command processor 

detail chart 182, 329 

general chart 67 
RSTRT statement processor 

detail chart 321 

general chart 66 



SET 

routine 22 
SET command processor 

detail charts 288 

general chart 64 
SETPRT statement program 

detail chart 324 

general chart 66 
SETSDL statement processor 

detail chart 295 

general chart 64 
SETSVA statement processor 

detail chart 292 

general chart 64 
SIZE processor 62, 298 
SLA (symbolic label access) 34 
SLA label list 346 
STDOPT processor 303 
STOP command processor 

detail chart 293 

general chart 62 
SVA routine 23 

symbolic label access (SLA) 34 
SYSRES layout 17 



tables 

FICL 367 

I/O interrelationship 368 

job accounting interface partition 372 

job accounting interface common 371 

LUB 367 

NICL 367 

PUB 366 

three device system 27 
TLBL statement processor 

detail chart 307 

general chart 66 
TPLAB statement processor 

detail chart 306 

general chart 65 
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UCB loading 23, 48, 146 

UCS command processor 
detail chart 283 
general chart 63 

UNA statement processor 
detail chart 256 
general chart 59 

UNBATCH command processor 
detail chart 255 
general chart 59 

UPSI statement processor 
detail chart 291 
general chart 64 



V 



XTENT statement processor 
detail chart 313 
general chart 65 



ZONE statement processor- 
detail chart 289 
general chart 64 

/& statement processor 
detail chart 266 
general chart 61 

/♦ statement processor 
detail chart 279 
general chart 61 



VOL statement processor 
detail chart 306 
general chart 65 
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appropriate without incurring any obligation whatever. You may, of course, continue to use 
the information you supply. 
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Please note: Requests for copies of publications and for assistance in utilizing your IBM system 
should be directed to your IBM representative or to the IBM sales office serving your locality. 
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IBM Corporation 
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White Plains, N.Y. 10604 
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Attention: Department 813 BP 
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International Business Machines Corporation 

Data Processing Division 

1133 Westchester Avenue, White Plains, N.Y. 10604 

IBM World Trade Americas/Far East Corporation 

Town of Mount Pleasant, Route 9, North Tarrytown, N.Y., U.S.A. 10591 

IBM World Trade Europe/Middle East/Africa Corporation 
360 Hamilton Avenue, White Plains, N.Y., U.S.A. 10601 
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